0
crisalis
06.03.13
✎
13:37
|
Добрый день, подскажите пожалуйста почему дублируются данные макета:
Код:
Процедура Печать1()
ФирмаРазделитель.ИспользоватьДату(ДатаДок);
Таб=СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Таблица");
Пропись(spl(Константа.ОсновнаяВалюта));
сумпро=сокрл(формат(Итог("_Сумма"),"ЧПДС"));
если лев(сумпро,2)= "Si" тогда
суммаПропись=врег(сред(сумпро,4,1))+ сред(сумпро,5,стрдлина(сумпро)-4);
иначе
суммаПропись=сумпро;
конецесли;
Таб.ВывестиСекцию("Шапка|Столбец");
Таб.ПрисоединитьСекцию("Шапка|Столбец");
ВыбратьСтроки();
Ном=0;
// cvictor
МассаБрутто = 0;
ИтогоМассаБрутто = 0;
// cvictor
Пока ПолучитьСтроку() = 1 do
Ном=Ном+1;
//Таб.ВывестиСекцию("Строка");
// cvictor
МассаБрутто = (Товар.МассаБрутто * Количество)/1000;
ИтогоМассаБрутто = ИтогоМассаБрутто + МассаБрутто;
Если МассаБрутто = 0 Тогда
парамМассаБрутто = "---";
Иначе
парамМассаБрутто = Строка(МассаБрутто);
КонецЕсли;
// cvictor
Таб.ВывестиСекцию("Строка|Столбец");
Таб.ПрисоединитьСекцию("Строка|Столбец");
enddo;
//Таб.ВывестиСекцию("Подвал");
Таб.ВывестиСекцию("Подвал|Столбец");
Таб.ПрисоединитьСекцию("Подвал|Столбец");
// cvictor
//Таб.Защита(1);
// cvictor
Таб.ТолькоПросмотр(1);
Таб.Опции(0,0,0,0,);
Таб.ПараметрыСтраницы(2,100,,,,0,0,0,0,);
Таб.Показать("Печать накладной","");
КонецПроцедуры
Скреен макета: [url=
Скреен вывода на печать: [url=
|
|