Вообще вывожу на печать таблицу
Нужно сделать так чтобы, по кнопке, выводилось сразу две таблицы, и записывало значения из первых двух строк
Как выводить на выбор две таблицы я разобрался
Но значения хватает только из первой
Подозреваю дело в цикле обхода по строкам
Прошу помочь знающих мастеров
Процедура ПечатьЗаяви()
Таб = СоздатьОбъект("Таблица");
Сообщить (Шаблон("Строка [Таб.НомерСтроки]"));
//СуффиксТаблицы = ?(Константа.ФормыНаУкраинском = Да, "_Укр", "");
Таб.ИсходнаяТаблица("Заява");
СЗ = СоздатьОбъект("СписокЗначений");
СЗ.ДобавитьЗначение("Заява","Заява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