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