Печатная форма УНФ 1,6
Здравствуйте Уважаемые программисты. Подскажите пожалуйста как вывести телефон ответственного менеджера в печатную форму Расходная накладная. Телефоны фирмы и контрагента вынес а вот с менеджером что то не получается.
Прикрепленные файлы:
РасходнаяНакладнаяВнешняя_от_1.6.26_3.0.1.epf
Ответы
В избранное
Подписаться на ответы
Сортировка:
Древо развёрнутое
Свернуть все
(1)ОбластьОписаниеСубъекта = ПечатьДокументовУНФ.ПолучитьОбластьБезопасно(Макет, "ОписаниеСубъекта", "", Ошибки);
Если ОбластьОписаниеСубъекта <> Неопределено Тогда
ДанныеПечати.Очистить();
ДанныеПечати.Вставить("НаименованиеСубъекта", НСтр("ru ='Поставщик'"));
ДанныеПечати.Вставить("ПредставлениеСубъекта", ПечатьДокументовУНФ.ОписаниеОрганизации(
СведенияОбОрганизации, "ПолноеНаименование,ФактическийАдрес,Телефоны"));
ОбластьОписаниеСубъекта.Параметры.Заполнить(ДанныеПечати);
ТабличныйДокумент.Вывести(ОбластьОписаниеСубъекта);
ДанныеПечати.Очистить();
ДанныеПечати.Вставить("НаименованиеСубъекта", НСтр("ru ='Покупатель'"));
ДанныеПечати.Вставить("ПредставлениеСубъекта", ПечатьДокументовУНФ.ОписаниеОрганизации(
СведенияОбКонтрагенте, "ПолноеНаименование,ФактическийАдрес,Телефоны"));
ОбластьОписаниеСубъекта.Параметры.Заполнить(ДанныеПечати);
ТабличныйДокумент.Вывести(ОбластьОписаниеСубъекта);
КонецЕсли;
//Менеджер
ОбластьМенеджер = ПечатьДокументовУНФ.ПолучитьОбластьБезопасно(Макет, "ОбластьМенеджер", "", Ошибки);
Если ОбластьМенеджер <> Неопределено Тогда
ДанныеПечати.Очистить();
ДанныеПечати.Вставить("Ответственный", НСтр("ru ='Ответственный менеджер:'"));
ДанныеПечати.Вставить("Менеджер", ДанныеОбъекта.Контрагент.Ответственный);
ОбластьМенеджер.Параметры.Заполнить(ДанныеПечати);
ТабличныйДокумент.Вывести(ОбластьМенеджер);
КонецЕсли;
Если ОбластьОписаниеСубъекта <> Неопределено Тогда
ДанныеПечати.Очистить();
ДанныеПечати.Вставить("НаименованиеСубъекта", НСтр("ru ='Поставщик'"));
ДанныеПечати.Вставить("ПредставлениеСубъекта", ПечатьДокументовУНФ.ОписаниеОрганизации(
СведенияОбОрганизации, "ПолноеНаименование,ФактическийАдрес,Телефоны"));
ОбластьОписаниеСубъекта.Параметры.Заполнить(ДанныеПечати);
ТабличныйДокумент.Вывести(ОбластьОписаниеСубъекта);
ДанныеПечати.Очистить();
ДанныеПечати.Вставить("НаименованиеСубъекта", НСтр("ru ='Покупатель'"));
ДанныеПечати.Вставить("ПредставлениеСубъекта", ПечатьДокументовУНФ.ОписаниеОрганизации(
СведенияОбКонтрагенте, "ПолноеНаименование,ФактическийАдрес,Телефоны"));
ОбластьОписаниеСубъекта.Параметры.Заполнить(ДанныеПечати);
ТабличныйДокумент.Вывести(ОбластьОписаниеСубъекта);
КонецЕсли;
//Менеджер
ОбластьМенеджер = ПечатьДокументовУНФ.ПолучитьОбластьБезопасно(Макет, "ОбластьМенеджер", "", Ошибки);
Если ОбластьМенеджер <> Неопределено Тогда
ДанныеПечати.Очистить();
ДанныеПечати.Вставить("Ответственный", НСтр("ru ='Ответственный менеджер:'"));
ДанныеПечати.Вставить("Менеджер", ДанныеОбъекта.Контрагент.Ответственный);
ОбластьМенеджер.Параметры.Заполнить(ДанныеПечати);
ТабличныйДокумент.Вывести(ОбластьМенеджер);
КонецЕсли;
Может вы приложите код. Пояснения, где хранится телефон ответственного менеджера. Это расширит список тех кто может вам помочь, не у всех есть УНФ 1.6, не все имеют время и желание запускать вашу обработку в имеющейся базе, выяснять, куда надо поместить телефон и где его взять.