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

#44 @capitoshko добавлены проверки на заполненность критичных данных для формирования отчета

Browse Source
This commit is contained in:
Anton Ivanov 2018-10-14 12:54:15 +03:00
parent 430e3accf3
commit 85416973a4
1 changed files with 58 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
src/cf/Reports/узГрафикСгоранияСпринта/Ext/ObjectModule.bsl Normal file
View File

@ -0,0 +1,58 @@

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