Подскажите как вывести на печатную форму номер телефона основногоменеджера контрагента. На печать вывожу основногоменеджера текущего контрагента. А вот телефон не получается выести
ОбластьМакета = Макет.ПолучитьОбласть("Менеджер");
ОбластьМакета.Параметры.ПредставлениеМенеджер =Контрагент.ОсновнойМенеджерПокупателя;
ОбластьМакета.Параметры.Заполнить(Шапка);
ТабДокумент.Вывести(ОбластьМакета);
Обратится к контактным данным контрагента?
victor_as @ Вчера, 21:39
,
Добрый день! Вот здесь почитайте. Сейчас не возле компа,не как глянуть свои печатные формы.
https://pro1c.org.ua/redirect.php?http://www.it.homeclub.top/?p=427
DartRomanius @ 11.12.20, 23:04
,
к контактным данным физ.лица -контактная информация - телефон
victor_as @ Вчера, 21:11
,
Добрый день! У меня есть такой вариант:
ОбластьПокупатель = Макет.ПолучитьОбласть("Покупатель");
СведенияОПокупателе = УправлениеКонтактнойИнформацией.СведенияОЮрФизЛице(СсылкаНаОбъект.Контрагент, СсылкаНаОбъект.Дата,,,"uk");
ОбластьПокупатель.Параметры.РеквизитыПокупателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе,"Телефоны,",,"uk");
ОбластьПокупатель.Параметры.ПредставлениеПокупателя = ФормированиеПечатныхФорм.ОписаниеОрганизации(СведенияОПокупателе, "ПолноеНаименование,",,"uk");
ТабДок.Вывести(ОбластьПокупатель);
victor_as @ Вчера, 21:22
,
добрый день! Вот такой вариант:
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| КонтактнаяИнформация.Объект Как Контакт,
| ПРЕДСТАВЛЕНИЕ(КонтактнаяИнформация.Объект),
| КонтактнаяИнформация.Тип,
| КонтактнаяИнформация.Вид,
| ПРЕДСТАВЛЕНИЕ(КонтактнаяИнформация.Вид),
| КонтактнаяИнформация.Представление
|ИЗ
| РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
|ГДЕ
| КонтактнаяИнформация.Объект = &Объект
| И КонтактнаяИнформация.Тип = &Тип
| И КонтактнаяИнформация.Вид = &Вид";
Запрос.УстановитьПараметр("Объект",СсылкаНаОбъект.Контрагент.ОсновноеКонтактноеЛицо);
Запрос.УстановитьПараметр("Тип",Перечисления.ТипыКонтактнойИнформации.Телефон);
Запрос.УстановитьПараметр("Вид",Справочники.ВидыКонтактнойИнформации.МобильныйТелефонКонтактногоЛицаКонтрагента);
РезультатЗапроса = Запрос.Выполнить();
ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();
Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
ОбластьПокупатель.Параметры.Телефон = Строка(ВыборкаДетальныеЗаписи.Контакт)+", "+"тел. " + ВыборкаДетальныеЗаписи.Представление;
КонецЦикла;
denis84 @ Сегодня, 10:15
,
Спасибо за помощь, получилось вот так, может замудренно но получилось
//функция получения номера телефона ФИЗЛИЦА
Функция ПолучитьТелефонИзКонтактнойИнформации(Объект, ВидТелефона = Неопределено) Экспорт
Если ВидТелефона = Неопределено Тогда
ВидТелефона = Справочники.ВидыКонтактнойИнформации.ТелефонОрганизации;
КонецЕсли;
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("ТекущийДокумент", ЭтотОбъект.Ссылка);
Запрос.УстановитьПараметр("Объект", Объект);
Запрос.УстановитьПараметр("Тип" , Перечисления.ТипыКонтактнойИнформации.Телефон);
Запрос.УстановитьПараметр("Вид" , ВидТелефона);
Запрос.Текст =
"ВЫБРАТЬ РАЗРЕШЕННЫЕ ПЕРВЫЕ 1
| КонтактнаяИнформация.Представление
|ИЗ
| РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
|ГДЕ
| КонтактнаяИнформация.Объект = &Объект
| И КонтактнаяИнформация.Тип = &Тип
| И КонтактнаяИнформация.Вид = &Вид";
РезультатЗапроса = Запрос.Выполнить();
Если РезультатЗапроса.Пустой() Тогда
Возврат "";
Иначе
Возврат РезультатЗапроса.Выгрузить()[0].Представление;
КонецЕсли;
КонецФункции // ПолучитьТелефонИзКонтактнойИнформации()
// Выводим информацию о основном менеджере покупателя и номер телефона
ОсновнойМенеджер = Контрагент.ОсновнойМенеджерПокупателя;
ФизТелефон=""+", "+"тел. (" +ПолучитьТелефонИзКонтактнойИнформации(Справочники.ФизическиеЛица.НайтиПоНаименованию(ОсновнойМенеджер, Истина), Справочники.ВидыКонтактнойИнформации.ТелефонФизЛицаСлужебный)+")";
ОбластьМакета = Макет.ПолучитьОбласть("Менеджер");
ОбластьМакета.Параметры.ПредставлениеМенеджер =""+ОсновнойМенеджер+ФизТелефон;
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua