Здравствуйте. Подскажите пожалуйста есть такой код

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

Менеджер выводится, при чем тот который закреплен за этим контрагентом, но как бы прикрепить бы еще №телефона и адрес электронной почты, ну или что нибудь одно, я так понимаю запросом с контактной информации, но как это сделать знаний у меня нет. Поэтому если реально кто то может помочь, то прошу напишите подробнее, хотя бы примерно. Спасибо. Всем хорошего времени суток.
---
Можно получить контактную информацию, вызвав вот такую функцию с параметром, в данном контексте, ДанныеПечати.Ссылка.Контрагент.Партнер.ОсновнойМенеджер;

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

    Запрос.УстановитьПараметр("МенеджерПользователь", МенеджерПользователь);

    РезультатЗапроса = Запрос.Выполнить();

    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
    Если ЗначениеЗаполнено(ВыборкаДетальныеЗаписи.НомерТелефона) Тогда
    СтрокаТелефон = СтрокаТелефон + ВыборкаДетальныеЗаписи.НомерТелефона + ", ";
    КонецЕсли;
    Если ЗначениеЗаполнено(ВыборкаДетальныеЗаписи.АдресЭП) Тогда
    СтрокаЭлПочта = СтрокаЭлПочта + ВыборкаДетальныеЗаписи.АдресЭП + ", ";
    КонецЕсли;
    КонецЦикла;
    ДлинаТелефон = СтрДлина(СтрокаТелефон);
    ДлинаЭлПочта = СтрДлина(СтрокаЭлПочта);
    Если ДлинаТелефон > 2 Тогда
    СтрокаТелефон = Лев(СтрокаТелефон, ДлинаТелефон-2);
    КонецЕсли;
    Если ДлинаЭлПочта > 2 Тогда
    СтрокаЭлПочта = Лев(СтрокаЭлПочта, ДлинаЭлПочта-2);
    КонецЕсли;
    КонтактнаяИнформацияМенеджера.Телефон = СтрокаТелефон;
    КонтактнаяИнформацияМенеджера.АдресЭлПочты = СтрокаЭлПочта;
    Возврат КонтактнаяИнформацияМенеджера;
    КонецФункции
```

Вернется структура из двух строковых элементов - КонтактнаяИнформацияМенеджера.Телефон и КонтактнаяИнформацияМенеджера.АдресЭлПочты. Ну а дальше уже присвоить их параметром макета...
---
Размещаешь где-нибудь в модуле (там же, где и заполняешь параметры областей макета) ту функцию, что тебе написали выше, чтобы потом к ней обращаться.

Для заполнения параметров пишешь:

```1c
    КонтактнаяИнформацияМенеджера = ПолучитьКонтактыМенеджера(ДанныеПечати.Ссылка.Контрагент.Партнер.ОсновнойМенеджер);
    Область.Параметры.КонтактМенеджерТелефон = КонтактнаяИнформацияМенеджера.Телефон;
    Область.Параметры.КонтактМенеджерЭлАдрес = КонтактнаяИнформацияМенеджера.АдресЭлПочты;
```

только имена параметров вместо "КонтактМенеджерТелефон" и "КонтактМенеджерЭлАдрес" поставь свои
---
Можно получить контактную информацию, вызвав вот такую функцию с параметром, в данном контексте, ДанныеПечати.Ссылка.Контрагент.Партнер.ОсновнойМенеджер;

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

    Запрос.УстановитьПараметр("МенеджерПользователь", МенеджерПользователь);

    РезультатЗапроса = Запрос.Выполнить();

    ВыборкаДетальныеЗаписи = РезультатЗапроса.Выбрать();

    Пока ВыборкаДетальныеЗаписи.Следующий() Цикл
    Если ЗначениеЗаполнено(ВыборкаДетальныеЗаписи.НомерТелефона) Тогда
    СтрокаТелефон = СтрокаТелефон + ВыборкаДетальныеЗаписи.НомерТелефона + ", ";
    КонецЕсли;
    Если ЗначениеЗаполнено(ВыборкаДетальныеЗаписи.АдресЭП) Тогда
    СтрокаЭлПочта = СтрокаЭлПочта + ВыборкаДетальныеЗаписи.АдресЭП + ", ";
    КонецЕсли;
    КонецЦикла;
    ДлинаТелефон = СтрДлина(СтрокаТелефон);
    ДлинаЭлПочта = СтрДлина(СтрокаЭлПочта);
    Если ДлинаТелефон > 2 Тогда
    СтрокаТелефон = Лев(СтрокаТелефон, ДлинаТелефон-2);
    КонецЕсли;
    Если ДлинаЭлПочта > 2 Тогда
    СтрокаЭлПочта = Лев(СтрокаЭлПочта, ДлинаЭлПочта-2);
    КонецЕсли;
    КонтактнаяИнформацияМенеджера.Телефон = СтрокаТелефон;
    КонтактнаяИнформацияМенеджера.АдресЭлПочты = СтрокаЭлПочта;
    Возврат КонтактнаяИнформацияМенеджера;
    КонецФункции
```

Вернется структура из двух строковых элементов - КонтактнаяИнформацияМенеджера.Телефон и КонтактнаяИнформацияМенеджера.АдресЭлПочты. Ну а дальше уже присвоить их параметром макета...
---
А как присвоить, у меня с получением данных от запросов проблемы! Я не умею и пока не представляю как, примерно хотя бы помогите, а там методом тыка я доделаю
---
От каких запросов? Тебе человек дал готовую функцию, которая тебе вернёт телефон и электронный адрес. Всё получение и обработку данных из результата запроса за тебя написали.
А ниже человек тебе показал функцию из БСП, там тоже тебе с запросами работать не нужно, какие проблемы?
---
Проблема в том, что теперь мне с этого запроса подтянуть эту контактную информацию, а как вот в этом и проблема.
Область.Параметры.КонтактМенеджер = ДанныеПечати.КонтактнаяИнформацияМенеджера;
или как? Если бы я знал, то не спрашивал.
---
Размещаешь где-нибудь в модуле (там же, где и заполняешь параметры областей макета) ту функцию, что тебе написали выше, чтобы потом к ней обращаться.

Для заполнения параметров пишешь:

```1c
    КонтактнаяИнформацияМенеджера = ПолучитьКонтактыМенеджера(ДанныеПечати.Ссылка.Контрагент.Партнер.ОсновнойМенеджер);
    Область.Параметры.КонтактМенеджерТелефон = КонтактнаяИнформацияМенеджера.Телефон;
    Область.Параметры.КонтактМенеджерЭлАдрес = КонтактнаяИнформацияМенеджера.АдресЭлПочты;
```

только имена параметров вместо "КонтактМенеджерТелефон" и "КонтактМенеджерЭлАдрес" поставь свои
---
КонтактнаяИнформацияМенеджера = ПолучитьКонтактыМенеджера(ДанныеПечати.Ссылка.Контрагент.Партнер.ОсновнойМенеджер);
Область.Параметры.КонтактМенеджерТелефон = КонтактнаяИнформацияМенеджера.Телефон;
Область.Параметры.КонтактМенеджерЭлАдрес = КонтактнаяИнформацияМенеджера.АдресЭлПочты;
Спасибо ребята!
---
Область.Параметры.КонтактМенеджер = Выборка.КонтактнаяИнформацияМенеджера; Или так, но ошибка
{ВнешняяОбработка.СчетНаОплатуВнешний.МодульОбъекта(2918,55)}: Переменная не определена (Выборка)
    Область.Параметры.КонтактнаяИнформацияМенеджера = <<?>>Выборка.КонтактнаяИнформацияМенеджера; (Проверка: Сервер)
---
Спасибо, все получилось!
---
У меня нет УТ, но это стандартный функционал БСП. Возможно, поможет.
Посмотрите функцию:

```1c
    УправлениеКонтактнойИнформацией.КонтактнаяИнформацияОбъекта();
```

первый параметр - ваш менеджер, второй параметр - можете найти по наименованию требуемый вид контактной информации.