Вообще вывожу на печать таблицу
Нужно сделать так чтобы, по кнопке, выводилось сразу две таблицы, и записывало значения из первых двух строк
Как выводить на выбор две таблицы я разобрался
Но значения хватает только из первой
Подозреваю дело в цикле обхода по строкам
Прошу помочь знающих мастеров

Процедура ПечатьЗаяви()
    Таб = СоздатьОбъект("Таблица");   
    Сообщить (Шаблон("Строка [Таб.НомерСтроки]"));
   

    //СуффиксТаблицы = ?(Константа.ФормыНаУкраинском = Да, "_Укр", "");
    Таб.ИсходнаяТаблица("Заява");
                    
       СЗ = СоздатьОбъект("СписокЗначений");
        СЗ.ДобавитьЗначение("Заява","Заява1");
        СЗ.ДобавитьЗначение("Заява","Заява2");
        Табл = 0;
        Результат = СЗ.ВыбратьЗначение(Табл,,,,1);
        Если Результат <> 1 Тогда
            Возврат;
        КонецЕсли;
            Таб.ИсходнаяТаблица(""+Табл);
            
    глУстПропись(Гривня);
    Датад = Формат(ДатаДок, "ДДДММММГГГГ");     
    ПечСНДСПропись = глСуммаПрописью(СуммаСНДС,Валюта);
    НП = 1;           
    
    ВыбратьСтроки();

    ПолучитьСтроку();
        Номер = ККА.Наименование; 
        Тип = Строка(ККА.ТипККАСпр);      
        ВерсияПО = Строка(ККА.ТипККАСпр.ВерсияПО);      
        ФискальныйНомер = Строка(ККА.ФискальныйНомер);  
        МодемМодель = Строка(ККА.МодемМодель);      
        МодемНомер = Строка(ККА.МодемНомер); 
        Производитель = Строка(ККА.ТипККАСпр.Производитель);
        ДатаИзготовления = Строка(ККА.ДатаИз);  
        Таб.ВывестиСекцию("Шапка");
        ВыбратьСтроки();   
                                      

    ПолучитьСтроку();
        Номер = ККА.Наименование; 
        Тип = Строка(ККА.ТипККАСпр);      
        ВерсияПО = Строка(ККА.ТипККАСпр.ВерсияПО);      
        ФискальныйНомер = Строка(ККА.ФискальныйНомер);  
        МодемМодель = Строка(ККА.МодемМодель);      
        МодемНомер = Строка(ККА.МодемНомер); 
        Производитель = Строка(ККА.ТипККАСпр.Производитель);
        ДатаИзготовления = Строка(ККА.ДатаИз);  
        Таб.ВывестиСекцию("Шапка");
        ВыбратьСтроки(); 

    Пока ПолучитьСтроку() = 1 Цикл   
        

        Номер = ККА.Наименование;   
        Тип = Строка(ККА.ТипККАСпр);           
        Производитель = Строка(ККА.ТипККАСпр.Производитель);
    
        //Таб.ВывестиСекцию("Строка");
        НП = НП + 1;
    КонецЦикла;    
    Таб.Защита(Константа.ФлагЗащитыТаблиц);
    Таб.ТолькоПросмотр(1);   
    Таб.Опции(0,0,,);
    Таб.ПараметрыСтраницы(1,100,,10,0,10,0,0,0,0);
    Таб.Показать("ПЕЧАТЬ: Договор на сервисное обслуживание","");     
    Таб.Показать("ПЕЧАТЬ: Договор на сервисное обслуживание","");
    глУстПропись(Гривня); 
КонецПроцедуры

Сообщение отредактировал Vofka - 23.05.17, 10:03

NeFess @ Сегодня, 9:48 ,