Форум 1С
Программистам, бухгалтерам, администраторам, пользователям
Задай вопрос - получи решение проблемы
12 дек 2024, 06:49

Основное контактное лицо, как вытащить

Автор deejayyug, 12 ноя 2012, 08:40

0 Пользователей и 1 гость просматривают эту тему.

deejayyug

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

Запрос.УстановитьПараметр("Контрагент", СсылкаНаОбъект.Владелец);
Запрос.УстановитьПараметр("Роль2",Справочники.РолиКонтактныхЛиц.НайтиПоКоду("000000003").Код);



ТЗКонтактныеЛица = Запрос.Выполнить().Выгрузить();
Колонка = ТЗКонтактныеЛица.ВыгрузитьКолонку("ФИО");
КолонкаДолжность = ТЗКонтактныеЛица.ВыгрузитьКолонку("Должность");

Попытка
  КонтактноеЛицо = Строка(Колонка.Получить(0));
  Документ.FormFields("КонтактноеЛицо").Result = ПадежФИО(КонтактноеЛицо,2);
  Должность = Строка(КолонкаДолжность.Получить(0));
  Документ.FormFields("Должность").Result =  ПадежФИО(Должность,2);
Исключение
  КонтактноеЛицо = "";
  Документ.FormFields("КонтактноеЛицо").Result =  КонтактноеЛицо;
  Сообщить("Не указано контактное лицо!!!");
КонецПопытки;

deejayyug

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

Вот так работает!

Теги:

Похожие темы (5)

Рейтинг@Mail.ru

Поиск