Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Спасибо,дело в том, что когда заходишь в документ НЗР и в настройке состава регистра ставишь галку Учет доходов для исчисления страховых взносов, то этот раздел пуст и не показывает никаких данных. А если в этом документе нажать на кнопку перейти - Учет доходов для исчисления страховых взносов, то там данные как раз есть (которые нужно удалить), и они ссылаются на этот документ НЗР. Я не понимаю,почему они не отображаются.
переформирует записи регистра Учет доходов для исчисления страховых взносов.
данные берет из основных и доп начислений
перед запуском кода наведите порядок в начислениях в части облогаемости страховыми взносами
регистр очищается и создается вновь
данные берет из основных и доп начислений
перед запуском кода наведите порядок в начислениях в части облогаемости страховыми взносами
регистр очищается и создается вновь
Док=документы.ПереносДанных.Выбрать();
пока док.Следующий() цикл
Если стрчисловхождений(Док.номер,"НЗР")=0 тогда
продолжить;
КонецЕсли;
РегО = РегистрыРасчета.ОсновныеНачисленияРаботниковОрганизаций.СоздатьНаборЗаписей();
РегО.Отбор.Регистратор.Значение = док.ссылка;
РегО.Прочитать();
РегД = РегистрыРасчета.ДополнительныеНачисленияРаботниковОрганизаций.СоздатьНаборЗаписей();
РегД.Отбор.Регистратор.Значение = док.ссылка;
РегД.Прочитать();
РегРСВ = РегистрыНакопления.СтраховыеВзносыСведенияОДоходах.СоздатьНаборЗаписей();
РегРСВ.Отбор.Регистратор.Значение = док.ссылка;
РегРСВ.Прочитать();
сообщить (док);
сообщить (началоМесяца(док.ПериодРегистрации));
РегРСВ.Очистить();
для каждого стр из Рего цикл
новая=РЕГРСВ.Добавить();
новая.период=началоМесяца(док.ПериодРегистрации);
новая.ФизЛицо=стр.Физлицо;
новая.Организация=стр.Организация;
новая.ОбособленноеПодразделение=стр.ОбособленноеПодразделение;
новая.ВидДохода=стр.ВидРасчета.КодДоходаСтраховыеВзносы;
новая.Результат=стр.Результат;
новая.ВидРасчета=стр.ВидРасчета;
Конеццикла;
для каждого стр из РегД цикл
новая=РЕГРСВ.Добавить();
новая.период=началоМесяца(док.ПериодРегистрации);
новая.ФизЛицо=стр.Физлицо;
новая.Организация=стр.Организация;
новая.ОбособленноеПодразделение=стр.ОбособленноеПодразделение;
новая.ВидДохода=стр.ВидРасчета.КодДоходаСтраховыеВзносы;
новая.Результат=стр.Результат;
новая.ВидРасчета=стр.ВидРасчета;
Конеццикла;
РегРСВ.Записать();
Конеццикла;
сообщить("ГОТОВО!");
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот