Имя: Пароль:
1C
1С v8
печатная форма дублируется
0 prog-Igor
 
07.11.14
13:02
Не могу понять почему через область "Подвал" дублируется печатная форма,
вот код
Макет = Документы.РеализацияТоваровУслуг.ПолучитьМакет("ПечатьЧек");
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |    РеализацияТоваровУслуг.Дата,
    |    РеализацияТоваровУслуг.Номер,
    |    РеализацияТоваровУслуг.Контрагент,
    |    РеализацияТоваровУслуг.Организация,
    |    РеализацияТоваровУслуг.СуммаДокумента,
    |    РеализацияТоваровУслуг.Товары.(
    |        НомерСтроки,
    |        Номенклатура,
    |        Упаковка,
    |        Количество,
    |        Цена,
    |        Сумма
    |    )
    |ИЗ
    |    Документ.РеализацияТоваровУслуг КАК РеализацияТоваровУслуг
    |ГДЕ
    |    РеализацияТоваровУслуг.Ссылка В(&Ссылка)";
    Запрос.Параметры.Вставить("Ссылка", Ссылка);
    Выборка = Запрос.Выполнить().Выбрать();

    ОбластьЗаголовок = Макет.ПолучитьОбласть("Заголовок");
    
    Шапка = Макет.ПолучитьОбласть("Шапка");
    ОбластьТоварыШапка = Макет.ПолучитьОбласть("ТоварыШапка");
    ОбластьТовары = Макет.ПолучитьОбласть("Товары");
    ТабДок.Очистить();

    ВставлятьРазделительСтраниц = Ложь;
    Пока Выборка.Следующий() Цикл
        Если ВставлятьРазделительСтраниц Тогда
            ТабДок.ВывестиГоризонтальныйРазделительСтраниц();
        КонецЕсли;
        ОбластьЗаголовок.Параметры.Номер=выборка.Номер;
        ТабДок.Вывести(ОбластьЗаголовок);
      
        Шапка.Параметры.Заполнить(Выборка);
        
        Шапка.Параметры.Дата=Формат(Выборка.Дата, "ДЛФ=DD");
        ТабДок.Вывести(Шапка, Выборка.Уровень());

        ТабДок.Вывести(ОбластьТоварыШапка);
        ВыборкаТовары = Выборка.Товары.Выбрать();
        Пока ВыборкаТовары.Следующий() Цикл
            ОбластьТовары.Параметры.Заполнить(ВыборкаТовары);
            ТабДок.Вывести(ОбластьТовары, ВыборкаТовары.Уровень());
        КонецЦикла;
        
        Подвал=Макет.ПолучитьОбласть(Подвал);
        Подвал.Параметры.Заполнить(Выборка);
        Подвал.Параметры.СуммаДокумента=ЧислоПрописью(Выборка.СуммаДокумента,"Л=uk_UA","гривня, гривні, гривень, м, копійка, копійки, копійок, ж, 2");
        ТабДок.Вывести(Подвал);
        
        ВставлятьРазделительСтраниц = Истина;
1 Господин ПЖ
 
07.11.14
13:04
дело было не в бабине
2 prog-Igor
 
07.11.14
13:05
а в чем? когда скрываю подвал, печная не дублируется
3 prog-Igor
 
07.11.14
13:08
все уже нашел,тема закрыта!