Общее·количество·просмотров·страницы

вторник, 26 ноября 2019 г.

1С, программное создание и заполнение документов "Перенос данных" и "Корректировка регистров"

В типовых конфигурациях присутствуют документы корректировки регистров, такие как "Перенос данных" и "Корректировка регистров", разберем программное создание и заполнение документов. На примере конфигурации ЗУП 3.1 и документа "Перенос данных", документ "Корректировка регистров" можно сделать по аналогии. Необходимо заполнить регистр накопления "ВзаиморасчетыСДепонентами"

НовыйПереносДанных = Документы.ПереносДанных.СоздатьДокумент();
НовыйПереносДанных.Дата = ТекущаяДата();

//выберем движения по документу
ДвиженияПереносДанных = НовыйПереносДанных.Движения; 

//добавляем табличную часть регистра в документ, обязательно указываем имя регистра
НовыйПереносДанныхРН = НовыйПереносДанных.ТаблицаРегистров.Добавить();
НовыйПереносДанныхРН.Имя = "ВзаиморасчетыСДепонентами";

//выбираем движения по регистру
ВзаиморасчетыСДепонентами = ДвиженияПереносДанных.ВзаиморасчетыСДепонентами;
НовыйПереносДанных.Записать(); //обязательно записываем документ т.к. нужна ссылка на регистратор


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

//записываем сначала движения затем документ
ВзаиморасчетыСДепонентами.Записать();
НовыйПереносДанных.Записать();





Комментариев нет:

Отправить комментарий