Здравствуйте
Подскажите возможно ли получить представление адреса без увеличения длины строки реквизита "наименование"(оно при запись берет получены результат реквизита "Представление" но срезает по допустимой длине строки наименования)
Возможно ли как то открыть форму обработки по объекту , вызвать процедуру формирования и получить этот реквизит.
Подскажите возможно ли получить представление адреса без увеличения длины строки реквизита "наименование"(оно при запись берет получены результат реквизита "Представление" но срезает по допустимой длине строки наименования)
Возможно ли как то открыть форму обработки по объекту , вызвать процедуру формирования и получить этот реквизит.
Функция ПолучитьПредставлениеАдреса(Запись) Экспорт
ТекПредставление = "";
Если СокрЛП(Запись.Поле1) <> "" Тогда
ТекПредставление = ТекПредставление + ", " + СокрЛП(Запись.Поле1);
КонецЕсли;
Если СокрЛП(Запись.Поле2) <> "" Тогда
ТекПредставление = ТекПредставление + ", " + СокрЛП(Запись.Поле2);
КонецЕсли;
Если СокрЛП(Запись.Поле3) <> "" Тогда
ТекПредставление = ТекПредставление + ", " + СокрЛП(Запись.Поле3);
КонецЕсли;
Если СокрЛП(Запись.Поле4) <> "" Тогда
ТекПредставление = ТекПредставление + ", " + СокрЛП(Запись.Поле4);
КонецЕсли;
Если СокрЛП(Запись.Поле5) <> "" Тогда
ТекПредставление = ТекПредставление + ", " + СокрЛП(Запись.Поле5);
КонецЕсли;
Если СокрЛП(Запись.Поле6) <> "" Тогда
ТекПредставление = ТекПредставление + ", " + СокрЛП(Запись.Поле6);
КонецЕсли;
ТипДома = Неопределено;
ТипКорпуса = Неопределено;
ТипКвартиры = Неопределено;
Если ТипЗнч(Запись) = Тип("Структура") Тогда
Запись.Свойство("ТипДома", ТипДома);
Запись.Свойство("ТипКорпуса", ТипКорпуса);
Запись.Свойство("ТипКвартиры", ТипКвартиры);
Иначе
ТипДома = Запись.ТипДома;
ТипКорпуса = Запись.ТипКорпуса;
ТипКвартиры = Запись.ТипКвартиры;
КонецЕсли;
Если СокрЛП(Запись.Поле7) <> "" Тогда
ТекПредставление = ТекПредставление + ", " + ?(ЗначениеЗаполнено(ТипДома), ТипДома, "дом") + " № " + СокрЛП(Запись.Поле7);
КонецЕсли;
Если СокрЛП(Запись.Поле8) <> "" Тогда
ТекПредставление = ТекПредставление + ", " + ?(ЗначениеЗаполнено(ТипКорпуса), ТипКорпуса, "корпус") + " " + СокрЛП(Запись.Поле8);
КонецЕсли;
Если СокрЛП(Запись.Поле9) <> "" Тогда
ТекПредставление = ТекПредставление + ", " + ?(ЗначениеЗаполнено(ТипКвартиры), ТипКвартиры, "кв.") + СокрЛП(Запись.Поле9);
КонецЕсли;
Если СтрДлина(ТекПредставление) > 2 Тогда
ТекПредставление = Сред(ТекПредставление, 3);
КонецЕсли;
Возврат ТекПредставление;
КонецФункции
ПоказатьПрикрепленные файлы:
![](/upload/forum/upload/a7a/a7a79590a8076b200e782b2fb236b271.png)
По теме из базы знаний
- Как организовать хранение данных с большим адресным пространством, оставив "прямую" адресацию?
- [БП 3.0, ЗУП 3.0, УТ 11] Проверка и исправление адресов в контактной информации справочников
- Получение кода КЛАДР из представления адреса контактной информации
- Загрузка адресов произвольного формата (КЛАДР и нестандартных "грязных" адресов) в ФИАС современных конфигураций из 1С 7.7
- Работа с контактной информацией. Часть 2
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот