[anagk]

Подскажите как сделать в Налоговой формат даты согл. письма налоговой:
Формат адреси Адреса записується у загальновстановленому порядку: вулиця, № будинку, № офісу, місто (населений пункт), район (якщо населений пункт не є райцентром), область (якщо місто не є обласним центром), поштовий індекс.

да забыл... конфигурация ПУБ

[-=VJ=-]

да забыл... конфигурация ПУБ

А что, функции глобального модуля глАдресСтрокой там нет?

[anagk]

перекручивал по-разному, но поле ИНДЕКС идет первым, хоть Вы тресни

пытался написать новую глПочтовыйАдрес, но не могу из обработки ВводАдреса вытянуть поля.. все время первым идет ИНДЕКС!!!

[-=VJ=-]

перекручивал по-разному, но поле ИНДЕКС идет первым, хоть Вы тресни

А трескаться не нужно
Ориентировка идет по запятым - если у Вас там всё с ними правильно, то обработка корректно всё отпарсит.
Код бросил.

[anagk]

СПАСИБО! тема закрыта.

[gena_tok]

Извините, за вторжение, но у меня тот вопрос остается не решенным, помогите, если можете разобраться - где и что нужно прописать, я смотрю что у Вас вопрос уже решен!
Заранее благодарны.

[-=VJ=-]

Извините, за вторжение, но у меня тот вопрос остается не решенным

Какой именно вопрос?

[gena_tok]

Как сделать в Налоговой формат даты согл. письма налоговой:
Формат адреси Адреса записується у загальновстановленому порядку: вулиця, № будинку, № офісу, місто (населений пункт), район (якщо населений пункт не є райцентром), область (якщо місто не є обласним центром), поштовий індекс.

Конфигурация ПУБ
Я понял, что Вы решили этот вопрос, подскажите, пожалуйста КАК?
Заранее благодарны.

[DartRomanius]

От одного не могу понять:

Как сделать в Налоговой формат даты согл. письма налоговой

причем здесь дата?

[-=VJ=-]

Я понял, что Вы решили этот вопрос, подскажите, пожалуйста КАК?

Процедура глобального модуля

// ===============================
// Формирует адрес в строку
// ===============================
Функция глАдресСтрокой(Знач Адр,Язык="Р",НН=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);

Подправьте под свою конфигурацию и будет Вам счастье.

[gena_tok]

ОГРОМНОЕ СПАСИБО!!!!!!!

[Vofka]

Не забываем про "+СПС"!!!

Не забываем про "+СПС"!!!

Я вообще-то имел ввиду -=VJ=-