Merge pull request #15 from alexey-stepanenko/master

#14 Добавил обработку параметра ЗаписыватьПустойСписок
arkuznetsov · Dec 20, 2024 · 678e7e9 · 678e7e9
2 parents 86f0753 + 27df4f8
commit 678e7e9
Showing 1 changed file with 20 additions and 2 deletions.
diff --git a/src/Классы/ВыводДанныхВФайлJSON.os b/src/Классы/ВыводДанныхВФайлJSON.os
@@ -17,6 +17,8 @@
 Перем ОбрабатыватьКакМассив;   // Булево                 - Истина - входящий массив будет обработан поэлементно;
                                //                          Ложь - входящий массив будет обработан как 1 значение.
 Перем ДанныеДляСохранения;     // Массив                 - буфер данных для сохранения в файл JSON
+Перем ЗаписыватьПустойСписок;  // Булево                 - Истина - Записывать данные в файл, даже если результат пустой;
+                               //                          Ложь - Файл записываться не будет.
 
 #Область ПрограммныйИнтерфейс
 
@@ -71,6 +73,14 @@
 	                          "Истина - входящий массив будет обработан поэлементно;
                               |Ложь - входящий массив будет обработан как 1 значение.");
 
+	ДобавитьОписаниеПараметра(Параметры,
+	                          "ЗаписыватьПустойСписок",
+	                          "Булево",
+	                          ,
+	                          Ложь,
+	                          "Истина - Записывать данные в файл, даже если результат пустой;
+                              |Ложь - Файл записываться не будет.");
+
 	Возврат Параметры;
 
 КонецФункции // ОписаниеПараметров()
@@ -152,6 +162,12 @@
 	Иначе
 		ОбрабатыватьКакМассив = Истина;
 	КонецЕсли;
+
+	Если ПараметрыОбработки.Свойство("ЗаписыватьПустойСписок") Тогда
+		ЗаписыватьПустойСписок = ПараметрыОбработки.ЗаписыватьПустойСписок;
+	Иначе
+		ЗаписыватьПустойСписок = Ложь;
+	КонецЕсли;
 
 КонецПроцедуры // УстановитьПараметрыОбработкиДанных()
 
@@ -198,6 +214,8 @@
 		КонецЕсли;
 	ИначеЕсли ВРег(ИмяПараметра) = ВРег("ОбрабатыватьКакМассив") Тогда
 		ОбрабатыватьКакМассив = Значение;
+	ИначеЕсли ВРег(ИмяПараметра) = ВРег("ЗаписыватьПустойСписок") Тогда
+		ЗаписыватьПустойСписок = Значение;
 	Иначе
 		Возврат;
 	КонецЕсли;
@@ -289,10 +307,10 @@
 Процедура ЗаписатьДанныеВФайл()
 
 	Если НЕ ТипЗнч(ДанныеДляСохранения) = Тип("Массив") Тогда
-		Возврат;
+		ДанныеДляСохранения = Новый Массив;
 	КонецЕсли;
 
-	Если ДанныеДляСохранения.Количество() = 0 Тогда
+	Если ДанныеДляСохранения.Количество() = 0 И Не ЗаписыватьПустойСписок Тогда
 		Возврат;
 	КонецЕсли;