Импорт выписки с КБ iFobs (ОТП)
05.03.13, 12:59
Живет на форуме
Группа: Местный
Сообщений: 2710
Из: Проскуров
Спасибо сказали: 691 раз
Рейтинг: 669.9
Вот для ХМЛ:
Функция Импорт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.Закрыть(); Возврат тзВыписка;
05.03.13, 14:46
Почти крутой
Группа: Местный
Сообщений: 1298
Из: Донецк
Спасибо сказали: 208 раз
Рейтинг: 0
Цитата(sava1 @ 05.03.13, 12:59)
Вот для ХМЛ:
Спасибо конечно, но я имел в виду примерно вот это [необходимо зарегистрироваться для просмотра ссылки]
И ещ вот нашел: [необходимо зарегистрироваться для просмотра ссылки]
Сообщение отредактировал vadim007 - 05.03.13, 14:50
28.05.13, 17:34
Молчаливый
Группа: Пользователи
Сообщений: 2
Спасибо сказали: 0 раз
Рейтинг: 0
Цитата(marveL @ 28.05.13, 15:36)
[необходимо зарегистрироваться для просмотра ссылки]
Спасибо !!!
Цитата(logist @ 28.05.13, 15:23)
Чем помочь?
Спасибо за отклик, задачу решил!!!
19.03.14, 15:22
Молчаливый
Группа: Пользователи
Сообщений: 1
Спасибо сказали: 0 раз
Рейтинг: 0
Цитата(marveL @ 28.05.13, 15:36)
[необходимо зарегистрироваться для просмотра ссылки]
Данная ссылка давно не рбаотает. Можно ли повторно выложить файл?
Заранее спасибо.
Не нашли ответа на свой вопрос?
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!