Счастье привалило, в виде нового клиент банка CABiNET от Credit Agricole Bank.

Ранее было 1С 8.2 УТП для України + обработка клієнт банк от Аbbyy Україна, с помощью костыля работало с клиент банком Стиль(М).

И так на самом сайте есть возможность выгрузки платежных поручений в следующих форматах:



Загрузка входных платежей чуть скромнее:



Сегодня, узнал что новый супер клиент банк CABiNET от Credit Agricole Bank, не совместим с 1С.
О чем думали IT-специалисты, лично мне не совсем понятно

На звонки, мол как работать 1С & CABiNET, ответы как пользоваться сайтом, и это уже успех

Выгрузил первую платежку пальчиками из 1С в CABiNET, радости мало, спасибо чудесным клавишам "Ctrl + C & Ctrl + V"

Вопрос можно ли штатный клиент банк 1С, подружить с новым клиент банком CABiNET от Credit Agricole Bank





Банк пошел на встречу и прислал два файла с полезной инфой для обмена.

Первый: Формат экспорта выписки (CSV & TXT)

Что хорошего из этого можно сделать?

проще обработка от Аббии + обработка формата (написать)

sava1 @ Сегодня, 19:06 ,

А родной модуль клиент банка в 1С сложно заставить работать?

конвертер - обработка, которая по данным банка создаст файл в нужном формате...

Да ладно?
Сталкивался. Когда-то мне прислали файлик в несколько мегабайт с клиентами по всему району. Забыли отобрать по нашей организации.

Да, можно. Взять за образец любую подключаемую обработку формата, там и дописать в соответствии с форматом выгрузки.
В обработке оставляют шаблонные процедуры обработки - TXT, DBF, XLS... Там же в экспортных переменных и указать обрабатываемые форматы этой обработки, например, из того же КредиАгриколь можно делать выгрузки в форматированном тексте или тексте с разделителями и т.д.

Вам нужна конкретика? Опишите формат выгрузки. Скачивать какие-то файлы для ознакомления не хочется.
Родной модуль работает как универсальный? Там есть мастер настройки, в котором можно выбрать тип файла, а в соотвтествии с типом, например, текста, выбрать это файл с разделителями или с фиксированными строками, а также указать длину фиксированного поля и соответствие полей импорта строкам этого текста?
Если есть такое - то настроить в режиме пользователя.

Нужно дописывать или взять готовую обработку.

Родной модуль есть, но что он не хочет даже показывать в отборе платежку, которую через него и создал
Мастер настройки это вот эта кнопочка ?

Espresso.Doktor @ 11.12.18, 18:44 ,
В этом файле есть поля и нужно будет по них сделать обработку для клиента Аbbyy Україна 1С.
Задача не столь и сложная.
Самый простой вариант, взять обработку любого банка и ее исправить под формат нового клиента этого банка.

Тоже столкнулся с выпиской CABiNET, изменил под нее iBank2, Функция ИмпортTXT(Параметры) Ничего сложного, только учесть что выписка начинается со второй строки.

 Функция ИмпортTXT(Параметры)
    ФайлTXT    = Новый ТекстовыйДокумент;
    ИмяФайла = Параметры.ИмяФайла;
    Попытка
        ФайлTXT.Прочитать(ИмяФайла, КодировкаТекста[Параметры.КодировкаФайла]);
    Исключение
        Предупреждение("Ошибка открытия файла " + ИмяФайла);
        Возврат Неопределено;
    КонецПопытки;        
    
    тзВыписка =  Новый ТаблицаЗначений;
    тзВыписка.Колонки.Добавить("НомерПП");
    тзВыписка.Колонки.Добавить("Приход");
    тзВыписка.Колонки.Добавить("Расход");
    тзВыписка.Колонки.Добавить("ОКПО");
    тзВыписка.Колонки.Добавить("Контрагент");
    тзВыписка.Колонки.Добавить("МФО");
    тзВыписка.Колонки.Добавить("РСчет");
    тзВыписка.Колонки.Добавить("Содержание");
    
    // В первой строке хранятся параметры выписки
    Дельта = -1;
    ТекСтрока = ФайлTXT.ПолучитьСтроку(1);
    Спис = РазобратьСтроку(ТекСтрока);
    шСчет       = СокрЛП(Спис[1+Дельта].Значение);
    шВалюта     = СокрЛП(Спис[2+Дельта].Значение);
    шКвоЗаписей = СокрЛП(Спис[3+Дельта].Значение);
    
    Если шСчет <> Формат(Параметры.РСчет,"ЧН=0") Тогда
        Предупреждение("В текущем файле нет платежей с выбранным расчетным счетом!");
        Возврат тзВыписка;
    КонецЕсли;
    
    Для н = 2 По ФайлTXT.КоличествоСтрок() Цикл
        ТекСтрока = ФайлTXT.ПолучитьСтроку(н);
        Спис = РазобратьСтроку(ТекСтрока);
        
        ДатаОперации = Дата(Спис[2+Дельта].Значение);  // ггггммдд
        Если ДатаОперации <> Параметры.ДатаДок Тогда
            Продолжить;    
        КонецЕсли;
                    
        МФОКонтрагента = СокрЛП(Спис[33+Дельта].Значение);
        КодОКПОКонтрагента = СокрЛП(Спис[34+Дельта].Значение);
        РСчетКонтрагента = СокрЛП(Спис[26+Дельта].Значение);
        ИмяКонтрагента = СокрЛП(Спис[27+Дельта].Значение);
        
        Если Лев(ИмяКонтрагента, 1)  = """" И Прав(ИмяКонтрагента, 1)  = """" Тогда
            ИмяКонтрагента = Сред(ИмяКонтрагента, 2, СтрДлина(ИмяКонтрагента) - 2);
            ИмяКонтрагента = СтрЗаменить(ИмяКонтрагента,"""""", """");
        КонецЕсли;
        
        НомерПП  = СокрЛП(Спис[25+Дельта].Значение);
        Назначение = СокрЛП(Спис[24+Дельта].Значение);
        Если Лев(Назначение, 1)  = """" И Прав(Назначение, 1)  = """" Тогда
            Назначение = Сред(Назначение, 2, СтрДлина(Назначение) - 2);
            Назначение = СтрЗаменить(Назначение,"""""", """");
        КонецЕсли;
                
        НовСтрока = тзВыписка.Добавить();
        НовСтрока.НомерПП        = НомерПП;
        НовСтрока.Контрагент    = ИмяКонтрагента;
        НовСтрока.ОКПО            = СокрЛП(Формат(КодОКПОКонтрагента,"ЧГ=0"));
        НовСтрока.РСчет            = СокрЛП(Формат(РСчетКонтрагента,"ЧГ=0"));
        НовСтрока.МФО             = СокрЛП(Формат(МФОКонтрагента,"ЧГ=0"));
        НовСтрока.Содержание     = Назначение;
        
        ДебетКредит  = СокрЛП(Спис[11+Дельта].Значение); //'D' - мы платим 'C' - нам платят
        Если ДебетКредит = "D" Тогда
            Приход = 0;
            Расход = Спис[10+Дельта].Значение/100; //Сумма в копейках
        Иначе
            Приход = Спис[10+Дельта].Значение/100; //Сумма в копейках
            Расход = 0;
        КонецЕсли;

        Если Расход > 0 Тогда //Расход
            НовСтрока.Расход         = Расход;
            НовСтрока.Приход        = 0;
        Иначе //Приход
            НовСтрока.Расход         = 0;
            НовСтрока.Приход        = Приход;
        КонецЕсли;
    КонецЦикла;    
    
    Если НЕ тзВыписка.Количество() И ФайлTXT.КоличествоСтрок() Тогда
        Предупреждение("В текущем файле нет платежей с данной датой выписки и расчетным счетом!");
    КонецЕсли;
    
    Возврат тзВыписка;    
КонецФункции

Добрый, есть ли у кого формат импорт. Чтобы выгружать в направлении из 1С в новый Клиент банк ?

kooperdj @ 24.01.19, 22:33 ,


Подскажите, а где можно взять iBank2, чтобы подогнать его под выгрузку из CABiNET Credit Agricole?

UNry2 @ Вчера, 16:09 ,
Это одна из обработок форматов клиента банка Аbbyy Україна для 1С. Гугл находит моментом

Абби быстро штампует новые форматы. Поищите.
Я написал свою байду, так как абби-вские слишком примитивны для нашего предприятия. Там 90% пришлось бы вручную довводить.

Здраствуйте. Взял Ваш код но при выполнение ругается на области . Через отладчик показало что на области МФО ({ВнешняяОбработка.КлиентБанк2.Форма.Форма.Форма(751)}: ОбластьКодМФО = КлассификаторБанков.Области.КодМФО;
). В чем может бить проблема ?
Спасибо.

О тема ожила, бо я вже за стільки часу забув як виглядає обробка клієнт-банк від ABBY, чи це iBank2 ?



kooperdj @ 24.01.19, 22:33 ,

Якщо я правильно зрозумів, то треба ось цей файл переписати?

Espresso.Doktor @ 28.02.20, 1:12 ,
Нет, это вы открыли основную обработку. Есть еще обработки форматов, их можно модифицировать под выгрузку вашего банка.


alienextrime @ 26.02.20, 15:33 ,
Похоже, что КласификаторБанков - это какой-то макет. Его просто может не быть в вашей конфигурации. Нужно знать, что у вас за конфигурация и какой версией обработки вы пользуетесь.