[РЕШЕНО] ЗиК 8.2 (8.2.19.90) получить адрес без ул. и г.

Тема в разделе "Отчеты и обработки для "1С:Предприятие 8"", создана пользователем asdfr1, 26 май 2014.

  1. TopicStarter Overlay
    asdfr1
    Offline

    asdfr1

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

    asdfr1

    Регистрация:
    18 июн 2011
    Сообщения:
    28
    Симпатии:
    0
    Баллы:
    1
    тема закрыта

Поделиться этой страницей