From b4f8e1fb5d677df11c1e8fbd0257f498bbb5544c Mon Sep 17 00:00:00 2001
From: Anton Ivanov <iab@bk.ru>
Date: Sun, 28 Oct 2018 10:25:30 +0300
Subject: [PATCH] =?UTF-8?q?#121=20@capitoshko=20=D0=B4=D0=BE=D0=B1=D0=B0?=
 =?UTF-8?q?=D0=B2=D0=B8=D0=BB=20=D0=BF=D1=80=D0=BE=D0=B2=D0=B5=D1=80=D0=BA?=
 =?UTF-8?q?=D0=B8=20=D0=B4=D0=B0=D0=BD=D0=BD=D1=8B=D0=B5=20=D0=B7=D0=B0?=
 =?UTF-8?q?=D0=B4=D0=B0=D1=87=20=D0=B2=20=D0=BE=D1=82=D1=87=D0=B5=D1=82?=
 =?UTF-8?q?=D0=B5.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../Ext/ObjectModule.bsl                      | 41 +++++++++++++++++++
 1 file changed, 41 insertions(+)
 create mode 100644 src/cf/Reports/узПроцентВыполненныхЗадач/Ext/ObjectModule.bsl

diff --git a/src/cf/Reports/узПроцентВыполненныхЗадач/Ext/ObjectModule.bsl b/src/cf/Reports/узПроцентВыполненныхЗадач/Ext/ObjectModule.bsl
new file mode 100644
index 000000000..ded9d224f
--- /dev/null
+++ b/src/cf/Reports/узПроцентВыполненныхЗадач/Ext/ObjectModule.bsl
@@ -0,0 +1,41 @@
+
+Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
+	
+	ТекстОшибки = "";
+	
+	ПроверитьДанныеЗадач(ТекстОшибки);
+	
+	Если ЗначениеЗаполнено(ТекстОшибки) Тогда 
+		Отказ = Истина;
+		Сообщение = Новый СообщениеПользователю;
+		Сообщение.Текст = ТекстОшибки;
+		Сообщение.УстановитьДанные(ЭтотОбъект);
+		Сообщение.Сообщить();
+	КонецЕсли;
+	
+КонецПроцедуры
+
+Процедура ПроверитьДанныеЗадач(ТекстОшибки)
+	
+	Запрос = Новый Запрос;
+	Запрос.Текст = 
+	"ВЫБРАТЬ
+	|	КОЛИЧЕСТВО(узЗадачи.Ссылка) КАК КоличествоНеверныхДокументов
+	|ИЗ
+	|	Справочник.узЗадачи КАК узЗадачи
+	|ГДЕ
+	|	узЗадачи.ДатаСоздания <> ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
+	|	И ВЫБОР
+	|			КОГДА узЗадачи.Статус.ВидСтатуса = ЗНАЧЕНИЕ(справочник.узВидыСтатусов.Готово)
+	|				ТОГДА узЗадачи.ДатаВыполнения <> ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
+	|		КОНЕЦ";
+	
+	ВыборкаОшибочныхДокументов = Запрос.Выполнить().Выбрать();
+	ВыборкаОшибочныхДокументов.Следующий();
+	
+	Если ВыборкаОшибочныхДокументов.КоличествоНеверныхДокументов = 0 Тогда
+		ТекстОшибки = ТекстОшибки + "У некоторых задач не установлены дата создания, а в выполненых - дата выполнения! Отчет будет сформирован неверно!";
+	КонецЕсли;	
+	
+КонецПроцедуры
+