Имя: Пароль:
1C
1С v8
БП3 Как во внешнюю печатную форму на УФ добавить выбор руководителя?
0 Велимудр
 
05.02.15
11:02
Есть внешняя форма акта, нужно при печати запросить ФИО руководителя.
Но т.к. функция "печать()" находится в модуле объекта, то не дает использовать никакие клиентские процедуры.

Как быть? Может в типовом механизме печати предусмотрено что то для взаимодействия с клиентом?
1 Naumov
 
05.02.15
11:03
нужно делать внешнюю форму в режиме открытия формы. В этой форме выбирать все, что нужно и печатать.
2 deniseek
 
05.02.15
11:03
(0) Зачем?
3 Велимудр
 
05.02.15
11:07
(1) А как это сделать?
4 deniseek
 
05.02.15
11:10
(3) В фнкции регистрации внешней обработки что у вас? вот там нужно изменить
5 Велимудр
 
05.02.15
11:12
Сейчас посмотрю
6 Велимудр
 
05.02.15
11:30
ДобавитьКоманду(ТаблицаКоманд,
  НСтр("ru = 'Акт об оказании услуг (внешний)'"),
  "Акт об оказании услуг (внешний)",
  "ВызовСерверногоМетода",
  Истина,
  "ПечатьMXL");
7 deniseek
 
05.02.15
11:35
(6) Вот в бсп:
Функция СведенияОВнешнейОбработке() Экспорт
    
    ПараметрыРегистрации = ДополнительныеОтчетыИОбработки.СведенияОВнешнейОбработке("2.2.2.1");
    
    ПараметрыРегистрации.Вид = ДополнительныеОтчетыИОбработкиКлиентСервер.ВидОбработкиПечатнаяФорма();
    ПараметрыРегистрации.Версия = "1.3";
    ПараметрыРегистрации.Назначение.Добавить("Документ._ДемоСчетНаОплатуПокупателю");
    
    НоваяКоманда = ПараметрыРегистрации.Команды.Добавить();
    НоваяКоманда.Представление = НСтр("ru = 'Счет на оплату (внешняя печатная форма)'");
    НоваяКоманда.Идентификатор = "СчетЗаказ";
    НоваяКоманда.Использование = ДополнительныеОтчетыИОбработкиКлиентСервер.ТипКомандыВызовСерверногоМетода();
    НоваяКоманда.ПоказыватьОповещение = Истина;
    НоваяКоманда.Модификатор = "ПечатьMXL";
    
    НоваяКоманда = ПараметрыРегистрации.Команды.Добавить();
    НоваяКоманда.Представление = НСтр("ru = 'Комплект документов (внешняя печатная форма)'");
    НоваяКоманда.Идентификатор = "СчетЗаказ,СчетЗаказ,СчетЗаказ2";
    НоваяКоманда.Использование = ДополнительныеОтчетыИОбработкиКлиентСервер.ТипКомандыВызовСерверногоМетода();
    НоваяКоманда.ПоказыватьОповещение = Истина;
    НоваяКоманда.Модификатор = "ПечатьMXL";
    
    НоваяКоманда = ПараметрыРегистрации.Команды.Добавить();
    НоваяКоманда.Представление = НСтр("ru = 'Гарантийное письмо (внешняя печатная форма)'");
    НоваяКоманда.Идентификатор = "ГарантийноеПисьмо";
    НоваяКоманда.Использование = ДополнительныеОтчетыИОбработкиКлиентСервер.ТипКомандыВызовСерверногоМетода();
    НоваяКоманда.ПоказыватьОповещение = Истина;
    НоваяКоманда.Модификатор = "ПечатьMXL";
    
    Возврат ПараметрыРегистрации;
    
КонецФункции
8 deniseek
 
05.02.15
11:35
(6) Обратите внимание на ПараметрыРегистрации.Вид = ДополнительныеОтчетыИОбработкиКлиентСервер.ВидОбработкиПечатнаяФорма();