Версия для печати темы (https://pro1c.org.ua/index.php?s=1de233b149dfd841e15b359a304f1e8e&showtopic=63443)

Автор: victor_as 11.12.20, 21:39

Подскажите как вывести на печатную форму номер телефона основногоменеджера контрагента. На печать вывожу основногоменеджера текущего контрагента. А вот телефон не получается выести

ОбластьМакета = Макет.ПолучитьОбласть("Менеджер");
ОбластьМакета.Параметры.ПредставлениеМенеджер =Контрагент.ОсновнойМенеджерПокупателя;
ОбластьМакета.Параметры.Заполнить(Шапка);

ТабДокумент.Вывести(ОбластьМакета);

Автор: DartRomanius 11.12.20, 23:04

Обратится к контактным данным контрагента?

Автор: denis84 12.12.20, 9:07

victor_as @ Вчера, 21:39 ,
Добрый день! Вот здесь почитайте. Сейчас не возле компа,не как глянуть свои печатные формы.
https://pro1c.org.ua/redirect.php?http://www.it.homeclub.top/?p=427

Автор: victor_as 13.12.20, 21:11

DartRomanius @ 11.12.20, 23:04 ,
к контактным данным физ.лица -контактная информация - телефон

Цитата(denis84 @ 12.12.20, 9:07)

Автор: denis84 13.12.20, 21:32

victor_as @ Сегодня, 21:11 ,
Укажите,какая конфигурации?

Автор: denis84 14.12.20, 8:39

victor_as @ Вчера, 21:11 ,
Добрый день! У меня есть такой вариант:

ОбластьПокупатель  = Макет.ПолучитьОбласть("Покупатель");
СведенияОПокупателе = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(СсылкаНаОбъект.Контрагент, СсылкаНаОбъект.Дата,,,"uk");
ОбластьПокупатель.Параметры.РеквизитыПокупателя        = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе,"Телефоны,",,"uk");
ОбластьПокупатель.Параметры.ПредставлениеПокупателя   = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе, "ПолноеНаименование,",,"uk");
ТабДок.Вывести(ОбластьПокупатель);

Автор: victor_as 14.12.20, 21:22

Цитата(denis84 @ 14.12.20, 8:39)

Автор: denis84 15.12.20, 10:15

victor_as @ Вчера, 21:22 ,
добрый день! Вот такой вариант:

Запрос = Новый Запрос;
Запрос.Текст = 
    "ВЫБРАТЬ
    |    КонтактнаяИнформация.Объект Как Контакт,
    |    ПРЕДСТАВЛЕНИЕ(КонтактнаяИнформация.Объект),
    |    КонтактнаяИнформация.Тип,
    |    КонтактнаяИнформация.Вид,
    |    ПРЕДСТАВЛЕНИЕ(КонтактнаяИнформация.Вид),
    |    КонтактнаяИнформация.Представление
    |ИЗ
    |    РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
   |ГДЕ
   |    КонтактнаяИнформация.Объект = &Объект
   |    И КонтактнаяИнформация.Тип = &Тип
   |    И КонтактнаяИнформация.Вид = &Вид";
    
Запрос.УстановитьПараметр("Объект",СсылкаНаОбъект.Контрагент.ОсновноеКонтактноеЛицо);
Запрос.УстановитьПараметр("Тип",Перечисления.ТипыКонтактнойИнформации.Телефон);
Запрос.УстановитьПараметр("Вид",Справочники.ВидыКонтактнойИнформации.МобильныйТелефонКонтактногоЛицаКонтрагента);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
    ОбластьПокупатель.Параметры.Телефон        = Строка(ВыборкаДетальныеЗаписи.Контакт)+",  "+"тел. " + ВыборкаДетальныеЗаписи.Представление;
КонецЦикла;

Автор: victor_as 15.12.20, 20:53

denis84 @ Сегодня, 10:15 ,
Спасибо за помощь, получилось вот так, может замудренно но получилось

//функция получения номера телефона ФИЗЛИЦА
Функция ПолучитьТелефонИзКонтактнойИнформации(Объект, ВидТелефона = Неопределено) Экспорт  

   Если ВидТелефона = Неопределено Тогда
      ВидТелефона = Справочники.ВидыКонтактнойИнформации.ТелефонОрганизации;
   КонецЕсли;

   Запрос = Новый Запрос;
   Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);

   Запрос.УстановитьПараметр("Объект", Объект);
   Запрос.УстановитьПараметр("Тип"   , Перечисления.ТипыКонтактнойИнформации.Телефон);
   Запрос.УстановитьПараметр("Вид"   , ВидТелефона);
   
   Запрос.Текст =
   "ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 1
   |   КонтактнаяИнформация.Представление
   |ИЗ
   |   РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
   |ГДЕ
   |   КонтактнаяИнформация.Объект = &Объект
   |   И КонтактнаяИнформация.Тип = &Тип
   |   И КонтактнаяИнформация.Вид = &Вид";
   
   РезультатЗапроса = Запрос.Выполнить();
   
   Если РезультатЗапроса.Пустой() Тогда
      Возврат "";
   Иначе
      Возврат РезультатЗапроса.Выгрузить()[0].Представление;
   КонецЕсли;

КонецФункции // ПолучитьТелефонИзКонтактнойИнформации()


    // Выводим информацию о основном менеджере покупателя и номер телефона
    ОсновнойМенеджер = Контрагент.ОсновнойМенеджерПокупателя;
    ФизТелефон=""+", "+"тел. (" +ПолучитьТелефонИзКонтактнойИнформации(Справочники.ФизическиеЛица.НайтиПоНаименованию(ОсновнойМенеджер, Истина), Справочники.ВидыКонтактнойИнформации.ТелефонФизЛицаСлужебный)+")";
    ОбластьМакета = Макет.ПолучитьОбласть("Менеджер");
    ОбластьМакета.Параметры.ПредставлениеМенеджер =""+ОсновнойМенеджер+ФизТелефон;