Версия для печати темы (https://pro1c.org.ua/index.php?s=dcb7bca2f44220e04fd2158124120082&showtopic=11436)
Нажмите сюда для просмотра этой темы в обычном формате
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7 _ 1С Комплексный учет 7.7 для Украины _ Импорт выписки с КБ iFobs (ОТП)
Автор: marveL 04.03.13, 15:58
Добрый день. Помогите пожалуйста, нужна обработка чтоб импортировать выписки с клиент-банка iFobs. Формат импорта txt, xls, xml. Конфигурация 1с 7,7 Комплексная
Поделитесь плз хотя бы импортом выписки из txt файла, там уже будем допиливать.
Автор: vadim007 05.03.13, 12:17
Интересно посмотреть на формат импорта.
Автор: sava1 05.03.13, 12:59
Вот для ХМЛ:
Функция ИмпортXML(Параметры)
ФайлXML = Новый ЧтениеXML;
ИмяФайла = Параметры.ИмяФайла;
Попытка
ФайлXML.ОткрытьФайл(ИмяФайла);
Исключение
Предупреждение("Ошибка открытия файла " + ИмяФайла);
Возврат Неопределено;
КонецПопытки;
тзВыписка = Новый ТаблицаЗначений;
тзВыписка.Колонки.Добавить("НомерПП");
тзВыписка.Колонки.Добавить("Приход");
тзВыписка.Колонки.Добавить("Расход");
тзВыписка.Колонки.Добавить("ОКПО");
тзВыписка.Колонки.Добавить("Контрагент");
тзВыписка.Колонки.Добавить("МФО");
тзВыписка.Колонки.Добавить("РСчет");
тзВыписка.Колонки.Добавить("Содержание");
КолвоЗаписей = 0;
Пока ФайлXML.Прочитать() Цикл
ИмяТега = ФайлXML.Имя;
Если ИмяТега = "ROW" И ФайлXML.ТипУзла = ТипУзлаXML.НачалоЭлемента Тогда
ДатаВыписки = ФайлXML.ПолучитьАтрибут("DOCUMENTDATE"); // 20081110
// Проверка на дату выписки
Если ДатаВыписки <> Формат(Параметры.ДатаДок,"ДФ=yyyyMMdd") И ДатаВыписки <> Формат(Параметры.ДатаДок,"ДФ=dd.MM.yyyy") Тогда
Продолжить;
КонецЕсли;
РСчетА = СокрЛП(ФайлXML.ПолучитьАтрибут("ACCOUNTNO"));
РСчетБ = СокрЛП(ФайлXML.ПолучитьАтрибут("CORRACCOUNTNO"));
Если РСчетБ = Параметры.РСчет Тогда // дебет
НовСтрока = тзВыписка.Добавить();
НовСтрока.Приход = Число(ФайлXML.ПолучитьАтрибут("AMOUNT"))/100;
НовСтрока.Расход = 0;
НовСтрока.РСчет = СокрЛП(Формат(РСчетА,"ЧГ=0"));
//НовСтрока.ОКПО = СокрЛП(Формат(ФайлXML.ПолучитьАтрибут("CORRIDENTIFYCODE"),"ЧГ=0"));
//НовСтрока.МФО = СокрЛП(Формат(ФайлXML.ПолучитьАтрибут("BANKID"),"ЧГ=0"));
//НовСтрока.Контрагент = СокрЛП(ФайлXML.ПолучитьАтрибут("CORRCONTRAGENTSNAME"));
ИначеЕсли РСчетА = Параметры.РСчет Тогда // кредит
НовСтрока = тзВыписка.Добавить();
НовСтрока.Приход = 0;
НовСтрока.Расход = Число(ФайлXML.ПолучитьАтрибут("AMOUNT"))/100;
НовСтрока.РСчет = СокрЛП(Формат(РСчетБ,"ЧГ=0"));
//НовСтрока.ОКПО = СокрЛП(Формат(ФайлXML.ПолучитьАтрибут("CORRIDENTIFYCODE"),"ЧГ=0"));
//НовСтрока.МФО = СокрЛП(Формат(ФайлXML.ПолучитьАтрибут("CORRBANKID"),"ЧГ=0"));
//НовСтрока.Контрагент = СокрЛП(ФайлXML.ПолучитьАтрибут("CORRSNAME"));
Иначе
Продолжить;
КонецЕсли;
НовСтрока.ОКПО = СокрЛП(Формат(ФайлXML.ПолучитьАтрибут("CORRIDENTIFYCODE"),"ЧГ=0"));
НовСтрока.МФО = СокрЛП(Формат(ФайлXML.ПолучитьАтрибут("CORRBANKID"),"ЧГ=0"));
НовСтрока.Контрагент = СокрЛП(ФайлXML.ПолучитьАтрибут("CORRSNAME"));
НовСтрока.Содержание = СокрЛП(ФайлXML.ПолучитьАтрибут("DETAILSOFPAYMENT"));
НовСтрока.НомерПП = СокрЛП(ФайлXML.ПолучитьАтрибут("DOCUMENTNO"));
КолвоЗаписей = КолвоЗаписей + 1;
Иначе
Продолжить;
КонецЕсли;
КонецЦикла;
Если НЕ тзВыписка.Количество() И КолвоЗаписей > 0 Тогда
Предупреждение("В текущем файле нет платежей с данной датой выписки и расчетным счетом!");
КонецЕсли;
ФайлXML.Закрыть();
Возврат тзВыписка;Автор: marveL 05.03.13, 13:18
Спасибо и за это, буду мучать.
Автор: vadim007 05.03.13, 14:46
И ещ вот нашел: http://pro1c.org.ua/redirect.php?http://infostart.ru/public/160163/
Автор: marveL 05.03.13, 16:06
На инфостарте видел, там два "но": для 1с 8,2 и не пойму систему как оттуда скачивать. Некоторые обработки дает качать, некоторые нет.
Спасибо.
Автор: sava1 05.03.13, 16:37
Куда слить? Адрес...
Для Факториала под 77
http://pro1c.org.ua/redirect.php?http://rghost.ru/44288149
Автор: marveL 05.03.13, 17:07
Поделитесь пожалуйста, lg2marvel@ukr.net
Автор: mobitay 28.05.13, 15:07
Доброго времени суток.
У кого есть решение iFobs ОТП + 1С 7.7 прошу помощи.
СПАСИБО !!!
Автор: logist 28.05.13, 15:23
Чем помочь?
Автор: marveL 28.05.13, 15:36
Автор: mobitay 28.05.13, 17:34
Спасибо !!!
Спасибо за отклик, задачу решил!!!
Автор: akaLOM 19.03.14, 15:22
Данная ссылка давно не рбаотает. Можно ли повторно выложить файл?
Заранее спасибо.
Автор: Brook 01.04.14, 13:27
Да, ссылка не работает. Пожалуйста, выложите повторно файлик...
Автор: satdnepr 03.09.14, 9:59
Пожалуйста перезалейте у кого есчть на файлообменник.
Автор: moongrass 15.12.15, 16:52
Здравствуйте уважаемые. У меня стал острый вопрос по данной теме. Кто может помочь решить её?
Автор: Acid 16.12.15, 9:01
Оформите заявку в Столе Заказов. Помогут.
Автор: Maestro.net 03.09.19, 16:06
Доброго дня
Прошу допомоги із загрузкою виписок із клиент банка ОТП (iFobs) в 1с7.7 Бухгалтерія
Адреса для матеріалів o.zalisny@gmail.com
Дякую
Украинский 1С форум: всё про 1С 8.3, 1С 8.2, 1С 8.1, 1С 8.0, 1С 7.7
https://pro1c.org.ua