Помощь - Поиск - Пользователи - Календарь
Полная версия этой страницы: адрес в Налоговой накладной
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 > Программисту > Программирование в 1С Предприятие 7.7
anagk
Подскажите как сделать в Налоговой формат даты согл. письма налоговой:
Формат адреси Адреса записується у загальновстановленому порядку: вулиця, № будинку, № офісу, місто (населений пункт), район (якщо населений пункт не є райцентром), область (якщо місто не є обласним центром), поштовий індекс.

да забыл... конфигурация ПУБ smile.gif
-=VJ=-
Цитата(anagk @ 19.06.11, 12:03) необходимо зарегистрироваться для просмотра ссылки
да забыл... конфигурация ПУБ smile.gif


А что, функции глобального модуля глАдресСтрокой там нет?
anagk
перекручивал по-разному, но поле ИНДЕКС идет первым, хоть Вы тресни

пытался написать новую глПочтовыйАдрес, но не могу из обработки ВводАдреса вытянуть поля.. все время первым идет ИНДЕКС!!!
-=VJ=-
Цитата(anagk @ 19.06.11, 13:07) необходимо зарегистрироваться для просмотра ссылки
перекручивал по-разному, но поле ИНДЕКС идет первым, хоть Вы тресни


А трескаться не нужно smile.gif
Ориентировка идет по запятым - если у Вас там всё с ними правильно, то обработка корректно всё отпарсит.
Код бросил.
anagk
СПАСИБО! тема закрыта.
gena_tok
Извините, за вторжение, но у меня тот вопрос остается не решенным, помогите, если можете разобраться - где и что нужно прописать, я смотрю что у Вас вопрос уже решен!
Заранее благодарны.
-=VJ=-
Цитата(gena_tok @ 20.06.11, 12:24) необходимо зарегистрироваться для просмотра ссылки
Извините, за вторжение, но у меня тот вопрос остается не решенным


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

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


причем здесь дата?
-=VJ=-
Цитата(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);


Подправьте под свою конфигурацию и будет Вам счастье.
gena_tok
ОГРОМНОЕ СПАСИБО!!!!!!!
Vofka
Не забываем про "+СПС"!!!

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

Я вообще-то имел ввиду -=VJ=- wink.gif
Для просмотра полной версии этой страницы, пожалуйста, пройдите по ссылке.