×
Показано с 1 по 3 из 3
  1. #1
    Клерк
    Регистрация
    06.10.2003
    Сообщений
    67

    Помогите Платежное поручение

    1С Предприятие 4.2. Суть: В форме платежного поручения, введенного с какого то июня, номер ИНН залазит последней цифрой в КПП, а предпоследнюю вообще теряет. Подскажите пожалуйста с какого бока подступиться к редактированию файла документа платежного поручения *.ert?
    Заранее благодарен.
    Поделиться с друзьями

  2. #2
    Бухтелка Аватар для Programada
    Регистрация
    23.06.2003
    Адрес
    Москва/Мытищи
    Сообщений
    693
    То есть, уважаемый, вы хотите сказать, что в старую версию бухгалтерии внесли новую форму платежки (с 01.06.2003) в виде внешней обработки? И ИНН этот скорее всего от ЧП какого-нибудь. Правильно? Вопрос задан, мягко говоря, некооректно. Нельзя ли поподробнее?
    Женщина должна быть красивой, любимой и счастливой, и больше она никому ничего не должна.

  3. #3
    Клерк
    Регистрация
    06.10.2003
    Сообщений
    67
    Благодарю за внимание к моей проблеме.
    Я уже разобрался. А дело было в том что эта, действительно внешняя разработка, корявая. Вот сам косяк:
    Процедура ИНН_КПП(Стр,ИНН="",КПП="")
    Если СтрДлина(Стр) <> 12 Тогда
    // юр. лицо
    ИНН="ИНН "+СРЕД(Стр,1,10);
    КПП="КПП "+СРЕД(Стр,12,20);

    Иначе
    // физ. лицо
    ИНН = "ИНН "+Стр;
    КПП = "КПП";
    КонецЕсли;
    КонецПроцедуры

    Теперь она выглядит так:
    Процедура ИНН_КПП(Стр,ИНН="",КПП="")
    М="/";
    Если СтрДлина(Стр) <> 12 Тогда
    // юр. лицо все получаются с юрлицами.
    Если Найти(Стр,М) <>0 Тогда
    ИНН="ИНН "+СРЕД(Стр,1,10);
    КПП="КПП "+СРЕД(Стр,12,20);

    Иначе
    Стр1=ЛЕВ(Стр,12);
    ИНН="ИНН "+СРЕД(Стр1,1,12);
    КПП = "КПП";
    КонецЕсли;
    КонецЕсли;
    КонецПроцедуры

    Это конечно не весь исходник. Посмотрите может я где косяк спорол, но на первый взгляд работает нормально.
    Последний раз редактировалось a_lex_x; 08.10.2003 в 11:42.

Информация о теме

Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)