Цитата(gena_tok @ 20.06.11, 13:23) необходимо зарегистрироваться для просмотра ссылки
Я понял, что Вы решили этот вопрос, подскажите, пожалуйста КАК?
Процедура глобального модуля
// ===============================
// Формирует адрес в строку
// ===============================
Функция глАдресСтрокой(Знач Адр,Язык="Р",НН=0) Экспорт
сАдрСтр = "";
// индекс
Поз = Найти(Адр, ",");
Индекс = Лев(Адр,Поз-1);
Адр = Сред(Адр,Поз+1);
// регион
Поз = Найти(Адр, ",");
Регион = Лев(Адр,Поз-1);
Адр = Сред(Адр,Поз+1);
// район
Поз = Найти(Адр, ",");
Район = Лев(Адр,Поз-1);
Адр = Сред(Адр,Поз+1);
// нас. пункт
Поз = Найти(Адр, ",");
НасПункт = Лев(Адр,Поз-1);
Адр = Сред(Адр,Поз+1);
// улица
Поз = Найти(Адр, ",");
Улица = Лев(Адр,Поз-1);
Адр = Сред(Адр,Поз+1);
// дом
Поз = Найти(Адр, ",");
Дом = Лев(Адр,Поз-1);
Адр = Сред(Адр,Поз+1);
// корпус
Поз = Найти(Адр, ",");
Корпус = Лев(Адр,Поз-1);
Адр = Сред(Адр,Поз+1);
// квартира
Квартира = СокрЛП(Адр);
Если НН=0 Тогда
Если ПустаяСтрока(Индекс) = 0 Тогда
сАдрСтр = сАдрСтр + Индекс + ", ";
КонецЕсли;
Если ПустаяСтрока(Регион) = 0 Тогда
сАдрСтр = сАдрСтр + Регион + ", ";
КонецЕсли;
Если ПустаяСтрока(Район) = 0 Тогда
сАдрСтр = сАдрСтр + Район + " р-н, ";
КонецЕсли;
Если ПустаяСтрока(НасПункт) = 0 Тогда
сАдрСтр = сАдрСтр + НасПункт + ", ";
КонецЕсли;
Если ПустаяСтрока(Улица) = 0 Тогда
сАдрСтр = сАдрСтр + Улица + ", ";
КонецЕсли;
Если ПустаяСтрока(Дом) = 0 Тогда
сАдрСтр = сАдрСтр + Дом + ", ";
КонецЕсли;
Если ПустаяСтрока(Корпус) = 0 Тогда
сАдрСтр = сАдрСтр + "корп. " + Корпус + ", ";
КонецЕсли;
Если ПустаяСтрока(Квартира) = 0 Тогда
сАдрСтр = сАдрСтр + Квартира;
КонецЕсли;
Иначе
Если ПустаяСтрока(Улица) = 0 Тогда
сАдрСтр = Улица + ", ";
КонецЕсли;
Если ПустаяСтрока(Дом) = 0 Тогда
сАдрСтр = сАдрСтр + Дом + ", ";
КонецЕсли;
Если ПустаяСтрока(Корпус) = 0 Тогда
сАдрСтр = сАдрСтр + "корп. " + Корпус + ", ";
КонецЕсли;
Если ПустаяСтрока(Квартира) = 0 Тогда
сАдрСтр = сАдрСтр + Квартира+ ", ";
КонецЕсли;
Если ПустаяСтрока(НасПункт) = 0 Тогда
сАдрСтр = сАдрСтр + НасПункт + ", ";
КонецЕсли;
Если ПустаяСтрока(Район) = 0 Тогда
сАдрСтр = сАдрСтр + Район + " р-н, ";
КонецЕсли;
Если ПустаяСтрока(Регион) = 0 Тогда
сАдрСтр = сАдрСтр + Регион + ", ";
КонецЕсли;
Если ПустаяСтрока(Индекс) = 0 Тогда
сАдрСтр = сАдрСтр + Индекс;
КонецЕсли;
КонецЕсли;
сАдрСтр = СокрЛП(сАдрСтр);
Дл = СтрДлина(сАдрСтр);
Если Сред(сАдрСтр,Дл,1) = "," Тогда
сАдрСтр = Сред(сАдрСтр,1,Дл-1);
КонецЕсли;
Возврат сАдрСтр;
КонецФункции //глАдресСтрокой
Вызов процедуры из НН
ФирмаАдрес = глАдресСтрокой(Фирма.ЮридическийАдрес.Получить(ДатаДок),,1);
Подправьте под свою конфигурацию и будет Вам счастье.