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