Название реквизита

Значение реквизита

Наименование

Подпись КП

Текст функции

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

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

Текст = "С уважением, " + Символ(13);

Текст = Текст + ?(ЗначениеЗаполнено(Менеджер), Строка(Менеджер) + Символ(13),"");
Текст = Текст + ?(ЗначениеЗаполнено(Подразделение), Строка(Подразделение) + Символ(13),"");
Текст = Текст + ?(ЗначениеЗаполнено(Организация), Строка(Организация)+ Символ(13),"");
Текст = Текст + ?(ЗначениеЗаполнено(ТелефонОрганизации), "Тел.: "+ ТелефонОрганизации + Символ(13),"");
Текст = Текст + ?(ЗначениеЗаполнено(ТелефонМенеджера), "Моб.: " + ТелефонМенеджера + Символ(13),"");
Текст = Текст + ?(ЗначениеЗаполнено(ПочтаМенеджера), "E-mail: " + ПочтаМенеджера,""); // + ", " + Символ(13),"");
//Текст = Текст + ?(ЗначениеЗаполнено(ПочтаОрганизации),Строка(ПочтаОрганизации),"");

Результат = СокрЛП(Текст);