А в ЗУП так:
17.03.2010
23:11
#1
"В модуле Набора записей РН НДФЛСведенияОДоходах:
Процедура ПриЗаписи(Отказ, Замещение, ТолькоЗапись)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
ЗарегистрироватьПерерасчетыНДФЛ();
//маал 17/03/2010 По просьбе бухгалтерии - гл бух и расчетчика - Все начисления проходят по периоду регистрации для НДФЛ
Набор = РегистрыНакопления.НДФЛСведенияОДоходах.СоздатьНаборЗаписей();
Набор.Отбор.Регистратор.Значение = Отбор.Регистратор.Значение;
Набор.Прочитать();
НадоЗаписать= Ложь;
Для Каждого Движение Из Набор Цикл
Если НЕ (Движение.Период = Движение.ПериодРегистрации) ТОгда
Движение.Период = Движение.ПериодРегистрации;
НадоЗаписать= Истина;
КонецЕсли;
//Сообщить(Движение.Период);
КонецЦикла;
Если НадоЗаписать ТОгда
Набор.Записать();
КонецЕсли;
//-маал
КонецПроцедуры"
Процедура ПриЗаписи(Отказ, Замещение, ТолькоЗапись)
Если ОбменДанными.Загрузка Тогда
Возврат;
КонецЕсли;
ЗарегистрироватьПерерасчетыНДФЛ();
//маал 17/03/2010 По просьбе бухгалтерии - гл бух и расчетчика - Все начисления проходят по периоду регистрации для НДФЛ
Набор = РегистрыНакопления.НДФЛСведенияОДоходах.СоздатьНаборЗаписей();
Набор.Отбор.Регистратор.Значение = Отбор.Регистратор.Значение;
Набор.Прочитать();
НадоЗаписать= Ложь;
Для Каждого Движение Из Набор Цикл
Если НЕ (Движение.Период = Движение.ПериодРегистрации) ТОгда
Движение.Период = Движение.ПериодРегистрации;
НадоЗаписать= Истина;
КонецЕсли;
//Сообщить(Движение.Период);
КонецЦикла;
Если НадоЗаписать ТОгда
Набор.Записать();
КонецЕсли;
//-маал
КонецПроцедуры"
Читают тему
(гостей: 1)