Имя: Пароль:
1C
1C 7.7
v7: Дублируются данные макета
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=http://postimage.org/image/qjzc6a6h5/][img]http://s20.postimage.org/qjzc6a6h5/image.jpg[/img][/url]

Скреен вывода на печать: [url=http://postimage.org/image/46rljh5jd/][img]http://s20.postimage.org/46rljh5jd/image.jpg[/img][/url]
1 ЧеловекДуши
 
06.03.13
13:37
2 crisalis
 
06.03.13
13:40
Фи..я получилося (((

Скреен макета:
http://postimage.org/image/qjzc6a6h5/

Скреен вывода на печать:
http://postimage.org/image/46rljh5jd/
3 Chum
 
06.03.13
13:52
анакойхер???
>    Таб.ПрисоединитьСекцию("Подвал|Столбец");

Делай проще:
Таб.ВывестиСекцию("Подвал");
4 Rie
 
06.03.13
13:54
(0) А что такое секция "столбец"? Уж не захватывает она все данные? Если так - то ты сам её дважды выводишь - сначала в ВывестиСекцию(), потом - в ПрисоединитьСекцию().
5 crisalis
 
06.03.13
13:57
Все вопрос закрыт это оно и есть !!! СПАСИБО !!! Иду читать ЖК.
6 KishMish
 
06.03.13
13:57
в настройках принтера стоит два экземляра на страницу?
7 ЧеловекДуши
 
06.03.13
14:04
(6) Нет, автор сам дважды выводил :)

Таб.ВывестиСекцию("Шапка|Столбец");
Таб.ПрисоединитьСекцию("Шапка|Столбец");

Как бы все одно и тоже...
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс