1С 7.7. Комплекты обработок "клиент-банк "для конфигурации "Бухгалтерский учет для Украины" 7.7.284
1C-admin
29.10.2019
Обработки для клиент-банка представляют из себя два комплекта: загрузки и выгрузки отдельно. Выгрузка формирует файлы в формате банков (уже устаревших на сегодняшний день).
Загрузка представляет собой комплект обработок, считывающих формат банка и форму с табличным документом в режиме ввода данных.
Обработки подключаются по принципу регламентированных отчетов (файл со списком обработок в каталоге с основной обработкой). Аваль, Приватбанк, Укрсоцбанк, Правэкс и Укрэксимбанк, в каждом из них несколько форматов обмена по мере их появления.
Это коллективный труд нашего франчайзи, дорабатывались и добавлялись банки по мере требования клиентов (пока их всех сразу не подключили в типовую).
Использовалось для конфигурации "Бухгалтерский учет для Украины" 7.70.284
Возможно для начинающих 7чников (если таковые остались) интерес представляет интерактивная работа с загружаемой выпиской.
В конфигурации необходимо выполнить минимальную доработку: в модуле формы банковской выписки разместить в процедуре ПриОткрытии() следующий текст
// ===============================
Док=Форма.Параметр;
Если (ТипЗначения(Док)=100) и (Выбран()=0) Тогда
ТЗ=Док.ТЗ;
ЗагрузитьТабличнуюЧасть(ТЗ);
РСчет=Док.РСчет;
ДатаДок=Док.Дта;
СчетУчета = РСчет.СчетУчета;
ВыбратьСтроки();
Пока ПолучитьСтроку()=1 Цикл
ТЗ.ПолучитьСтрокуПоНомеру(НомерСтроки);
ИзмСчет();
ИзмПриходРасход();
Субконто=ТЗ.Субконто;
Заказ=ТЗ.Заказ;
КонецЦикла;
КонецЕсли;
// ===============================
// в форму списка контрагента добавляется реквизит диалога
//СтрПоискКлиента — строка неогр. длины для (текст, недоступный для редактирования, в нем будет показываться название клиента из банковской выписки)
Обработки подключаются при помощи файлов по принципу регламентированных отчетов. Поэтому для отключения ненужных комментируем соответствующую строку (добавляем символ точка с запятой ;). Файл-реестр банков для поддерживаемых форматов загрузки. Все скромно. Основная форма загрузки — CL_FORM.ert.
Файл-реестр форматов выгрузки банковских выписок (текст MS-DOS)
; ——- Обработки Клиент-банк ——————
Cl_bnk_Atv:Аваль(F6) ;Аваль — техническая выписка(экспорт) по кн.F6
Cl_bnk_Axl:Аваль(Щит-КБ) ;Аваль — загрузка транзитных файлов (только Щит-КБ)
Cl_bnk_Ptd:Приват(оригинал) ;Приват-банк DBF(+xor)-б/э DOS/Win
Cl_bnk_udb:УСБ(Win DBF экс) ;Укрсоцбанк Win DBF (экспорт)
Cl_bnk_ut1:УСБ(Win TEXT): ;Укрсоцбанк Win TEXT 1 вариант б/э — устар.формат
Cl_bnk_Zuk:ЗУКБ ;ЗУКБ-интернет EXCEL (экспорт)
Cl_bnk_Exi:УкрЭксИмБанк DBF ;УкрЭксИмБанк DBF (экспорт) demo
Cl_bnk_chb:ЧБРР ;ЧБРР — экспорт в DBF
Cl_bnk_pvx:Правэкс ;Правэкс — конвертация банк.выписок в DBF
Выгрузка платежных поручений еще скромнее. Основная форма выгрузки — Out_Form.ert.
Подбор платежек и некоторые параметры для банков.
Файл-реестр форматов загрузки платежных поручений (текст MS-DOS)
Out_Avl:Аваль ;Аваль — выгрузка платежек в текстовый файл
Out_Ptd:Приват(оригинал) ;Приват-банк прямая запись в базу DOS/Win
Out_usb:Укрсоцбанк ;УСБ — выгрузка платежек в текстовый файл
;Out_pvx:Правэкс ;Правэкс — конвертация банк.выписок в DBF
// ===============================
// выбираем НДС не из всего справочника, а из маленького списка
// ИмяРекв — имя реквизита вида НДС, по умолчанию ВидНДС
Процедура глВыбратьНДС(Конт,ИмяРекв = "") Экспорт
Перем Выб;
Спр = СоздатьОбъект("Справочник.НалогиОтчисления");
Спис = СоздатьОбъект("СписокЗначений");
Если Спр.НайтиПоКоду("НДС20") = 1 Тогда
Спис.ДобавитьЗначение(Спр.ТекущийЭлемент());
КонецЕсли;
Если Спр.НайтиПоКоду("НДС0") = 1 Тогда
Спис.ДобавитьЗначение(Спр.ТекущийЭлемент());
КонецЕсли;
Если Спр.НайтиПоКоду("БезНДС") = 1 Тогда
Спис.ДобавитьЗначение(Спр.ТекущийЭлемент());
КонецЕсли;
Выб = ПолучитьПустоеЗначение("Справочник.НалогиОтчисления");
Попытка
Выб = Конт.ВидНДС; // все документы
Исключение
Выб = Конт.СтавкаНДС; // справочник ТМЦ
КонецПопытки;
Если Спис.ВыбратьЗначение(Выб,,,,2) = 1 Тогда
Если ИмяРекв = "" Тогда
Конт.ВидНДС = Выб;
Иначе
Конт.УстановитьАтрибут(ИмяРекв,Выб);
КонецЕсли;
КонецЕсли;
КонецПроцедур
