Добавлен повтор при ошибке через тайаут, что бы не закрывало exe

README.md

@@ -59,8 +59,10 @@ https://github.com/Tavalik/TMail/tree/master
          "ОписаниеИнформационнойБазы": "моя база для тестов",
          "ЧислоСтрокДляЗаписи": 1000, - число строк которые будет переносить за один запрос к sql. Максимум 1000. Например если за паузу между загрузкой успели создать в журнале только 500 новых записей, то загрузит 500, не дожидаясь полного пакета.
          "НачатьСПервойВSQLLite": "Ложь", - Если мы загружаем базу первый раз, то Истина. Например есть журнал который сокращался и сейчас хранятся записи с id от 500 до 10000. Мы получим минимальный айди и начнем загрузку с него. Для таблицы ЗаписиДанных.
-      "ОбрабатываемаяСтрокаСобытий": 0, - Если по какой то причине у нас затерлись данные или пропустили часть строк то можно начать загрузку с конкретного айди что бы догрузить. Для таблицы ЗаписиДанных.
-      "ПаузаСекунд": 60, - Пауза между обращением к базам. Мы получаем таблицы последних айди для каждой таблицы в SQL и журнале регистрации. После чего проходим все таблицы по очереди загружая новые записи. После этого пауза на указанное время перед новой итерацией.
-      "ВыводитьЛог": "Истина" - Если истина выводится информация по количеству итераций, загрузке таблиц.
+        "ОбрабатываемаяСтрокаСобытий": 0, - Если по какой то причине у нас затерлись данные или пропустили часть строк то можно начать загрузку с конкретного айди что бы догрузить. Для таблицы ЗаписиДанных.
+        "ПаузаСекунд": 60, - Пауза между обращением к базам. Мы получаем таблицы последних айди для каждой таблицы в SQL и журнале регистрации. После чего проходим все   таблицы по очереди загружая новые записи. После этого пауза на указанное время перед новой итерацией.
+        "ВыводитьЛог": "Истина", - Если истина выводится информация по количеству итераций, загрузке таблиц.     
+        "ПродолжатьПриОшибке": "Ложь", - Если истина не прекратит работу при ошибке. Автоматически попробует еще раз через таймаут.  
+        "ПаузаСекундПриОшибке": 1800 - Пауза до повторного запуска если произошла ошибка 
     }
 

packagedef

@@ -1,6 +1,6 @@
 Описание.Имя("Zhurnal-Registracii")
 
-    .Версия("1.1.0")
+    .Версия("1.1.2")
 
     .Автор("Новоковский Игорь")
 

setting.Json

@@ -21,7 +21,9 @@
         "ЧислоСтрокДляЗаписи": 1000,
         "НачатьСПервойВSQLLite": "Ложь",
         "ОбрабатываемаяСтрокаСобытий": 0,
-        "ПаузаСекунд": 60,
-        "ВыводитьЛог": "Истина"
+        "ПаузаСекунд": 600,
+        "ВыводитьЛог": "Истина",
+        "ПродолжатьПриОшибке": "Ложь",
+        "ПаузаСекундПриОшибке": 1800
     }
 }

src/Классы/ОбработкаЖурнала.os

@@ -15,6 +15,8 @@
 Перем НачатьСПервойВSQLLite; // Если мы загружаем базу первый раз, то Истина. Например есть журнал который сокращался и сейчас хранятся записи с id от 500 до 10000. Мы получим минимальный айди и начнем загрузку с него. Для таблицы ЗаписиДанных.
 Перем ПаузаСекунд; // Пауза между обращением к базам. Мы получаем таблицы последних айди для каждой таблицы в SQL и журнале регистрации. После чего проходим все таблицы по очереди загружая новые записи. После этого пауза на указанное время перед новой итерацией.
 Перем ВыводитьЛог; // Если истина выводится информация по количеству итераций, загрузке таблиц.
+Перем ПродолжатьПриОшибке; // Не прекратит работу при ошибке. Автоматически попробует еще раз через таймаут
+Перем ПаузаСекундПриОшибке; // Пауза до повторного запуска если произошла ошибка 
 
 Перем СоединениеSqlLite;
 Перем СоединениеSql;
@@ -51,7 +53,9 @@
 	ВыводитьЛог = ОписаниеБулево.ПривестиЗначение(НастройкиЧтенияЖурнала.ВыводитьЛог);
 	ОбрабатываемаяСтрокаСобытий = ОписаниеЧисла.ПривестиЗначение(НастройкиЧтенияЖурнала.ОбрабатываемаяСтрокаСобытий);
 	ПаузаСекунд = ОписаниеЧисла.ПривестиЗначение(НастройкиЧтенияЖурнала.ПаузаСекунд);
-
+	ПаузаСекундПриОшибке = ОписаниеЧисла.ПривестиЗначение(НастройкиЧтенияЖурнала.ПаузаСекундПриОшибке);
+	ПродолжатьПриОшибке = ОписаниеБулево.ПривестиЗначение(НастройкиЧтенияЖурнала.ПродолжатьПриОшибке);
+
 	НастройкиОбработкиНастройкиПочты = НастройкиОбработки.НастройкиПочты;
 
 	ИспользоватьSSL = ОписаниеБулево.ПривестиЗначение(НастройкиОбработкиНастройкиПочты.ИспользоватьSSL);
@@ -86,10 +90,18 @@
 	Возврат ВыводитьЛог;
 КонецФункции
 
+Функция ПолучитьПродолжатьПриОшибке() Экспорт
+	Возврат ПродолжатьПриОшибке;
+КонецФункции
+
 Функция ПолучитьПаузаСекунд() Экспорт
 	Возврат ПаузаСекунд;
 КонецФункции
 
+Функция ПолучитьПаузаСекундПриОшибке() Экспорт
+	Возврат ПаузаСекундПриОшибке;
+КонецФункции
+
 Функция ПолучитьНастройкиПочты() Экспорт
 	Возврат НастройкиПочты;
 КонецФункции
@@ -194,7 +206,7 @@
 		Ожидаем.Что(ОписаниеИнформационнойБазы, "ОписаниеИнформационнойБазы должен быть заполнен").Заполнено();	
 		Ожидаем.Что(ЧислоСтрокДляЗаписи, "ЧислоСтрокДляЗаписи должен быть заполнен").Заполнено();
 		Ожидаем.Что(ПаузаСекунд, "ПаузаСекунд должен быть заполнен").Заполнено();
-		
+
 	КонецЕсли;
 
 КонецПроцедуры

src/Модули/ЧтениеИЗаписьВБазу.os

@@ -19,22 +19,37 @@
 
 	НастройкиПочты = ОбработкаЖурнала.ПолучитьНастройкиПочты();
 
-	Попытка
-		ЗапуститьОбработку(ОбработкаЖурнала, НастройкиПочты);
-	Исключение
-
-		ТекстСообщения = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
-		Если НЕ Логирование.ЗаписатьСтрокуЛога(ТекстСообщения) Тогда
-			Сообщить("ЗаписатьСтрокуЛога: " + Логирование.ТекстОшибки);
-		КонецЕсли;
-
-		Если НастройкиПочты.ОтправлятьПисьмоПриОшибке Тогда
-			ОтправитьПисьмо(ОбработкаЖурнала, ТекстСообщения, ИмяФайлаЛога);
-			ВызватьИсключение ТекстСообщения;
+	ПродолжатьЧтение = Истина;
+	ПродолжатьПриОшибке = ОбработкаЖурнала.ПолучитьПродолжатьПриОшибке();
+	ПаузаСекундПриОшибке = ОбработкаЖурнала.ПолучитьПаузаСекундПриОшибке();
+	ПаузаСекундПриОшибкеВремя = ПаузаСекундПриОшибке * 1000;
+
+	Пока ПродолжатьЧтение Цикл
+
+		Попытка
+			ЗапуститьОбработку(ОбработкаЖурнала, НастройкиПочты);
+		Исключение
+
+			ТекстСообщения = ПодробноеПредставлениеОшибки(ИнформацияОбОшибке());
+			Если НЕ Логирование.ЗаписатьСтрокуЛога(ТекстСообщения) Тогда
+				Сообщить("ЗаписатьСтрокуЛога: " + Логирование.ТекстОшибки);
+			КонецЕсли;
+
+			Если НастройкиПочты.ОтправлятьПисьмоПриОшибке Тогда
+				ОтправитьПисьмо(ОбработкаЖурнала, ТекстСообщения, ИмяФайлаЛога);
+				ВызватьИсключение ТекстСообщения;
+			КонецЕсли;
+
+		КонецПопытки;
+
+		Если ПродолжатьПриОшибке Тогда
+			Приостановить(ПаузаСекундПриОшибкеВремя);
+		Иначе
+			Прервать;
 		КонецЕсли;
 
-	КонецПопытки;
-	
+	КонецЦикла;
+
 КонецПроцедуры
 
 #КонецОбласти
@@ -128,16 +143,16 @@
 
 	СоответствиеТаблиц = СоответствиеТаблиц();
 
-	IDпоследнейЗаписиВSQLLite = IDПоследнейЗаписиВEventLogMetadataSqlLite(ОбработкаЖурнала);
+	SQLLiteIDпоследнейЗаписи = IDПоследнейЗаписиВEventLogMetadataSqlLite(ОбработкаЖурнала);
 	НоваяСтрокаТаблицы = ТаблицаПоследнихIDSqlLite.Добавить();
 	НоваяСтрокаТаблицы.name = "EventLogMetadata";
-	НоваяСтрокаТаблицы.seq = IDпоследнейЗаписиВSQLLite;
+	НоваяСтрокаТаблицы.seq = SQLLiteIDпоследнейЗаписи;
 
-	IDпоследнейЗаписиВSQL = IDПоследнейЗаписиВСоответствияСтрокМетаданнымSql(ОбработкаЖурнала);
+	SQLIDпоследнейЗаписи = IDПоследнейЗаписиВСоответствияСтрокМетаданнымSql(ОбработкаЖурнала);
 	НоваяСтрокаТаблицы = ТаблицаПоследнихIDSql.Добавить();
 	НоваяСтрокаТаблицы.ИнформационнаяСистема = ОбработкаЖурнала.ПолучитьИнформационнаяСистема();
 	НоваяСтрокаТаблицы.Наименование = "СоответствияСтрокМетаданным";
-	НоваяСтрокаТаблицы.ID = IDпоследнейЗаписиВSQL;
+	НоваяСтрокаТаблицы.ID = SQLIDпоследнейЗаписи;
 
 	Для Каждого ТекСтрока Из ТаблицаПоследнихIDSqlLite Цикл
 
@@ -389,7 +404,7 @@
 
 	ЗапросВставка = Новый Запрос();
 	ЗапросВставка.УстановитьСоединение(СоединениеSqlLite);
-	ЗапросВставка.Текст = "Select eventLogID From EventLogMetadata ORDER BY rowID DESC LIMIT 1";
+	ЗапросВставка.Текст = "Select eventLogID From EventLogMetadata ORDER BY eventLogID DESC LIMIT 1";
 	Рез = ЗапросВставка.Выполнить();
 
 	Ожидаем.Что(Рез.Пустой()).Равно(Ложь);

ГотоваяСборка/setting.Json

@@ -21,7 +21,9 @@
         "ЧислоСтрокДляЗаписи": 1000,
         "НачатьСПервойВSQLLite": "Ложь",
         "ОбрабатываемаяСтрокаСобытий": 0,
-        "ПаузаСекунд": 60,
-        "ВыводитьЛог": "Истина"
+        "ПаузаСекунд": 600,
+        "ВыводитьЛог": "Истина",
+        "ПродолжатьПриОшибке": "Ложь",
+        "ПаузаСекундПриОшибке": 1800
     }
 }