Как создать на основании нескольких документов, один документ 1С Бухгалтерия

&НаКлиенте
Процедура ОбработкаВыбора(ВыбранноеЗначение, ИсточникВыбора)
 
    Если ИсточникВыбора.ИмяФормы = "Обработка.ПодборНоменклатуры.Форма.Форма" Тогда
        ОбработкаВыбораПодборВставкаИзБуфераНаСервере(ВыбранноеЗначение, ИсточникВыбора.ИмяТаблицы);
    ИначеЕсли ИсточникВыбора.ИмяФормы = "Документ.СчетНаОплатуПокупателю.Форма.ФормаРеквизитыПечатиQRКод" Тогда
        ОбработкаВыбораРеквизитыОрганизацииКонтрагента(ВыбранноеЗначение, ИсточникВыбора);
    ИначеЕсли ИсточникВыбора.ИмяФормы = "Документ.ПоступлениеТоваровУслуг.Форма.ФормаВыбора"
        Или ИсточникВыбора.ИмяФормы = "Документ.СчетНаОплатуПоставщика.Форма.ФормаВыбора"
        Или ИсточникВыбора.ИмяФормы = "Документ.РеализацияТоваровУслуг.Форма.ФормаВыбора" Тогда
        ОбработкаЗаполненияТабличнойЧастиНаСервере(ВыбранноеЗначение, ИсточникВыбора.ИмяТаблицы);
    ИначеЕсли ИсточникВыбора.ИмяФормы = "Обработка.ПодборОсновныхСредств.Форма.Форма" Тогда
        ОбработкаВыбораПодборОСНаСервере(ВыбранноеЗначение);
    КонецЕсли;
    Если ИсточникВыбора.ИмяФормы = "Документ.Заказы.Форма.ФормаВыбора" Тогда
    Ссылка = СоздатьОбщийДок(ВыбранноеЗначение);
        Если Ссылка <> Неопределено Тогда
        ОткрытьФорму("Документ.СчетНаОплатуПокупателю.Форма.ФормаДокумента",Новый Структура ("Ключ",Ссылка),ЭтаФорма);
        КонецЕсли;
    КонецЕсли;
КонецПроцедуры
 
&НаКлиенте
Процедура ТоварыЗаполнитьИзЗаказа(Команда)
    ПараметрыФормыВыбора = Новый Структура;
    ПараметрыФормыВыбора.Вставить("ЗакрыватьПриВыборе", Ложь);
    ПараметрыФормыВыбора.Вставить("МножественныйВыбор", Истина);
    ОткрытьФорму("Документ.Заказы.ФормаВыбора",ПараметрыФормыВыбора,ЭтаФорма,,,,, РежимОткрытияОкнаФормы.БлокироватьОкноВладельца);
КонецПроцедуры
 
 
&НаСервере
Функция СоздатьОбщийДок(ВыбранноеЗначение)
    ТЗ = ПолучитьИзВременногоХранилища(ВыбранноеЗначение.АдресТоваровВХранилище);
    Док = РеквизитФормыВЗначение("Объект");
    // заполняем все общие реквизиты, те что не в табличной части дока, типа Организация, Клиент, Договор и т.д. //Проверяем, чтобы в счете были только данные //из заказов одного клиента по одному договору и от одной организации
    //Примерно: Док.Дата = ТекущаяДата(); 
    //Док.Контрагент = ТЗ[0].Контрагент; и т.п.
    Для Каждого Заказ ИЗ ТЗ Цикл
        Если Заказ.Контрагент = Док.Контрагент И Заказ.Организация = Док.Организация 
        И Заказ.Договор  = Док.Договор Тогда
        НовСтрока = Док.Товары.Добавить();
            Для Каждого Стр ИЗ Заказ.ТоварыУслуги Цикл
            ЗаполнитьЗначенияСвойств(НовСтрока ,Стр);
            КонецЦикла;
        КонецЕсли;
    КонецЦикла;
    НачатьТранзакцию();
    Попытка
        //Док.Записать(РежимЗаписиДокумента.Проведение);
        ЗафиксироватьТранзакцию();
        Возврат Док.Ссылка;
    Исключение
        Сообщение = Новый СообщениеПользователю;
        Сообщение.Текст = ОписаниеОшибки();
        Сообщение.Сообщить();
        ОтменитьТранзакцию();
        Возврат Неопределено;
    КонецПопытки;
КонецФункции;

&НаСервере
Функция СоздатьОбщийДок(ВыбранноеЗначение)
  
    Док = РеквизитФормыВЗначение("Объект");
    // заполняем все общие реквизиты, те что не в табличной части дока, типа Организация, Клиент, Договор и т.д. //Проверяем, чтобы в счете были только данные //из заказов одного клиента по одному договору и от одной организации
    //Примерно: Док.Дата = ТекущаяДата(); 
    //Док.Контрагент = ТЗ[0].Контрагент; и т.п.
    Для Каждого Заказ ИЗ ВыбранноеЗначение Цикл
       
        НовСтрока = Док.Товары.Добавить();
            Для Каждого Стр ИЗ Заказ.ТоварыУслуги Цикл
            ЗаполнитьЗначенияСвойств(НовСтрока ,Стр);
            КонецЦикла;
        
    КонецЦикла;
    НачатьТранзакцию();
    Попытка
        //Док.Записать(РежимЗаписиДокумента.Проведение);
        ЗафиксироватьТранзакцию();
        Возврат Док.Ссылка;
    Исключение
        Сообщение = Новый СообщениеПользователю;
        Сообщение.Текст = ОписаниеОшибки();
        Сообщение.Сообщить();
        ОтменитьТранзакцию();
        Возврат Неопределено;
    КонецПопытки;
КонецФункции;

СоздатьОбщийДок(ВыбранноеЗначение);

&НаСервере
Процедура СоздатьОбщийДок(ВыбранноеЗначение)
  
    Док = РеквизитФормыВЗначение("Объект");
    // заполняем все общие реквизиты, те что не в табличной части дока, типа Организация, Клиент, Договор и т.д. //Проверяем, чтобы в счете были только данные //из заказов одного клиента по одному договору и от одной организации
    //Примерно: Док.Дата = ТекущаяДата(); 
    //Док.Контрагент = ТЗ[0].Контрагент; и т.п.
    Для Каждого Заказы ИЗ ВыбранноеЗначение Цикл
       
        НовСтрока = Док.Товары.Добавить();
        Для Каждого Стр ИЗ Заказы.ТоварыУслуги Цикл 
            
            НовСтрока.Количество = Стр.Количество;
            НовСтрока.СтавкаНДС = Стр.НДС;
            НовСтрока.Сумма = Стр.СуммаБезНДС;
            НовСтрока.СуммаНДС = Стр.СуммаИтого;
            НовСтрока.Номенклатура = Стр.Товары;
            НовСтрока.Цена = Стр.ЦенаЗаШтуку;
            ЗаполнитьЗначенияСвойств(НовСтрока ,Стр);
            КонецЦикла;
        
    КонецЦикла;
    НачатьТранзакцию();
    Попытка
        //Док.Записать(РежимЗаписиДокумента.Проведение);
        ЗафиксироватьТранзакцию();
    Исключение
        Сообщение = Новый СообщениеПользователю;
        Сообщение.Текст = ОписаниеОшибки();
        Сообщение.Сообщить();
        ОтменитьТранзакцию();
    КонецПопытки;
КонецПроцедуры;