Имя: Пароль:
1C
 
Как сделать колонтитул - номер страницы?
0 program345
 
05.03.15
19:02
добрый вечер!

делаю печ форму :


//


&НаКлиенте
Процедура Печать(Команда)
    
    ТабДок = СформироватьМакет(Объект.Ссылка);
    
    ТабДок.ВерхнийКолонтитул.ТекстСлева("[&НомерСтраницы]");
    ТабДок.ВерхнийКолонтитул.Выводить = истина;

    ТабДок.Показать();
    
    
КонецПроцедуры

&НаСервереБезКонтекста
Функция СформироватьМакет(ДокументСсылка)

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

КонецФункции // СформироватьМакет()

//
1 program345
 
05.03.15
19:03
выводит ошибку
2 program345
 
05.03.15
19:06
{Документ.РеализацияТоваровИУслуг.Форма.ФормаДокумента.Форма(7)}: Метод объекта не обнаружен (ТекстСлева)
    ТабДок.ВерхнийКолонтитул.ТекстСлева("[&НомерСтраницы]");
3 program345
 
05.03.15
19:14
решил :

//
&НаКлиенте
Процедура Печать(Команда)
    
    ТабДок = СформироватьМакет(Объект.Ссылка);
    
    ТабДок.ВерхнийКолонтитул.ТекстСправа="страница [&НомерСтраницы] от [&Дата]";
    ТабДок.ВерхнийКолонтитул.Выводить = истина;

    ТабДок.Показать();
    
    
КонецПроцедуры

&НаСервереБезКонтекста
Функция СформироватьМакет(ДокументСсылка)

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

КонецФункции // СформироватьМакет()

//