Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: 1С для программиста

  Все выпуски  

RFpro.ru: 1С для программиста


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный платный хостинг на базе Windows 2008

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Чемпионы рейтинга экспертов в этой рассылке

Владимир Лазурко
Статус: Профессионал
Рейтинг: 956
∙ повысить рейтинг »
Краюшкин Игорь Валерьевич
Статус: Студент
Рейтинг: 685
∙ повысить рейтинг »
М.Денис
Статус: Студент
Рейтинг: 663
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И ПО / Программирование / 1С для программиста

Номер выпуска:1130
Дата выхода:08.02.2010, 19:30
Администратор рассылки:Владимир Лазурко, Профессионал
Подписчиков / экспертов:517 / 131
Вопросов / ответов:1 / 1

Вопрос № 176467: Здравствуйте! Есть еще один вопрос. Правда, поинтересней! Есть учет в 1С:Бухгалтерии для Украины, 7.7, все ведется по б/налу. Но есть накладные, которые проведены по черному налу. Надо как-то изменить номера, если документ прошел по налу. Напри...



Вопрос № 176467:

Здравствуйте!
Есть еще один вопрос. Правда, поинтересней!
Есть учет в 1С:Бухгалтерии для Украины, 7.7, все ведется по б/налу. Но есть накладные, которые проведены по черному налу. Надо как-то изменить номера, если документ прошел по налу. Например: безналичный - ТО-000455, а наличный - ТН-000455.
При проведении ставить, например, в документе птичку и изменяется номер... в одном журнале документов... Помогите, плиз...

Отправлен: 03.02.2010, 19:01
Вопрос задал: Lesine, Посетитель
Всего ответов: 1
Страница вопроса »


Отвечает Piter, 4-й класс :
Здравствуйте, Lesine.

Делаем реквизит документа например ЧБФлаг - Число (1,0)
Добавляем на форму в виде "птички" и пишем в обработчике.
Можно запретить у записанного документа менять Флаг (см. ниже)

Код:
Процедура ОбработкаЧБФлага() 
Если ЧБФлаг = 1 Тогда
УстановитьНовыйНомер("ТО-");
Иначе
УстановитьНовыйНомер("ТН-");
КонецЕсли;
КонецПроцедуры


Или

Код:
Процедура ОбработкаЧБФлага() 
Если Выбран() = 1 Тогда
Предупреждение("Нел ьзя менять номер записанного документа.");
ЧБФлаг = 1 - ЧБФлаг;
Возврат;
КонецЕсли;
Если ЧБФлаг = 1 Тогда
УстановитьНовыйНомер("ТО-");
Иначе
УстановитьНовыйНомер("ТН-");
КонецЕсли;
КонецПроцедуры


P.S. По-хорошему неплохо бы еще и в процедуре ВводНового() тоже выбрать ОбработкаЧБФлага()
Оформил код тэгами, добавил привычные префиксы к префиксам.
-----
∙ Отредактировал: Владимир Лазурко, Профессионал
∙ Дата редактирования: 08.02.2010, 18:35 (время московское)

Ответ отправил: Piter, 4-й класс
Ответ отправлен: 04.02.2010, 08:30
Номер ответа: 259198

Оценка ответа: 5
Комментарий к оценке:
Попробую такой вариант...

Вам помог ответ? Пожалуйста, поблагодарите эксперта за это!
Как сказать этому эксперту "спасибо"?
  • Отправить SMS #thank 259198 на номер 1151 (Россия) | Еще номера »
  • Отправить WebMoney:

  • Оценить выпуск »
    Нам очень важно Ваше мнение об этом выпуске рассылки!

    Задать вопрос экспертам этой рассылки »

    Скажите "спасибо" эксперту, который помог Вам!

    Отправьте СМС-сообщение с тестом #thank НОМЕР_ОТВЕТА
    на короткий номер 1151 (Россия)

    Номер ответа и конкретный текст СМС указан внизу каждого ответа.

    Полный список номеров »

    * Стоимость одного СМС-сообщения от 7.15 руб. и зависит от оператора сотовой связи. (полный список тарифов)
    ** При ошибочном вводе номера ответа или текста #thank услуга считается оказанной, денежные средства не возвращаются.
    *** Сумма выплаты эксперту-автору ответа расчитывается из суммы перечислений на портал от биллинговой компании.


    © 2001-2010, Портал RFpro.ru, Россия
    Авторское право: ООО "Мастер-Эксперт Про"
    Автор: Калашников О.А. | Программирование: Гладенюк А.Г.
    Хостинг: Компания "Московский хостер"
    Версия системы: 2010.6.14 от 03.02.2010

    В избранное