v8.3: Скопировать табличную часть документа при нажатии на кнопку

 

&НаКлиенте

Процедура ОкПродукт(Команда)

    СоздатьПолеНаСервере();

КонецПроцедуры

 

&НаСервере

Процедура СоздатьПолеНаСервере()

    //Число=Элементы.КолВоПродукции.ТекущиеДанные;

    Число=Объект.КолВоПродукции;

    Для А=1 По Число Цикл

        //Добавляем реквизит

        нРеквизиты = Новый Массив;

        Реквизит = Новый РеквизитФормы("X" + Строка(Формат(А,"ЧГ=")), Новый ОписаниеТипов("ДокументСсылка.Продукция"), , "Созданное поле", Истина);

        нРеквизиты.Добавить(Реквизит);

        ИзменитьРеквизиты(нРеквизиты);

        

        //Добавляем поле ввода

        Элемент = ЭтаФорма.Элементы.Добавить("X" + Строка(Формат(А,"ЧГ=")), Тип("ПолеФормы"), ЭтаФорма.Элементы.ВыборПрод);

        Элемент.Вид = ВидПоляФормы.ПолеВвода;

        Элемент.ПутьКДанным = "X" + Строка(Формат(А,"ЧГ="));

    КонецЦикла;

    //Добавляем форме команду

    Кмд = ЭтаФорма.Команды.Добавить("ЗаписьПродукции");

    Кмд.Действие = "Записать";

    Кмд.Заголовок = "Записать";

    

    //Добавляем саму кнопку

    Элемент = ЭтаФорма.Элементы.Добавить("Записать", Тип("КнопкаФормы"), ЭтаФорма.Элементы.ВыборПрод);

    Элемент.Вид = ВидКнопкиФормы.ОбычнаяКнопка;

    Элемент.ИмяКоманды = "ЗаписьПродукции"; 

КонецПроцедуры

   

 &НаКлиенте

Процедура ЗаписьПродукции(Записать)

    МассивЗначений=Новый Массив;

    //ДокВыборка=ДокументСсылка.ЗапасыСырья;

    ДокВыборка=Объект.Сырье;

    Пока ДокВыборка.Следующий() Цикл

        МассивЗначений = ДокВыборка.Ресурсы.Выгрузить();

    КонецЦикла; 

КонецПроцедуры