Программное сосздание документа ПереносДанных

&НаСервере
Процедура ВыполнитьНаСервере()

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

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