Получение контактной информации о контрагенте.
Может быть есть в конфигурации и стандартная процедура получения контактной информации, однако мне показалось легче написать запрос чем найти. По желанию сиё можно обернуть в функцию.
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 |
Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ | Контрагенты.Наименование, | Контрагенты.ИНН, | Юр.ЮридическийАдрес, | Факт.ФактическийАдрес, | Тел.Телефон, | Контрагенты.НаименованиеПолное |ИЗ | Справочник.Контрагенты КАК Контрагенты, | (ВЫБРАТЬ | КонтактнаяИнформация.Представление КАК ЮридическийАдрес | ИЗ | РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация | ГДЕ | КонтактнаяИнформация.Вид.Наименование = ""Юридический адрес контрагента"" | И КонтактнаяИнформация.Объект.Ссылка = &Ссылка) КАК Юр, | (ВЫБРАТЬ | КонтактнаяИнформация.Представление КАК ФактическийАдрес | ИЗ | РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация | ГДЕ | КонтактнаяИнформация.Вид.Наименование = ""Фактический адрес контрагента"" | И КонтактнаяИнформация.Объект.Ссылка = &Ссылка) КАК Факт, | (ВЫБРАТЬ | КонтактнаяИнформация.Представление КАК Телефон | ИЗ | РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация | ГДЕ | КонтактнаяИнформация.Вид.Наименование = ""Телефон контрагента"" | И КонтактнаяИнформация.Объект.Ссылка = &Ссылка) КАК Тел |ГДЕ | Контрагенты.Ссылка = &Ссылка"; Запрос.УстановитьПараметр("Ссылка",ВыбДокумент.Грузополучатель); Результат = Запрос.Выполнить().Выбрать(); ГрузополучательПредставление=""; пока Результат.Следующий() цикл ГрузополучательПредставление=ГрузополучательПредставление+Результат.НаименованиеПолное+",ИНН "+Результат.ИНН+","+Результат.ЮридическийАдрес+","+Результат.ФактическийАдрес+","+Результат.Телефон; конеццикла; |