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