Счастье привалило, в виде нового клиент банка 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
Банк пошел на встречу и прислал два файла с полезной инфой для обмена.
Первый: http://<a%20href="http://pro1c.org.ua/redirect.php?https://www.dropbox.com/s/rdu30dyzm989dbo/Payment%20order_Import_TXT_XML%20%281.0%29.doc?dl=0""%20target="_blank">https://www.dropbox.com/s/rdu30dyzm989dbo/P....doc?dl=0"</a>%5dФормат%20импорта%20платежных%20поручений%5b/url%5dВторой:%20%5burl="https://www.dropbox.com/s/931dzzzkl5eis8m/Statement_Export_CSV_TXT%20%28CABINET%29.doc?dl=0
Что хорошего из этого можно сделать?
проще обработка от Аббии + обработка формата (написать)
sava1 @ Сегодня, 19:06
,
А родной модуль клиент банка в 1С сложно заставить работать?
конвертер - обработка, которая по данным банка создаст файл в нужном формате...
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С в новый Клиент банк ?
UNry2 @ Вчера, 16:09
,
Это одна из обработок форматов клиента банка Аbbyy Україна для 1С. Гугл находит моментом
Абби быстро штампует новые форматы. Поищите.
Я написал свою байду, так как абби-вские слишком примитивны для нашего предприятия. Там 90% пришлось бы вручную довводить.
О тема ожила, бо я вже за стільки часу забув як виглядає обробка клієнт-банк від ABBY, чи це iBank2 ?
kooperdj @ 24.01.19, 22:33
,
Якщо я правильно зрозумів, то треба ось цей файл переписати?
Espresso.Doktor @ 28.02.20, 1:12
,
Нет, это вы открыли основную обработку. Есть еще обработки форматов, их можно модифицировать под выгрузку вашего банка.
alienextrime @ 26.02.20, 15:33
,
Похоже, что КласификаторБанков - это какой-то макет. Его просто может не быть в вашей конфигурации. Нужно знать, что у вас за конфигурация и какой версией обработки вы пользуетесь.
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua