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

#318 Замечания Sonar 08.01.2024 - Используйте "ТекущаяДатаСеанса" вместо устаревшего "ТекущаяДата"

Browse Source
This commit is contained in:
Anton Ivanov 2024-01-08 10:02:20 +03:00
parent 63e37063c5
commit fb833dcf3c
2 changed files with 38 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/cf/Reports/узПланированиеПроекта/Forms/ФормаЗадачиУправляемая/Ext/Form/Module.bsl
View File

@ -392,7 +392,7 @@
&НаКлиенте &НаКлиенте
Процедура ДлительностьПриИзменении(Элемент) Процедура ДлительностьПриИзменении(Элемент)
Если Не ЗначениеЗаполнено(ДатаНачалаПлан) Тогда Если Не ЗначениеЗаполнено(ДатаНачалаПлан) Тогда
ДатаНачалаПлан = СкорректироватьДатуНачала(НачалоДня(ТекущаяДата())); ДатаНачалаПлан = СкорректироватьДатуНачала(НачалоДня(ТекущаяДатаСеансаНаСервере()));
ЗаполнитьСписокВыбораДляДатыНачала(Элементы.ДатаНачалаПлан); ЗаполнитьСписокВыбораДляДатыНачала(Элементы.ДатаНачалаПлан);
КонецЕсли; КонецЕсли;
@ -414,7 +414,7 @@
КонецЕсли; КонецЕсли;
Если Не ЗначениеЗаполнено(пДата) Тогда Если Не ЗначениеЗаполнено(пДата) Тогда
пДата = ТекущаяДата(); пДата = ТекущаяДатаСеансаНаСервере();
КонецЕсли; КонецЕсли;
НачалоРабочегоДняДляСпискаВыбора = НачалоДня(пДата)+Час(Объект.НачалоРабочегоДня)*60*60+Минута(Объект.НачалоРабочегоДня)*60; НачалоРабочегоДняДляСпискаВыбора = НачалоДня(пДата)+Час(Объект.НачалоРабочегоДня)*60*60+Минута(Объект.НачалоРабочегоДня)*60;
@ -448,7 +448,7 @@
КонецЕсли; КонецЕсли;
Если Не ЗначениеЗаполнено(пДата) Тогда Если Не ЗначениеЗаполнено(пДата) Тогда
пДата = ТекущаяДата(); пДата = ТекущаяДатаСеансаНаСервере();
КонецЕсли; КонецЕсли;
НачалоРабочегоДняДляСпискаВыбора = НачалоДня(пДата)+(Час(Объект.НачалоРабочегоДня)+1)*60*60+Минута(Объект.НачалоРабочегоДня)*60; НачалоРабочегоДняДляСпискаВыбора = НачалоДня(пДата)+(Час(Объект.НачалоРабочегоДня)+1)*60*60+Минута(Объект.НачалоРабочегоДня)*60;
ОкончаниеРабочегоДня = НачалоДня(пДата)+(Час(Объект.НачалоРабочегоДня)+Объект.КоличествоРабочихЧасовВДне)*60*60+Минута(Объект.НачалоРабочегоДня)*60; ОкончаниеРабочегоДня = НачалоДня(пДата)+(Час(Объект.НачалоРабочегоДня)+Объект.КоличествоРабочихЧасовВДне)*60*60+Минута(Объект.НачалоРабочегоДня)*60;
@ -477,6 +477,11 @@
КонецЕсли; КонецЕсли;
КонецПроцедуры КонецПроцедуры
// [+] #222 Иванов А.Б. 04.01.24 ПланированиеПроекта
&НаСервереБезКонтекста
Функция ТекущаяДатаСеансаНаСервере()
Возврат ТекущаяДатаСеанса();
КонецФункции
#КонецОбласти #КонецОбласти

54
src/cf/Reports/узПланированиеПроекта/Forms/ФормаУправляемая/Ext/Form/Module.bsl
View File

@ -774,7 +774,7 @@
Построитель.ИсточникДанных = ИсточникДанных; Построитель.ИсточникДанных = ИсточникДанных;
Построитель.Параметры.Вставить("ПустаяДата", Дата('00010101')); Построитель.Параметры.Вставить("ПустаяДата", Дата('00010101'));
Построитель.Параметры.Вставить("ТекущаяДата", ТекущаяДата()); Построитель.Параметры.Вставить("ТекущаяДата", ТекущаяДатаСеансаНаСервере());
Построитель.ЗаполнитьНастройки(); Построитель.ЗаполнитьНастройки();
Построитель.ВыбранныеПоля.Очистить(); Построитель.ВыбранныеПоля.Очистить();
Построитель.ВыбранныеПоля.Добавить("Затраты", "Затраты"); Построитель.ВыбранныеПоля.Добавить("Затраты", "Затраты");
@ -866,7 +866,7 @@
Построитель.ИсточникДанных = ИсточникДанных; Построитель.ИсточникДанных = ИсточникДанных;
Построитель.Параметры.Вставить("ПустаяДата", Дата('00010101')); Построитель.Параметры.Вставить("ПустаяДата", Дата('00010101'));
Построитель.Параметры.Вставить("ТекущаяДата", ТекущаяДата()); Построитель.Параметры.Вставить("ТекущаяДата", ТекущаяДатаСеансаНаСервере());
Построитель.ЗаполнитьНастройки(); Построитель.ЗаполнитьНастройки();
Построитель.ВыбранныеПоля.Очистить(); Построитель.ВыбранныеПоля.Очистить();
Построитель.ВыбранныеПоля.Добавить("Затраты", "Затраты"); Построитель.ВыбранныеПоля.Добавить("Затраты", "Затраты");
@ -2047,7 +2047,7 @@
Не ЗначениеЗаполнено(тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение)) Тогда Не ЗначениеЗаполнено(тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение)) Тогда
Если Не ЗначениеЗаполнено(тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение) Тогда Если Не ЗначениеЗаполнено(тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение) Тогда
тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение = НачалоРабочегоДня(ТекущаяДата()); тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение = НачалоРабочегоДня(ТекущаяДатаСеансаНаСервере());
КонецЕсли; КонецЕсли;
ДлительностьИлиНачалоПриИзменении(Индекс); ДлительностьИлиНачалоПриИзменении(Индекс);
@ -2083,7 +2083,7 @@
Если Не ЗначениеЗаполнено(тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение) и Если Не ЗначениеЗаполнено(тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение) и
ЗначениеЗаполнено(тдПроект.Область(Индекс, НомерКолонкиНазвание, Индекс, НомерКолонкиНазвание).Текст) Тогда ЗначениеЗаполнено(тдПроект.Область(Индекс, НомерКолонкиНазвание, Индекс, НомерКолонкиНазвание).Текст) Тогда
тдПроект.Область(Индекс, НомерКолонкиДлительность, Индекс, НомерКолонкиДлительность).Значение = 1; тдПроект.Область(Индекс, НомерКолонкиДлительность, Индекс, НомерКолонкиДлительность).Значение = 1;
тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение = НачалоРабочегоДня(ТекущаяДата()); тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение = НачалоРабочегоДня(ТекущаяДатаСеансаНаСервере());
ДлительностьИлиНачалоПриИзменении(Индекс); ДлительностьИлиНачалоПриИзменении(Индекс);
тдПроект.Область(Индекс, НомерКолонкиПроцентЗавершения, Индекс, НомерКолонкиПроцентЗавершения).Значение = 0; тдПроект.Область(Индекс, НомерКолонкиПроцентЗавершения, Индекс, НомерКолонкиПроцентЗавершения).Значение = 0;
КонецЕсли; КонецЕсли;
@ -2093,7 +2093,7 @@
Если Область.Лево = НомерКолонкиДлительность или Область.Право = НомерКолонкиДлительность или Если Область.Лево = НомерКолонкиДлительность или Область.Право = НомерКолонкиДлительность или
(Область.Лево = НомерКолонкиНачало и Область.Право = НомерКолонкиНачало) Тогда (Область.Лево = НомерКолонкиНачало и Область.Право = НомерКолонкиНачало) Тогда
Если Не ЗначениеЗаполнено(тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение) Тогда Если Не ЗначениеЗаполнено(тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение) Тогда
тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение = НачалоРабочегоДня(ТекущаяДата()); тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение = НачалоРабочегоДня(ТекущаяДатаСеансаНаСервере());
КонецЕсли; КонецЕсли;
Если Час(тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение) = 0 Тогда Если Час(тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение) = 0 Тогда
@ -2107,7 +2107,7 @@
пНачало = тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение; пНачало = тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение;
Если Не ЗначениеЗаполнено(пНачало) Тогда Если Не ЗначениеЗаполнено(пНачало) Тогда
тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение = НачалоРабочегоДня(ТекущаяДата()); тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение = НачалоРабочегоДня(ТекущаяДатаСеансаНаСервере());
КонецЕсли; КонецЕсли;
ОкончаниеПриИзменении(Индекс); ОкончаниеПриИзменении(Индекс);
@ -3245,7 +3245,7 @@
КонецПопытки; КонецПопытки;
Если Не ЗначениеЗаполнено(ДатаНачалаПлан) и Не ЗначениеЗаполнено(ДатаЗавершенияПлан) Тогда Если Не ЗначениеЗаполнено(ДатаНачалаПлан) и Не ЗначениеЗаполнено(ДатаЗавершенияПлан) Тогда
ДатаНачалаПлан = НачалоДня(ТекущаяДата()); ДатаНачалаПлан = НачалоДня(ТекущаяДатаСеансаНаСервере());
ДатаЗавершенияПлан = ДатаНачалаПлан+Длительность; // + 1 день ДатаЗавершенияПлан = ДатаНачалаПлан+Длительность; // + 1 день
ИначеЕсли ЗначениеЗаполнено(ДатаНачалаПлан) и Не ЗначениеЗаполнено(ДатаЗавершенияПлан) или ДатаНачалаПлан=ДатаЗавершенияПлан Тогда ИначеЕсли ЗначениеЗаполнено(ДатаНачалаПлан) и Не ЗначениеЗаполнено(ДатаЗавершенияПлан) или ДатаНачалаПлан=ДатаЗавершенияПлан Тогда
ДатаЗавершенияПлан = ДатаНачалаПлан+Длительность; // + 1 день ДатаЗавершенияПлан = ДатаНачалаПлан+Длительность; // + 1 день
@ -3439,7 +3439,7 @@
ЗадачаОбъект = Справочники.пмЗадачи.СоздатьЭлемент(); ЗадачаОбъект = Справочники.пмЗадачи.СоздатьЭлемент();
ЗадачаОбъект.Автор = ПараметрыСеанса.ТекущийПользователь; ЗадачаОбъект.Автор = ПараметрыСеанса.ТекущийПользователь;
ЗадачаОбъект.ДатаПостановки = ТекущаяДата(); ЗадачаОбъект.ДатаПостановки = ТекущаяДатаСеансаНаСервере();
Если ЗначениеЗаполнено(Объект.Проект.Исполнитель) Тогда Если ЗначениеЗаполнено(Объект.Проект.Исполнитель) Тогда
ЗадачаОбъект.Исполнитель = Объект.Проект.Исполнитель; ЗадачаОбъект.Исполнитель = Объект.Проект.Исполнитель;
@ -3457,7 +3457,7 @@
ЗадачаОбъект = Справочники.пмЗадачи.СоздатьЭлемент(); ЗадачаОбъект = Справочники.пмЗадачи.СоздатьЭлемент();
ЗадачаОбъект.Автор = ПараметрыСеанса.ТекущийПользователь; ЗадачаОбъект.Автор = ПараметрыСеанса.ТекущийПользователь;
ЗадачаОбъект.ДатаПостановки = ТекущаяДата(); ЗадачаОбъект.ДатаПостановки = ТекущаяДатаСеансаНаСервере();
Если ЗначениеЗаполнено(Объект.Проект.Исполнитель) Тогда Если ЗначениеЗаполнено(Объект.Проект.Исполнитель) Тогда
ЗадачаОбъект.Исполнитель = Объект.Проект.Исполнитель; ЗадачаОбъект.Исполнитель = Объект.Проект.Исполнитель;
@ -3906,7 +3906,7 @@
// [-] #222 Иванов А.Б. 28.04.23 ПланированиеПроекта // [-] #222 Иванов А.Б. 28.04.23 ПланированиеПроекта
Иначе Иначе
ИмяСоздаваемогоФайлаБСП = "Проект " + Формат(ТекущаяДата(), "ДФ='dd.MM.yyyy hh-mm'"); ИмяСоздаваемогоФайлаБСП = "Проект " + Формат(ТекущаяДатаСеансаНаСервере(), "ДФ='dd.MM.yyyy hh-mm'");
// [+] #222 Иванов А.Б. 28.04.23 ПланированиеПроекта // [+] #222 Иванов А.Б. 28.04.23 ПланированиеПроекта
//ОписаниеОповещенияСохранитьНовыйПроектПослеУказанияИмениФайла = Новый ОписаниеОповещения( //ОписаниеОповещенияСохранитьНовыйПроектПослеУказанияИмениФайла = Новый ОписаниеОповещения(
@ -6090,7 +6090,7 @@
Возврат; Возврат;
ИначеЕсли (НомерКолонки = НомерКолонкиНачало или НомерКолонки = НомерКолонкиОкончание) и (ЭлементЗначения.Значение = 7 или ЭлементЗначения.Значение = 8) Тогда ИначеЕсли (НомерКолонки = НомерКолонкиНачало или НомерКолонки = НомерКолонкиОкончание) и (ЭлементЗначения.Значение = 7 или ЭлементЗначения.Значение = 8) Тогда
ОписаниеОповещанияВводаДительности = Новый ОписаниеОповещения("ОбработкаВыбораФильтраДлительностьНаКлиенте", ЭтотОбъект, Новый Структура("НомерКолонки, Значение", НомерКолонки, ЭлементЗначения.Значение)); ОписаниеОповещанияВводаДительности = Новый ОписаниеОповещения("ОбработкаВыбораФильтраДлительностьНаКлиенте", ЭтотОбъект, Новый Структура("НомерКолонки, Значение", НомерКолонки, ЭлементЗначения.Значение));
ПоказатьВводДаты(ОписаниеОповещанияВводаДительности, ТекущаяДата(), "Введите длительность в днях", ЧастиДаты.Дата); ПоказатьВводДаты(ОписаниеОповещанияВводаДительности, ТекущаяДатаСеансаНаСервере(), "Введите длительность в днях", ЧастиДаты.Дата);
Возврат; Возврат;
ИначеЕсли НомерКолонки = НомерКолонкиПроцентЗавершения и (ЭлементЗначения.Значение = 5 или ЭлементЗначения.Значение = 6) Тогда ИначеЕсли НомерКолонки = НомерКолонкиПроцентЗавершения и (ЭлементЗначения.Значение = 5 или ЭлементЗначения.Значение = 6) Тогда
ОписаниеОповещанияВводаДительности = Новый ОписаниеОповещения("ОбработкаВыбораФильтраДлительностьНаКлиенте", ЭтотОбъект, Новый Структура("НомерКолонки, Значение", НомерКолонки, ЭлементЗначения.Значение)); ОписаниеОповещанияВводаДительности = Новый ОписаниеОповещения("ОбработкаВыбораФильтраДлительностьНаКлиенте", ЭтотОбъект, Новый Структура("НомерКолонки, Значение", НомерКолонки, ЭлементЗначения.Значение));
@ -6225,28 +6225,28 @@
ЭлементОтбора.Использование = Ложь; ЭлементОтбора.Использование = Ложь;
ИначеЕсли Значение = 1 Тогда ИначеЕсли Значение = 1 Тогда
ЭлементОтбора.Использование = Истина; ЭлементОтбора.Использование = Истина;
ЭлементОтбора.ЗначениеС = НачалоДня(ТекущаяДата()); ЭлементОтбора.ЗначениеС = НачалоДня(ТекущаяДатаСеансаНаСервере());
ЭлементОтбора.ЗначениеПо = КонецДня(ТекущаяДата()); ЭлементОтбора.ЗначениеПо = КонецДня(ТекущаяДатаСеансаНаСервере());
ИначеЕсли Значение = 2 Тогда ИначеЕсли Значение = 2 Тогда
ЭлементОтбора.Использование = Истина; ЭлементОтбора.Использование = Истина;
ЭлементОтбора.ЗначениеС = НачалоДня(КонецДня(ТекущаяДата())+1); ЭлементОтбора.ЗначениеС = НачалоДня(КонецДня(ТекущаяДатаСеансаНаСервере())+1);
ЭлементОтбора.ЗначениеПо = КонецДня(КонецДня(ТекущаяДата())+1); ЭлементОтбора.ЗначениеПо = КонецДня(КонецДня(ТекущаяДатаСеансаНаСервере())+1);
ИначеЕсли Значение = 3 Тогда ИначеЕсли Значение = 3 Тогда
ЭлементОтбора.Использование = Истина; ЭлементОтбора.Использование = Истина;
ЭлементОтбора.ЗначениеС = НачалоНедели(ТекущаяДата()); ЭлементОтбора.ЗначениеС = НачалоНедели(ТекущаяДатаСеансаНаСервере());
ЭлементОтбора.ЗначениеПо = КонецДня(КонецНедели(ТекущаяДата())); ЭлементОтбора.ЗначениеПо = КонецДня(КонецНедели(ТекущаяДатаСеансаНаСервере()));
ИначеЕсли Значение = 4 Тогда ИначеЕсли Значение = 4 Тогда
ЭлементОтбора.Использование = Истина; ЭлементОтбора.Использование = Истина;
ЭлементОтбора.ЗначениеС = НачалоНедели(ТекущаяДата()+(7*3600*24)); ЭлементОтбора.ЗначениеС = НачалоНедели(ТекущаяДатаСеансаНаСервере()+(7*3600*24));
ЭлементОтбора.ЗначениеПо = КонецДня(КонецНедели(ТекущаяДата()+(7*3600*24))); ЭлементОтбора.ЗначениеПо = КонецДня(КонецНедели(ТекущаяДатаСеансаНаСервере()+(7*3600*24)));
ИначеЕсли Значение = 5 Тогда ИначеЕсли Значение = 5 Тогда
ЭлементОтбора.Использование = Истина; ЭлементОтбора.Использование = Истина;
ЭлементОтбора.ЗначениеС = НачалоМесяца(ТекущаяДата()); ЭлементОтбора.ЗначениеС = НачалоМесяца(ТекущаяДатаСеансаНаСервере());
ЭлементОтбора.ЗначениеПо = КонецДня(КонецМесяца(ТекущаяДата())); ЭлементОтбора.ЗначениеПо = КонецДня(КонецМесяца(ТекущаяДатаСеансаНаСервере()));
ИначеЕсли Значение = 6 Тогда ИначеЕсли Значение = 6 Тогда
ЭлементОтбора.Использование = Истина; ЭлементОтбора.Использование = Истина;
ЭлементОтбора.ЗначениеС = НачалоМесяца(КонецМесяца(ТекущаяДата())+(3600*24)); ЭлементОтбора.ЗначениеС = НачалоМесяца(КонецМесяца(ТекущаяДатаСеансаНаСервере())+(3600*24));
ЭлементОтбора.ЗначениеПо = КонецДня(КонецМесяца(КонецМесяца(ТекущаяДата())+(3600*24))); ЭлементОтбора.ЗначениеПо = КонецДня(КонецМесяца(КонецМесяца(ТекущаяДатаСеансаНаСервере())+(3600*24)));
КонецЕсли; КонецЕсли;
ИначеЕсли НомерКолонки = НомерКолонкиПроцентЗавершения Тогда ИначеЕсли НомерКолонки = НомерКолонкиПроцентЗавершения Тогда
@ -7571,7 +7571,7 @@
Если Не ЗначениеЗаполнено(ПланировщикПериодС) Тогда Если Не ЗначениеЗаполнено(ПланировщикПериодС) Тогда
ДатаНачалаПервойЗадачи = ПолучитьЗначениеПоКолонке(3, НомерКолонкиНачало); ДатаНачалаПервойЗадачи = ПолучитьЗначениеПоКолонке(3, НомерКолонкиНачало);
Если Не ЗначениеЗаполнено(ДатаНачалаПервойЗадачи) Тогда Если Не ЗначениеЗаполнено(ДатаНачалаПервойЗадачи) Тогда
ДатаНачалаПервойЗадачи = ТекущаяДата(); ДатаНачалаПервойЗадачи = ТекущаяДатаСеансаНаСервере();
КонецЕсли; КонецЕсли;
ПланировщикПериодС = НачалоНедели(ДатаНачалаПервойЗадачи); ПланировщикПериодС = НачалоНедели(ДатаНачалаПервойЗадачи);
ПланировщикПериодПо = ?(ПланировщикОтображатьНеРабочиеДни = Истина, КонецНедели(ПланировщикПериодС), ВернутьДатуСУчетомВыходных(КонецНедели(ПланировщикПериодС), Истина)); ПланировщикПериодПо = ?(ПланировщикОтображатьНеРабочиеДни = Истина, КонецНедели(ПланировщикПериодС), ВернутьДатуСУчетомВыходных(КонецНедели(ПланировщикПериодС), Истина));
@ -8178,5 +8178,11 @@
КонецФункции КонецФункции
// [+] #222 Иванов А.Б. 04.01.24 ПланированиеПроекта
&НаСервереБезКонтекста
Функция ТекущаяДатаСеансаНаСервере()
Возврат ТекущаяДатаСеанса();
КонецФункции
#КонецОбласти #КонецОбласти