Добрый день!
Прошу не кидать помидоры.
Если задача сформулирована неверно - просьба ткнуть/указать, где именно.
В Бухгалтерии предприятия есть некоторые ручные операции, которые должны попасть в книгу учёта доходов и расходов. Для таких операций нужно делать автоматически запись в регистр КУДИР.
И что-то не получается.
ОбработкиПроведения я не нашёл (она есть в подписке на события, но управления туда не передаётся, Сообщить("Ко ко ко") не отрабатывает).
В ПриЗаписи совать вроде как неправильно, но больше некуда... в итоге код отрабатывает, но по результатам записей в регистре - нет:
Процедура ПриЗаписи()
// Необходимо доформировать КУДИР
Если Организация.Код="000000001" Тогда // нельзя так делать, а что делать?
набор=РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();
набор.Отбор.регистратор.установить(ЭтотОбъект.Ссылка);
набор.Прочитать();
суммаКУДИР=0;
Для каждого текстр из набор цикл
Если текстр.СчетКт.ПринадлежитЭлементу(ПланыСчетов.Хозрасчетный.РасчетыСПокупателямиИЗаказчиками) и текстр.СчетДТ=ПланыСчетов.Хозрасчетный.РасчетыСПерсоналомПоОплатеТруда Тогда
суммаКУДИР=суммаКУДИР+1;
КонецЕсли;
КонецЦикла;
Если СуммаКудир>0 Тогда
новКУДИР=ЭтотОбъект.Движения.КнигаУчетаДоходовИРасходов.Добавить();
новКУДИР.Организация=Организация;
новКУДИР.Графа6=суммаКУДИР;
новКУДИР.Графа7=суммаКУДИР;
новКУДИР.Содержание="Выплата зарплаты";
новКУДИР.РеквизитыПервичногоДокумента=ЭтотОбъект;
новКУДИР.ВидРасхода=Перечисления.ВидыРасходовУСН.Зарплата;
новКУДИР.Период=ЭтотОбъект.Дата;
новкудир.Активность=Истина;