1С 8.3: Как программно внести записи в регистры с помощью документа Перенос данных - ЗУП по зубам - Всё для ЗУП 3.1 на 1С 8.3

1С 8.3: Как программно внести записи в регистры с помощью документа Перенос данных

Перед нами задача: необходимо написать обработку, которая будет вносить записи в регистр сведений, накопления или расчета. Для хранения этих записей будем использовать типовой  документ «Перенос данных», который будет выступать регистратором.

Итак, разместим на форме нашей обработки реквизит ПереносДанных со ссылкой на одноименный документ. Также создадим табличную часть ТЧ с реквизитами, аналогичными  регистру накопления СведенияОДоходахСтраховыеВзносы. Вставим в форму кнопку для выполнения записи в документ. Запустим обработку в пользовательском режиме, выберем документ, заполним табличную часть, нажмем на кнопку.

С помощью следующего кода данные из табличной части будут перенесены в регистр накопления в документе «Перенос данных»

НаборЗаписей = РегистрыНакопления.СведенияОДоходахСтраховыеВзносы.СоздатьНаборЗаписей();
	НаборЗаписей.Отбор.Регистратор.Установить(Объект.ПереносДанных);
	НаборЗаписей.Прочитать();
	Для Каждого СтрокаТЧ из Объект.ТЧ Цикл
		Запись = НаборЗаписей.Добавить();
		Запись.Период = СтрокаТЧ.Период;
		Запись.Регистратор = Объект.ПереносДанных;
		Запись.ГоловнаяОрганизация = Объект.Организация;
		Запись.ФизическоеЛицо = СтрокаТЧ.Физлицо;
		Запись.Организация = Объект.Организация;
		Запись.ВидДохода = СтрокаТЧ.ВидДохода;
		Запись.Сумма = СтрокаТЧ.Разница;
		Запись.Сотрудник = СтрокаТЧ.Сотрудник;
		Запись.Начисление = СтрокаТЧ.Начисление;
		Запись.Подразделение = СтрокаТЧ.Подразделение;
		Запись.ДатаНачала = СтрокаТЧ.Период;
		Запись.ДатаПолученияДохода = СтрокаТЧ.Период;
	КонецЦикла;	
НаборЗаписей.Записать();

Теперь вам по зубам программное внесение записей в регистр с помощью документа Перенос данных!

Добавить комментарий

Войти с помощью: 

Ваш e-mail не будет опубликован. Обязательные поля помечены *