Программное сосздание документа ПереносДанных
Всем привет.
Ребята, подскажите пожалуйста.
Хочу записать программно документ ПереносДанных и заполнить регистр ЗарплатаКВыплате
Мой код. Уже перепробовал все. При открытии документ пустой, регистр пустой. Данные не записываются. Подскажите пожалуйста как на основании запроса создать документ
Ребята, подскажите пожалуйста.
Хочу записать программно документ ПереносДанных и заполнить регистр ЗарплатаКВыплате
&НаСервере
Процедура ВыполнитьНаСервере()
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| ВедомостьНаВыплатуЗарплатыВБанкЗарплата.Ссылка КАК Ссылка,
| ВедомостьНаВыплатуЗарплатыВБанкЗарплата.ИдентификаторСтроки КАК ИдентификаторСтроки,
| ВедомостьНаВыплатуЗарплатыВБанкЗарплата.Сотрудник КАК Сотрудник,
| ВедомостьНаВыплатуЗарплатыВБанкЗарплата.ФизическоеЛицо КАК ФизическоеЛицо,
| ВедомостьНаВыплатуЗарплатыВБанкЗарплата.Подразделение КАК Подразделение,
| ВедомостьНаВыплатуЗарплатыВБанкЗарплата.ПериодВзаиморасчетов КАК ПериодВзаиморасчетов,
| ВедомостьНаВыплатуЗарплатыВБанкЗарплата.СтатьяФинансирования КАК СтатьяФинансирования,
| ВедомостьНаВыплатуЗарплатыВБанкЗарплата.СтатьяРасходов КАК СтатьяРасходов,
| ВедомостьНаВыплатуЗарплатыВБанкЗарплата.ДокументОснование КАК ДокументОснование,
| ВедомостьНаВыплатуЗарплатыВБанкЗарплата.ВидДоходаИсполнительногоПроизводства КАК ВидДоходаИсполнительногоПроизводства,
| ВедомостьНаВыплатуЗарплатыВБанкЗарплата.КВыплате КАК КВыплате,
| ВедомостьНаВыплатуЗарплатыВБанкЗарплата.КомпенсацияЗаЗадержкуЗарплаты КАК КомпенсацияЗаЗадержкуЗарплаты,
| ВедомостьНаВыплатуЗарплатыВБанкЗарплата.НомерЛицевогоСчета КАК НомерЛицевогоСчета
|ИЗ
| Документ.ВедомостьНаВыплатуЗарплатыВБанк.Зарплата КАК ВедомостьНаВыплатуЗарплатыВБанкЗарплата
|ГДЕ
| ВедомостьНаВыплатуЗарплатыВБанкЗарплата.Ссылка = &Ссылка
|ИТОГИ ПО
| Сотрудник";
Запрос.УстановитьПараметр("Ссылка", Документы.ВедомостьНаВыплатуЗарплатыВБанк.ПолучитьСсылку(Новый УникальныйИдентификатор("8af9af91-97e3-11ee-8114-94188235ab89"))); //Ведомость в банк ГРЗК-000945 от 11.12.202//УстановитьПараметр("Ссылка", Ссылка);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаСотрудник = РезультатЗапроса.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
//Тест
а = Документы.ПереносДанных.ПолучитьСсылку(Новый УникальныйИдентификатор("a5baf2e6-f843-11ed-810c-94188235ab89"));
Пока ВыборкаСотрудник.Следующий() Цикл
//---
Выборка = ВыборкаСотрудник.Выбрать();
ДокПереносДанных = Документы.ПереносДанных.СоздатьДокумент();
ДокПереносДанных.Дата = ТекущаяДата();
ДокПереносДанных.Организация = Организация;
ДокПереносДанных.ПериодРегистрации = СтроковыеФункцииКлиентСервер.СтрокаВДату(НачалоМесяца(ДокПереносДанных.Дата));
ТаблицаРегистров = ДокПереносДанных.ТаблицаРегистров.Добавить();
ТаблицаРегистров.Имя = "ЗарплатаКВыплате";
ДокПереносДанных.Комментарий = "+++++" + ВыборкаСотрудник.Сотрудник;
ДокПереносДанных.Записать();
//ПолучитьОбъект = ДокПереносДанных.Ссылка.ПолучитьОбъект();
НаборЗаписей = РегистрыНакопления.ЗарплатаКВыплате.СоздатьНаборЗаписей();
//НаборЗаписей = ДокПереносДанных.Движения.ЗарплатаКВыплате;//.ЗарплатаКВыплате;
НаборЗаписей.Отбор.Регистратор.Установить(ДокПереносДанных.Ссылка);
НаборЗаписей.Прочитать();
НаборЗаписей.Записать();
Пока Выборка.Следующий() Цикл
//
//СоздатьДокументПереносДанных(Выборка);
Запись = НаборЗаписей.ДобавитьПриход();
//Запись = НаборЗаписей.Добавить();
ЗаполнитьЗначенияСвойств(Запись, Выборка);
Запись.Регистратор = ДокПереносДанных.Ссылка;
//Запись.Период = ДокПереносДанных.Ссылка.Дата;
//
НаборЗаписей.Записать();
КонецЦикла;
ДокПереносДанных.Записать();
//---
КонецЦикла;
КонецПроцедуры
ПоказатьМой код. Уже перепробовал все. При открытии документ пустой, регистр пустой. Данные не записываются. Подскажите пожалуйста как на основании запроса создать документ
Свернуть все
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот