1c/Tasks
1
0
Fork 0
mirror of https://github.com/BlizD/Tasks.git synced 2025-03-19 21:07:53 +02:00
Code Issues Releases Activity

#121 @capitoshko добавил проверки данные задач в отчете.

Browse Source
This commit is contained in:
Anton Ivanov 2018-10-28 10:25:30 +03:00
parent ba74732394
commit b4f8e1fb5d
1 changed files with 41 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
src/cf/Reports/узПроцентВыполненныхЗадач/Ext/ObjectModule.bsl Normal file
View File

@ -0,0 +1,41 @@

Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка)
ТекстОшибки = "";
ПроверитьДанныеЗадач(ТекстОшибки);
Если ЗначениеЗаполнено(ТекстОшибки) Тогда
Отказ = Истина;
Сообщение = Новый СообщениеПользователю;
Сообщение.Текст = ТекстОшибки;
Сообщение.УстановитьДанные(ЭтотОбъект);
Сообщение.Сообщить();
КонецЕсли;
КонецПроцедуры
Процедура ПроверитьДанныеЗадач(ТекстОшибки)
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| КОЛИЧЕСТВО(узЗадачи.Ссылка) КАК КоличествоНеверныхДокументов
|ИЗ
| Справочник.узЗадачи КАК узЗадачи
|ГДЕ
| узЗадачи.ДатаСоздания <> ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
| И ВЫБОР
| КОГДА узЗадачи.Статус.ВидСтатуса = ЗНАЧЕНИЕ(справочник.узВидыСтатусов.Готово)
| ТОГДА узЗадачи.ДатаВыполнения <> ДАТАВРЕМЯ(1, 1, 1, 0, 0, 0)
| КОНЕЦ";
ВыборкаОшибочныхДокументов = Запрос.Выполнить().Выбрать();
ВыборкаОшибочныхДокументов.Следующий();
Если ВыборкаОшибочныхДокументов.КоличествоНеверныхДокументов = 0 Тогда
ТекстОшибки = ТекстОшибки + "У некоторых задач не установлены дата создания, а в выполненых - дата выполнения! Отчет будет сформирован неверно!";
КонецЕсли;
КонецПроцедуры