Vasya
Участник
Код:
"ВЫБРАТЬ РАЗРЕШЕННЫЕ
| ВЫРАЗИТЬ(КонтактнаяИнформация.Представление КАК СТРОКА(100)) КАК Представление,
| КонтактнаяИнформация.Объект.Наименование,
| ФизическиеЛица.МестоРождения КАК МестоРождения,
| КонтактнаяИнформация.Поле1 КАК Индекс,
| КонтактнаяИнформация.Поле4 КАК Город,
| КонтактнаяИнформация.Поле6 КАК Улица,
| КонтактнаяИнформация.Поле7 КАК НомерДома,
| КонтактнаяИнформация.Поле8 КАК БукваДома,
| КонтактнаяИнформация.Поле9 КАК Квартира,
| КонтактнаяИнформация.Поле5 КАК Деревня
|ИЗ
| РегистрСведений.КонтактнаяИнформация КАК КонтактнаяИнформация
| ЛЕВОЕ СОЕДИНЕНИЕ Справочник.ФизическиеЛица КАК ФизическиеЛица
| ПО КонтактнаяИнформация.Объект = ФизическиеЛица.Ссылка
|ГДЕ
| КонтактнаяИнформация.Объект.Наименование = &ФизЛицо
| И КонтактнаяИнформация.Вид.Ссылка = &ВидАдреса");
Запрос7.УстановитьПараметр("ФизЛицо", СокрЛП(Результат8.ФизЛицо));
Запрос7.УстановитьПараметр("ВидАдреса", Справочники.ВидыКонтактнойИнформации.НайтиПоКоду("00002"));//Адрес Прописка
РезЛиц1 = Запрос7.Выполнить().Выбрать();
РезЛиц1.Следующий();
Представление = РезЛиц1.Представление;
//Массив = Новый Массив;
//Массив = ОбщегоНазначенияЗК.РазложитьСтрокуВМассивПодстрок(Представление, ",");
//ЭлементовВМассиве = Массив.Количество();
//Если ЭлементовВМассиве >1 тогда
//Город = СокрЛП(Массив[2]);
//КонецЕсли;
СтрокаПрописки=Индекс+",,"+СокрЛП(СтрЗаменить(РезЛиц1.Город, "г",""))+",,"+Улица+","+СТРОКА(РезЛиц1.НомерДома)+",,"+
РезЛиц1.БукваДома+","+СТРОКА(РезЛиц1.Квартира);