Здравствуйте. Как получить из адреса контрагента отдельно улицу, отдельно регион, отдельно дом и т.д.?
Пробовал через УправлениеКонтактнойИнформацией.ПолучитьПредставлениеАдресаПоСтруктуре(АдресСписком)
Пробовал через УправлениеКонтактнойИнформацией.ПолучитьСтруктуруАдресаИзСтроки(Адрес)
Ничё не получается.
Может есть ещё какая универсальная процедура в данной конфе?
Пробовал через УправлениеКонтактнойИнформацией.ПолучитьПредставлениеАдресаПоСтруктуре(АдресСписком)
Пробовал через УправлениеКонтактнойИнформацией.ПолучитьСтруктуруАдресаИзСтроки(Адрес)
Ничё не получается.
Может есть ещё какая универсальная процедура в данной конфе?
По теме из базы знаний
- Вывод адресов контрагентов в типовых отчетах с помощью свойств
- Перевод адресов контрагентов из строки в КЛАДР
- Выбор Адреса контрагента из Контактной информации. Пример работы с "Оповестить о выборе"
- Конфигурация Flowcon: Набор инструментов для управления задачами, проектами и бизнесом в 1С
- Нюансы использования расширений применительно к процедурам, исполняющимся методом ВыполнитьВФоне (БСП)
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Функция ОпределитьАдресПолучателя(Объект) Экспорт
Запрос = Новый Запрос;
Запрос.УстановитьПараметр("Объект", Объект);
//Запрос.УстановитьПараметр("Тип" , Перечисления.ТипыКонтактнойИнформации.Адрес);
Запрос.УстановитьПараметр("Вид" , Справочники.ВидыКонтактнойИнформации.ФактАдресКонтрагента);
Запрос.Текст = "ВЫБРАТЬ РАЗРЕШЕННЫЕ
| КонтактнаяИнформация.Поле2 КАК Регион,
| КонтактнаяИнформация.Поле3 КАК Район,
| КонтактнаяИнформация.Поле4 КАК Город,
| КонтактнаяИнформация.Поле5 КАК НаселенныйПункт,
| КонтактнаяИнформация.Поле6 КАК Улица,
| КонтактнаяИнформация.Поле7 КАК Дом,
| КонтактнаяИнформация.Поле8 КАК Корпус,
| КонтактнаяИнформация.Представление
|ИЗ
| РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
|ГДЕ
| КонтактнаяИнформация.Объект = &Объект
| И КонтактнаяИнформация.Вид = &Вид";
Возврат Запрос.Выполнить().Выбрать();
КонецФункции
Показать
СправочникСсылка.КонтактныеЛица, СправочникСсылка.Контрагенты, СправочникСсылка.Пользователи, СправочникСсылка.Организации, СправочникСсылка.ФизическиеЛица ----
Типы измерения "Объект" регистра сведений "Контактная Информация"
Типы измерения "Объект" регистра сведений "Контактная Информация"
В контактной информации УТ 11.3.2.207 Регистра сведений не существует, Вся контактная информация хранится в табличной части объекта.
Примерно такой подход:
Примерно такой подход:
Запрос = Новый Запрос("ВЫБРАТЬ
| КонтрагентыКонтактнаяИнформация.ЗначенияПолей,
| КонтрагентыКонтактнаяИнформация.Ссылка,
| КонтрагентыКонтактнаяИнформация.Ссылка.ДополнительнаяИнформация,
| КонтрагентыКонтактнаяИнформация.Ссылка.Партнер.ОсновнойМенеджер КАК ОсновнойМенеджер,
| КонтрагентыКонтактнаяИнформация.Ссылка.ИНН
|ИЗ
| Справочник.Контрагенты.КонтактнаяИнформация КАК КонтрагентыКонтактнаяИнформация
|ГДЕ
| КонтрагентыКонтактнаяИнформация.Вид = &Вид");
Запрос.УстановитьПараметр("Вид", Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента);
Выгрузка = Запрос.Выполнить().Выгрузить();
Для каждого стр из Выгрузка Цикл
Xml = стр.ЗначенияПолей;
zzz = УправлениеКонтактнойИнформацией.АдресВФорматеКЛАДР(Xml);
нК = Контр.Добавить();
нК.Контрагент = стр.Ссылка;
нК.ИНН = стр.ИНН;
нК.Менеджер = стр.ОсновнойМенеджер;
нК.Номер = стр.ДополнительнаяИнформация;
нК.Xml = Xml;
Если zzz.АдресРФ Тогда
нК.Город = zzz.Город;
нК.ГородСокращение = zzz.ГородСокращение;
нК.Дом = zzz.Дом;
нК.Индекс = zzz.Индекс;
нК.Квартира = zzz.Квартира;
нК.КодРегиона = zzz.КодРегиона;
нК.КодСтраны = zzz.КодСтраны;
нК.Корпус = zzz.Корпус;
нК.НаселенныйПункт = zzz.НаселенныйПункт;
нК.НаселенныйПунктСокращение = zzz.НаселенныйПунктСокращение;
нК.Представление = zzz.Представление;
нК.Район = zzz.Район;
нК.РайонСокращение = zzz.РайонСокращение;
нК.Регион = zzz.Регион;
нК.РегионСокращение = zzz.РегионСокращение;
нК.ТипДома = zzz.ТипДома;
нК.ТипКвартиры = zzz.ТипКвартиры;
нК.ТипКорпуса = zzz.ТипКорпуса;
нК.Улица = zzz.Улица;
нК.УлицаСокращение = zzz.УлицаСокращение;
Иначе
нК.Представление = zzz.Представление;
КонецЕсли;
КонецЦикла;
ПоказатьВидАдреса = ОбщегоНазначения.ЗначениеРеквизитаОбъекта(Справочники.ВидыКонтактнойИнформации["ЮрАдресОрганизации"], "Ссылка");
МассивСсылокИлиОбъектов = Новый Массив;
МассивСсылокИлиОбъектов Добавить(Организация);
ТЗКИ = УправлениеКонтактнойИнформацией.КонтактнаяИнформацияОбъектов(хМ, , ВидАдреса, Дата);
СтруктураАдреса = РаботаСАдресами.СведенияОбАдресе(ТЗКИ[0].ЗначенияПолей, );
ЮрАдрес = Справочники.ВидыКонтактнойИнформации.ЮрАдресКонтрагента;
Отбор = Новый Структура("Вид, Тип");
Отбор.Вид = ЮрАдрес;
Отбор.Тип = Перечисления.ТипыКонтактнойИнформации.Адрес;
ПоискВКИ = Партнер.КонтактнаяИнформация.НайтиСтроки(Отбор);
Если ПоискВКИ.Количество() > 0 Тогда
СтрокаТЧ = ПоискВКИ.Получить(0);
Город = СтрокаТЧ.Город;
КонецЕсли;
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот