Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: Как вывести на печатную форму номер телефона основного менеджера контрагента в расходной накладной?
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 8.3
victor_as
11.12.20, 21:39
Подскажите как вывести на печатную форму номер телефона основногоменеджера контрагента. На печать вывожу основногоменеджера текущего контрагента. А вот телефон не получается выести

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

ТабДокумент.Вывести(ОбластьМакета);
DartRomanius
11.12.20, 23:04
Обратится к контактным данным контрагента?
denis84
12.12.20, 9:07
victor_as @ Вчера, 21:39 необходимо зарегистрироваться для просмотра ссылки ,
Добрый день! Вот здесь почитайте. Сейчас не возле компа,не как глянуть свои печатные формы.
необходимо зарегистрироваться для просмотра ссылки
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) необходимо зарегистрироваться для просмотра ссылки
ОбластьПокупатель  = Макет.ПолучитьОбласть("Покупатель");
СведенияОПокупателе = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(СсылкаНаОбъект.Контрагент, СсылкаНаОбъект.Дата,,,"uk");
ОбластьПокупатель.Параметры.РеквизитыПокупателя        = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе,"Телефоны,",,"uk");
ОбластьПокупатель.Параметры.ПредставлениеПокупателя   = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе, "ПолноеНаименование,",,"uk");
ТабДок.Вывести(ОбластьПокупатель);


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

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


Если помогло нажмите "спасибо"
victor_as
15.12.20, 20:53
denis84 @ Сегодня, 10:15 необходимо зарегистрироваться для просмотра ссылки ,
Спасибо за помощь, получилось вот так, может замудренно но получилось
//функция получения номера телефона ФИЗЛИЦА
Функция ПолучитьТелефонИзКонтактнойИнформации(Объект, ВидТелефона = Неопределено) Экспорт  

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

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

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

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


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


Показывает текущего менеджера(агента) клиента/покупателя, и номер телефона менеджера(Василий Ветров, тел. (91111111)
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.