Создание одного СчетНаОплатуПоставщику на основании выделенных строк в ФормеСписка Заказы

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