объединить документы в один

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

Для Каждого Строка из ну и дальше все понятно заполняем все что нужно.
КонецЦикла;

Процедура ОбъединитьДокументыНаСервере (ТабличныйДокумент) Экспорт
	
	Отказ = Ложь;
	
	Попытка
		УТ = ПодключитьсяКБазе(ИмяСервера, ИмяБазы, ПутьКБазе, Пользователь, Пароль);	
	Исключение
		Сообщить("База не открыта");
		Отказ = Истина;
	КонецПопытки;
	
	Если Отказ Тогда
		Возврат;
	КонецЕсли;    	
	
	ТЗПроверки = СписокДокументов.Выгрузить(,"Выбран,Контрагент,СсылкаБух");
	МассивСтрок = ТЗПроверки.НайтиСтроки(Новый Структура("Выбран", Ложь));
	Для Каждого ЭлементМассив Из МассивСтрок Цикл
		ТЗПроверки.Удалить(ЭлементМассив); //удаляем строки
	КонецЦикла;
	
	ТЗПроверки.Свернуть("Выбран,Контрагент,СсылкаБух");
	
	ДокументыДляПереноса = СписокДокументов.НайтиСтроки(Новый Структура("Выбран, Вид",Истина,"Реализация (акты, накладные)"));
	
	Если ТЗПроверки.Количество()= 1 Тогда
		Если не ЗначениеЗаполнено(ТЗПроверки[0].СсылкаБух) Тогда
			//////////////------------------------------------
			НаклБух = Документы.РеализацияТоваровУслуг.СоздатьДокумент();
			РеализацияУТ = УТ.Документы.РеализацияТоваровУслуг.НайтиПоНомеру(ДокументыДляПереноса[0].Номер, ДокументыДляПереноса[0].Дата);
			//заполним шапку по первой РТУ 	
			Организация = ДокументыДляПереноса[0].Организация;		
			НаклБух.Дата 					= КонецДня(ТекущаяДата());
			НаклБух.ВалютаДокумента 		= Справочники.Валюты.НайтиПоКоду(РеализацияУТ.Валюта.Код);
			НаклБух.ВидОперации 			= Перечисления.ВидыОперацийРеализацияТоваров.ПродажаКомиссия;
			Отказ = Ложь;
			
			Если Не  ЗначениеЗаполнено(ДокументыДляПереноса[0].КонтрагентЗамена) Тогда
				НаклБух.Контрагент 				= НайтиКонтрагента(РеализацияУТ.Контрагент, РеализацияУТ, "Реализация (акты, накладные)", ПроблемныеКонтрагенты, Отказ);
			Иначе	
				НаклБух.Контрагент 				= ДокументыДляПереноса[0].КонтрагентЗамена;
			КонецЕсли; 
			
			
			
			Комментарий="";
			Для каждого стр Из ДокументыДляПереноса Цикл
				НаклБух.Комментарий = Комментарий +"н"+стр.Номер+"д"+стр.Дата+";" 
			КонецЦикла;               //"н"+1+"д"+2+";"
			
			НаклБух.Комментарий = Комментарий;
			
			НаклБух.КратностьВзаиморасчетов = 1;
			НаклБух.КурсВзаиморасчетов 		= 1;
			НаклБух.Склад 					= ЭтотОбъект.СкладПоУмолчанию;
			НаклБух.Организация				= Организация;
			НаклБух.Ответственный			= Ответственный;
			НаклБух.СуммаВключаетНДС		= РеализацияУТ.ЦенаВключаетНДС;
			НаклБух.СуммаДокумента			= РеализацияУТ.СуммаДокумента;
			НаклБух.СпособЗачетаАвансов		= Перечисления.СпособыЗачетаАвансов.Автоматически;
			НаклБух.ПодразделениеОрганизации = НайтиПодразделение(РеализацияУТ.Подразделение);
			
			Если НЕ РеализацияУТ.Договор.Наименование="" Тогда
				НаклБух.ДоговорКонтрагента		= НайтиДоговор(РеализацияУТ.Договор, НаклБух.Контрагент,УТ.XMLСтрока(РеализацияУТ.Договор.ТипДоговора), НаклБух.ВалютаДокумента, "Договор с покупателем");
			Иначе
				НаклБух.ДоговорКонтрагента		= НайтиДоговор(Неопределено, НаклБух.Контрагент, "СПокупателем", НаклБух.ВалютаДокумента, "Договор с покупателем");  			
			КонецЕсли;  	
			
			Документы.РеализацияТоваровУслуг.ЗаполнитьСчетаУчетаРасчетов(НаклБух);		
			
			
			//ЗАПОЛНЯЕМ ТЧ
			РеализацияУТ = "";
			Для каждого ДОК  Из ДокументыДляПереноса Цикл
				
				РеализацияУТ = УТ.Документы.РеализацияТоваровУслуг.НайтиПоНомеру(ДОК.Номер, ДОК.Дата); //НАШЛИ ДОКУМЕНТ В БАЗЕ УТ 				
				
				
				Если УТ.XMLСтрока(РеализацияУТ.Статус) = "Отгружено" Тогда
					ТоварыУТ = РеализацияУТ.ВидыЗапасов;
				Иначе
					ТоварыУТ = РеализацияУТ.Товары;
				КонецЕсли;	
				
				Для каждого Стр из ТоварыУТ Цикл
					
					АналитикаНоменклатуры = Стр.АналитикаУчетаНоменклатуры;
					
					// LS.AKU.26.03.2020 15:38:39 -> Обмен по расписанию в переносе УТ 11-БП 
					Услуга = ?(УТ.XMLСтрока(АналитикаНоменклатуры.Номенклатура.ТипНоменклатуры)="Услуга", Истина, Ложь);
					Если Услуга Тогда
						Продолжить;
					КонецЕсли;	
					//<-
					НовСтрока = НаклБух.Товары.Добавить();
					
					НовСтрока.Номенклатура = НайтиНоменклатуру(АналитикаНоменклатуры.Номенклатура);
					НовСтрока.Субконто			= НовСтрока.Номенклатура.НоменклатурнаяГруппа;
					НовСтрока.Количество 		= Стр.Количество;
					НовСтрока.Сумма 			= Стр.СуммаСНДС; 			
					// LS.AKU.10.08.2018 ->
					//НовСтрока.Цена 				= Стр.Цена;
					НовСтрока.Цена = ?(ЗначениеЗаполнено(Стр.Количество), Стр.СуммаСНДС/Стр.Количество, 0);
					//<-
					НовСтрока.СтавкаНДС = НайтиПеречисление(УТ.XMLСтрока(Стр.СтавкаНДС), "НДС");
					НовСтрока.СуммаНДС = Стр.СуммаНДС;
					НовСтрока.ЕдиницаИзмерения 	= НовСтрока.Номенклатура.ЕдиницаИзмерения;
					НовСтрока.Коэффициент 		= 1;
					Если УТ.XMLСтрока(РеализацияУТ.Статус) = "Отгружено" Тогда
						НовСтрока.НомерГТД = НайтиГТД(Стр.НомерГТД.Код);
						НовСтрока.СтранаПроисхождения = НайтиСтрану(Стр.НомерГТД.СтранаПроисхождения);
					КонецЕсли;	
					
					
				КонецЦикла;
				
				Документы.РеализацияТоваровУслуг.ЗаполнитьСчетаУчетаВТабличнойЧасти(НаклБух, "Товары");	
				// Услуги в отдельную ТЧ
				ТоварыУТ = РеализацияУТ.Товары;
				Для каждого Стр из ТоварыУТ Цикл
					
					АналитикаНоменклатуры = Стр.АналитикаУчетаНоменклатуры;
					
					Услуга = ?(УТ.XMLСтрока(АналитикаНоменклатуры.Номенклатура.ТипНоменклатуры)="Услуга", Истина, Ложь);
					Если НЕ Услуга Тогда
						Продолжить;
					КонецЕсли;	
					
					НовСтрока = НаклБух.Услуги.Добавить();
					
					НовСтрока.Номенклатура = НайтиНоменклатуру(АналитикаНоменклатуры.Номенклатура);
					НовСтрока.Субконто			= НовСтрока.Номенклатура.НоменклатурнаяГруппа;
					НовСтрока.Количество 		= Стр.Количество;
					НовСтрока.Сумма 			= Стр.СуммаСНДС; 			
					НовСтрока.Цена = ?(ЗначениеЗаполнено(Стр.Количество), Стр.СуммаСНДС/Стр.Количество, 0);
					НовСтрока.СтавкаНДС = НайтиПеречисление(УТ.XMLСтрока(Стр.СтавкаНДС), "НДС");
					НовСтрока.СуммаНДС = Стр.СуммаНДС;
					
				КонецЦикла;
				Документы.РеализацияТоваровУслуг.ЗаполнитьСчетаУчетаВТабличнойЧасти(НаклБух, "Услуги");	
				//<-
			КонецЦикла;	
			
			
			Попытка
				Если НЕ ПроводитьДокументы Тогда
					НаклБух.Записать(РежимЗаписиДокумента.Запись);
					Для каждого ДОКУТ Из ДокументыДляПереноса Цикл
						РеализацияУТ = УТ.Документы.РеализацияТоваровУслуг.НайтиПоНомеру(ДОКУТ.Номер, ДОКУТ.Дата); //НАШЛИ ДОКУМЕНТ В БАЗЕ УТ 				
						ЗаписатьУИД(НаклБух, УТ.XMLString(РеализацияУТ.УникальныйИдентификатор()));  
						//ОбъектУТРеализация = РеализацияУТ.GetObject();
						//ОбъектУТРеализация.АМ_ЗагруженВБухгалтерию = Истина;
						//ОбъектУТРеализация.Записать();
						
					КонецЦикла; 
					
				Иначе
					НаклБух.Записать(РежимЗаписиДокумента.Проведение, РежимПроведенияДокумента.Неоперативный);
					Для каждого ДОКУТ Из ДокументыДляПереноса Цикл
						РеализацияУТ = УТ.Документы.РеализацияТоваровУслуг.НайтиПоНомеру(ДОКУТ.Номер, ДОКУТ.Дата); //НАШЛИ ДОКУМЕНТ В БАЗЕ УТ 				
						ЗаписатьУИД(НаклБух, УТ.XMLString(РеализацияУТ.УникальныйИдентификатор()));  
						//ОбъектУТРеализация = РеализацияУТ.GetObject();
						//ОбъектУТРеализация.АМ_ЗагруженВБухгалтерию = Истина;
						//ОбъектУТРеализация.Записать();	 
					КонецЦикла; 
					Сообщить("Создан документ РеализацияТоваровУслуг: """ + НаклБух.Номер + """ от: " + Формат(НаклБух.Дата, "ДЛФ=Д")); 								
					
					
				КонецЕсли;
			Исключение	
				НаклБух.Записать(РежимЗаписиДокумента.Запись);
				
				Для каждого ДОКУТ Из ДокументыДляПереноса Цикл
					РеализацияУТ = УТ.Документы.РеализацияТоваровУслуг.НайтиПоНомеру(ДОКУТ.Номер, ДОКУТ.Дата); //НАШЛИ ДОКУМЕНТ В БАЗЕ УТ 				
					ЗаписатьУИД(НаклБух, УТ.XMLString(РеализацияУТ.УникальныйИдентификатор()));  
					//ОбъектУТРеализация = РеализацияУТ.GetObject();
					//ОбъектУТРеализация.АМ_ЗагруженВБухгалтерию = Истина;
					//ОбъектУТРеализация.Записать();	 
				КонецЦикла; 
			КонецПопытки;
			
			
		Иначе
			Сообщить("Нельзя выбрать документ для которых уже есть сссылки в БП 3.0"); 
		КонецЕсли; 
		
		
	Иначе 
		Сообщить("Объединение документов возможно только по одному контрагенту.");
	КонецЕсли;
	
	СообщитьЗаписатьВЛог(" ");
	СообщитьЗаписатьВЛог("****** Перенос документов успешно завершен! ******");
	
	УТ = "";  
	
КонецПроцедуры