Имя: Пароль:
1C
1С v8
Документ Корректировка записей регистров накопления (ЗУП)
0 Taffy
 
16.02.12
14:34
Нужно написать обработку, кот создаст док-т "Корр-ка записей регистров накопления"и заполнит регистр накопления "Расчет налоговых агентов с бюджетом по НДФЛ" на основаниии регистра накопления "НДФЛ расчеты с бюджетом".

//Создала документ
НовДокКоррЗап=Документы.КорректировкаЗаписейРегистровНакопления.СоздатьДокумент();
НовДокКоррЗап.Дата=ТекущаяДата();
ДвиженияКорр=НовДокКоррЗап.Движения;

НовСтрРег=НовДокКоррЗап.ТаблицаРегистровНакопления.Добавить();
НовСтрРег.Имя="РасчетыНалоговыхАгентовСБюджетомПоНДФЛ";
НовСтрРег.Представление="РасчетыНалоговыхАгентовСБюджетомПоНДФЛ";
НДФЛРасчетыСБюджетомДв=ДвиженияКорр.РасчетыНалоговыхАгентовСБюджетомПоНДФЛ;
НовДокКоррЗап.Записать();

Подскажите пожалуйста,а как мне записать в поля табличной части данные с регистра накопления "НДФЛ расчеты с бюджетом",при этом надо учитывать,что данные которые были скорректированы заново не корректировались.в каком русле мне двигаться.спасибо.
1 Taffy
 
16.02.12
15:22
Процедура СоздатьДОкументКорректировки()
   
   НовДокКоррЗап=Документы.КорректировкаЗаписейРегистровНакопления.СоздатьДокумент();
   НовДокКоррЗап.Дата=ТекущаяДата();
   ДвиженияКорр=НовДокКоррЗап.Движения;
   
   НовСтрРег=НовДокКоррЗап.ТаблицаРегистровНакопления.Добавить();
   НовСтрРег.Имя="РасчетыНалоговыхАгентовСБюджетомПоНДФЛ";
   НовСтрРег.Представление="Расчеты налоговых агентов с бюджетом по НДФЛ";
   РасчетыНалоговыхАгентовСБюджетомПоНДФЛДв=ДвиженияКорр.РасчетыНалоговыхАгентовСБюджетомПоНДФЛ;
   НовДокКоррЗап.Записать();
   //ДокКорректировки = НовДокКоррЗап.Ссылка;
   
   Запрос = Новый Запрос;
   Запрос.Текст =
       "ВЫБРАТЬ
       |    НДФЛРасчетыСБюджетом.ВидДвижения,
       |    НДФЛРасчетыСБюджетом.ФизЛицо,
       |    НДФЛРасчетыСБюджетом.Организация,
       |    НДФЛРасчетыСБюджетом.МесяцНалоговогоПериода,
       |    НДФЛРасчетыСБюджетом.КодПоОКАТО,
       |    НДФЛРасчетыСБюджетом.Налог,
       |    НДФЛРасчетыСБюджетом.Активность,
       |    НДФЛРасчетыСБюджетом.СтавкаНалогообложенияРезидента
       |ИЗ
       |    РегистрНакопления.НДФЛРасчетыСБюджетом КАК НДФЛРасчетыСБюджетом";
   
   Результат = Запрос.Выполнить();
   Выборка = Результат.Выбрать();
   
   Пока Выборка.Следующий() Цикл
       Строка=РасчетыНалоговыхАгентовСБюджетомПоНДФЛДв.Добавить();
       Строка.Период=ТекущаяДата();
       Строка.Регистратор=НовДокКоррЗап.Ссылка;
       Строка.ВидДвижения=Выборка.ВидДвижения;
       Строка.Активность=Истина;
       Строка.Организация=Выборка.Организация;
       Строка.ФизЛицо = Выборка.ФизЛицо;
       Строка.Ставка=Выборка.СтавкаНалогообложенияРезидента;
       Строка.МесяцНалоговогоПериода=Выборка.МесяцНалоговогоПериода;
       Строка.ОКАТО_КПП=Выборка.КодПоОКАТО;
   КонецЦикла;
   
   РасчетыНалоговыхАгентовСБюджетомПоНДФЛДв.Записать();
   НовДокКоррЗап.Записать();
КонецПроцедуры
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс