Копирование строк из табличной части

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