Автоматическая загрузка выписок Сбербанк-бизнес онлайн с помощью 1С:ДиректБанк

 //  Эту процедура инициирует создание и если настроено, проведение документов на основе загруженной выписки.
// в этой процедур мы отключаем все окна, предупреждения и прочие открываемые формы
&Вместо("ЗагрузитьВыполнить")
&НаКлиенте
Процедура hands_center_ЗагрузитьВыполнить(Команда)

ПослеЗагрузкиВыписокВ1С = Истина;

Если НЕ ПроверитьЗаполнениеРеквизитовФормы() Тогда

Возврат;

КонецЕсли;

Если Объект.Загрузка.Количество() > 0 Тогда

ЕстьОтмеченныеСтроки = Ложь;
Для Каждого ТекущаяСтрока Из Объект.Загрузка Цикл
Если ТекущаяСтрока.Загружать Тогда
ЕстьОтмеченныеСтроки = Истина;
Прервать;
КонецЕсли;
КонецЦикла;

Если Не ЕстьОтмеченныеСтроки Тогда
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = НСтр("ru = 'Не отмечено ни одной строки! Выписки не будут загружены. Нужно установить отметку в загружаемых строках и нажать кнопку еще раз.'");
Сообщение.Поле = "Объект.Загрузка[0].Загружать";
Сообщение.Сообщить();
Возврат;
КонецЕсли;

ТаблицаРезультата.Очистить();

Состояние(
НСтр("ru='Выполняется загрузка выписки из файла в 1С...'"),
,
НСтр("ru='Пожалуйста, подождите'"),
БиблиотекаКартинок.ЗагрузкаДанных32
);

СтруктураДанныхЗагрузки = ЗагрузитьВыполнитьНаСервере();

Если СтруктураДанныхЗагрузки.Свойство("ТекстПредупреждения") И НЕ ПустаяСтрока(СтруктураДанныхЗагрузки.ТекстПредупреждения) Тогда
ПоказатьПредупреждение(Неопределено, СтруктураДанныхЗагрузки.ТекстПредупреждения);
КонецЕсли;

ПараметрыЗавершения = Новый Структура("ЕстьПредупржедения, ОбработаноСтрок, ВсегоСтрок, СообщенияПользователю",
СтруктураДанныхЗагрузки.ЕстьПредупржедения, СтруктураДанныхЗагрузки.ОбработаноСтрок, СтруктураДанныхЗагрузки.ВсегоСтрок, СтруктураДанныхЗагрузки.СообщенияПользователю);

////Добавляем дополнительное условие вывода предупреждений, пусть только когда отключена автозагрузка
Если Таймер > 0 Тогда
возврат
КонецЕсли;
////
#Если ВебКлиент Тогда

ЛеваяЧастьПредупреждения = "Загрузка платежных документов завершена";
ПраваяЧастьПредупреждения = НСтр("ru = 'Обработано строк: '")+ПараметрыЗавершения.ОбработаноСтрок+НСтр("ru = '. Всего строк: '")+ПараметрыЗавершения.ВсегоСтрок+".";
ТекстПредупреждения = ЛеваяЧастьПредупреждения + Символы.ПС + Символы.ПС + ПраваяЧастьПредупреждения;
ПоказатьПредупреждение(Неопределено, ТекстПредупреждения);

РезультатЗавершения = Неопределено; // Новый Структура("ПоказатьПротокол", Истина);
ЗагрузкаПлатежныхДокументовЗавершение(РезультатЗавершения, ПараметрыЗавершения);

#Иначе

ОписаниеОповещенияЗагрузкиПлатежныхДокументов = Новый ОписаниеОповещения("ЗагрузкаПлатежныхДокументовЗавершение", ЭтотОбъект, ПараметрыЗавершения);
ОткрытьФорму("Обработка.КлиентБанк.Форма.ФормаЗагрузкаДокументовЗавершена",
ПараметрыЗавершения,
,,,,ОписаниеОповещенияЗагрузкиПлатежныхДокументов, РежимОткрытияОкнаФормы.БлокироватьВесьИнтерфейс);

#КонецЕсли

Иначе
////Добавляем дополнительное условие вывода предупреждений, пусть только когда отключена автозагрузка
Если Таймер > 0 Тогда
возврат
КонецЕсли;
////
ПоказатьПредупреждение(Неопределено, НСтр("ru = 'Список документов для загрузки пуст.'"));

КонецЕсли;

КонецПроцедуры // ЗагрузитьВыполнить()


//// Эта процедура выполняется после получения загруженных выписок
//// Вносим внее изменения для того что отключить все всплывающие окна и предупреждения, когда у нас включен таймер

&Вместо("ПрочитатьЭлектронныеВыпискиБанка")
&НаКлиенте
Процедура hands_center_ПрочитатьЭлектронныеВыпискиБанка()

СтекОповещений = Новый Массив;
ТекстПредупреждения = "";

ИмпортТекстДляРазбора = "";
Для каждого ЭлементСписка Из ВыпискиБанка Цикл
ТекстВыписки = ПрочитатьЭлектроннуюВыпискуБанкаНаСервере(ЭлементСписка.Значение, СтекОповещений);
ИмпортТекстДляРазбора = ИмпортТекстДляРазбора + Символы.ПС + ТекстВыписки;
КонецЦикла;

Если Не ЗначениеЗаполнено(ИмпортТекстДляРазбора) Тогда
ТекстСообщения = НСтр("ru = 'Файл загрузки не содержит данных!'");
УправлениеНебольшойФирмойКлиент.СообщитьОбОшибке(ЭтаФорма, ТекстСообщения);
Возврат;
КонецЕсли;

СтрокаСообщения = ЗаполнитьДокументыНаИмпорт(ИмпортТекстДляРазбора);
Если ЗначениеЗаполнено(СтрокаСообщения) Тогда
ТекстПредупреждения = ТекстПредупреждения + ?(ЗначениеЗаполнено(ТекстПредупреждения), Символы.ПС, "") + СтрокаСообщения;
КонецЕсли;

Для каждого Сообщение Из СтекОповещений Цикл
УправлениеНебольшойФирмойКлиент.СообщитьОбОшибке(ЭтаФорма, Сообщение.Текст);
КонецЦикла;

//// Если у нас установлен Таймер повторного запроса выписки
Если Таймер > 0  тогда
ЗагрузитьВыполнить(Неопределено); //// запускаем обработку документов выписки
ПодключитьОбработчикОжидания("hands_center_ЗапроситьЭлектроннуюВыпискуБанка", Таймер, Истина); //// Устанавливаем Таймер на повторную загрузку выписки.
возврат;
КонецЕсли;
////

Если ЗначениеЗаполнено(ТекстПредупреждения) Тогда
ПоказатьПредупреждение(Неопределено, ТекстПредупреждения);
КонецЕсли;


КонецПроцедуры

//// "нажимаем" кнопку "Запросить выписку"
&НаКлиенте
Процедура hands_center_ЗапроситьЭлектроннуюВыпискуБанка() экспорт
ЗапроситьЭлектроннуюВыпискуБанка(Неопределено);
КонецПроцедуры

 //// Подменяем стандартную процедуру выполняемую после авторизации клиент-банка

&Вместо("ПослеФормированияИОтправкиЗапросовВыпискиСбербанк")
Процедура хц_ПослеФормированияИОтправкиЗапросовВыпискиСбербанк(Результат, ДополнительныеПараметры) Экспорт

ПараметрыЖурналирования = ОбменСБанкамиСлужебныйВызовСервера.ПараметрыЖурналирования(
ДополнительныеПараметры.НастройкаОбмена);

Если ПараметрыЖурналирования.ИспользоватьЖурналирование Тогда
СохранитьЖурналВФайл(ДополнительныеПараметры.НастройкаОбмена, ПараметрыЖурналирования.КаталогДляЖурналирования);
КонецЕсли;

Если Результат = Неопределено Тогда // задание было отменено пользователем
Возврат;
КонецЕсли;

Если Результат.Статус = "Ошибка" Тогда
ОбщегоНазначенияКлиентСервер.СообщитьПользователю(Результат.КраткоеПредставлениеОшибки);
Иначе // выполнено
РезультатОперации = ПолучитьИзВременногоХранилища(Результат.АдресРезультата);


Если РезультатОперации.ГотовыеВыписки.Количество()
//// Добавляем дополнительное условия, для вывода вопроса о повторной загрузке выписки
и ДополнительныеПараметры.Владелец.Таймер = 0
////
Тогда
ДополнительныеПараметры.Вставить("ГотовыеВыписки", РезультатОперации.ГотовыеВыписки);
ОписаниеОповещенияОЗавершении = Новый ОписаниеОповещения(
"ПолучитьВыпискуСбербанкаПослеВопросаОбИхНаличии", ЭтотОбъект, ДополнительныеПараметры);
ТекстВопроса = НСтр("ru = 'В базе уже есть выписки банка за указанный период.
|Загрузить выписки из базы или получить новые из банка?'");
Кнопки = Новый СписокЗначений;
Кнопки.Добавить(Истина, НСтр("ru = 'Загрузить из базы'"));
Кнопки.Добавить(Ложь, НСтр("ru = 'Получить из банка'"));
Заголовок = НСтр("ru = 'Получение выписки'");
ПоказатьВопрос(ОписаниеОповещенияОЗавершении, ТекстВопроса, Кнопки, , Истина, Заголовок);

//// Если уже есть загруженные выписки, но включен таймер сразу переходим к получению новой выписки
ИначеЕсли РезультатОперации.ГотовыеВыписки.Количество()
и ДополнительныеПараметры.Владелец.Таймер > 0 Тогда
ПолучитьВыпискуСбербанкаПослеВопросаОбИхНаличии(Ложь, ДополнительныеПараметры);
////
ИначеЕсли РезультатОперации.МассивТикетов.Количество() Тогда // запросы были отправлены в банк и получены тикеты
ВладелецФормы = ДополнительныеПараметры.Владелец;
ПараметрыФормы = Новый Структура("МассивСообщенийОбмена, НастройкаОбмена, ГотовыеВыписки, ДатаНачала, ДатаОкончания,
|ПринудительноеПолучениеВыписки, НомерСчета");
ЗаполнитьЗначенияСвойств(ПараметрыФормы, ДополнительныеПараметры);
ПараметрыФормы.Вставить("ВидОперации", "ПолучениеВыписки");
ПараметрыФормы.Вставить("МассивТикетов", РезультатОперации.МассивТикетов);
ПараметрыФормы.Вставить("МассивСообщенийОбмена", РезультатОперации.МассивСообщенийОбмена);
ПараметрыФормы.Вставить("ГотовыеВыписки", Новый Массив);
ОткрытьФорму("Обработка.ОбменСБанками.Форма.ЗапросВБанк", ПараметрыФормы, ВладелецФормы);
ИначеЕсли РезультатОперации.ИспользуетсяТокен Тогда
ДополнительныеПараметры.Вставить("ГотовыеВыписки", Новый Массив);
ДополнительныеПараметры.Вставить("МассивСообщенийОбмена", РезультатОперации.МассивСообщенийОбмена);
ОбработчикПослеПодписания = Новый ОписаниеОповещения(
"ОтправитьЗапросВыпискиПослеПодписанияСбербанк", ЭтотОбъект, ДополнительныеПараметры);
ПодписатьЭДСбербанк(
ОбработчикПослеПодписания, ДополнительныеПараметры.НастройкаОбмена, РезультатОперации.МассивСообщенийОбмена);
Иначе //отправка по логину, требуется установка сессии.
ДополнительныеПараметры.Вставить("МассивСообщенийОбмена", РезультатОперации.МассивСообщенийОбмена);
Обработчик = Новый ОписаниеОповещения(
"ПолучитьВыпискиПослеБазовойАутентификацииСбербанк", ЭтотОбъект, ДополнительныеПараметры);
ВыполнитьБазовуюАутентификациюСбербанк(Обработчик, ДополнительныеПараметры.РеквизитыНастройкиОбмена.ИмяВнешнегоМодуля,
ДополнительныеПараметры.НастройкаОбмена, ДополнительныеПараметры.НастройкаОбмена);
КонецЕсли;

КонецЕсли;

КонецПроцедуры