ЗиК 8.2 (8.2.19.90) получить адрес без ул. и г.

[asdfr1]

Код Выделить Развернуть


"ВЫБРАТЬ РАЗРЕШЕННЫЕ
|    ВЫРАЗИТЬ(КонтактнаяИнформация.Представление КАК СТРОКА(100)) КАК Представление,
|    КонтактнаяИнформация.Объект.Наименование,
|    ФизическиеЛица.МестоРождения КАК МестоРождения,
|    КонтактнаяИнформация.Поле1 КАК Индекс,
|    КонтактнаяИнформация.Поле4 КАК Город,
|    КонтактнаяИнформация.Поле6 КАК Улица,
|    КонтактнаяИнформация.Поле7 КАК НомерДома,
|    КонтактнаяИнформация.Поле8 КАК БукваДома,
|    КонтактнаяИнформация.Поле9 КАК Квартира,
|    КонтактнаяИнформация.Поле5 КАК Деревня

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

//Массив = Новый Массив;
//Массив = ОбщегоНазначенияЗК.РазложитьСтрокуВМассивПодстрок(Представление, ",");
//ЭлементовВМассиве = Массив.Количество();
//Если ЭлементовВМассиве      >1      тогда
//Город      =      СокрЛП(Массив[2]);
//КонецЕсли;

СтрокаПрописки=Индекс+",,"+СокрЛП(СтрЗаменить(РезЛиц1.Город, "г",""))+",,"+Улица+","+СТРОКА(РезЛиц1.НомерДома)+",,"+
РезЛиц1.БукваДома+","+СТРОКА(РезЛиц1.Квартира);

куда копать ?

[asdfr1]

тема закрыта