исправление записи кода возврата в файл

Author: ovcharenko-di

epf/ЗакрытьПредприятие/ЗакрытьПредприятие/Forms/Форма/Ext/Form/Module.bsl

@@ -225,7 +225,7 @@
 
 &НаКлиенте
 Процедура ЗавершитьРаботу() Экспорт 
-	Если Не ОшибкаОбновления Тогда
+	Если ЗначениеЗаполнено(ПутьКФайлуРезультата) Тогда
 		ЗаписатьФайлРезультата();
 	КонецЕсли;
 	ПрекратитьРаботуСистемы();
@@ -248,12 +248,13 @@
 &НаКлиенте
 Процедура ЗаписатьФайлРезультата()
 
-	Если ПутьКФайлуРезультата = "" Тогда
-		Возврат;
-	КонецЕсли; 
+	КодВозврата = 0;
+	Если ОшибкаОбновления Тогда
+		КодВозврата = 1;
+	КонецЕсли;
 
 	ТекстовыйФайл = Новый ТекстовыйДокумент;
-	ТекстовыйФайл.УстановитьТекст("0");
+	ТекстовыйФайл.УстановитьТекст(КодВозврата);
 	ТекстовыйФайл.Записать(ПутьКФайлуРезультата, КодировкаТекста.UTF8); 
 
 КонецПроцедуры