From fb833dcf3cf5bbd1ba2b280c8067b2b2fdffeabd Mon Sep 17 00:00:00 2001 From: Anton Ivanov Date: Mon, 8 Jan 2024 10:02:20 +0300 Subject: [PATCH] =?UTF-8?q?#318=20=D0=97=D0=B0=D0=BC=D0=B5=D1=87=D0=B0?= =?UTF-8?q?=D0=BD=D0=B8=D1=8F=20Sonar=2008.01.2024=20-=20=D0=98=D1=81?= =?UTF-8?q?=D0=BF=D0=BE=D0=BB=D1=8C=D0=B7=D1=83=D0=B9=D1=82=D0=B5=20"?= =?UTF-8?q?=D0=A2=D0=B5=D0=BA=D1=83=D1=89=D0=B0=D1=8F=D0=94=D0=B0=D1=82?= =?UTF-8?q?=D0=B0=D0=A1=D0=B5=D0=B0=D0=BD=D1=81=D0=B0"=20=D0=B2=D0=BC?= =?UTF-8?q?=D0=B5=D1=81=D1=82=D0=BE=20=D1=83=D1=81=D1=82=D0=B0=D1=80=D0=B5?= =?UTF-8?q?=D0=B2=D1=88=D0=B5=D0=B3=D0=BE=20"=D0=A2=D0=B5=D0=BA=D1=83?= =?UTF-8?q?=D1=89=D0=B0=D1=8F=D0=94=D0=B0=D1=82=D0=B0"?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .../Forms/ФормаЗадачиУправляемая/Ext/Form/Module.bsl | 11 ++-- .../Forms/ФормаУправляемая/Ext/Form/Module.bsl | 54 ++++++++++--------- 2 files changed, 38 insertions(+), 27 deletions(-) diff --git a/src/cf/Reports/узПланированиеПроекта/Forms/ФормаЗадачиУправляемая/Ext/Form/Module.bsl b/src/cf/Reports/узПланированиеПроекта/Forms/ФормаЗадачиУправляемая/Ext/Form/Module.bsl index 11544840f..16bca8a78 100644 --- a/src/cf/Reports/узПланированиеПроекта/Forms/ФормаЗадачиУправляемая/Ext/Form/Module.bsl +++ b/src/cf/Reports/узПланированиеПроекта/Forms/ФормаЗадачиУправляемая/Ext/Form/Module.bsl @@ -392,7 +392,7 @@ &НаКлиенте Процедура ДлительностьПриИзменении(Элемент) Если Не ЗначениеЗаполнено(ДатаНачалаПлан) Тогда - ДатаНачалаПлан = СкорректироватьДатуНачала(НачалоДня(ТекущаяДата())); + ДатаНачалаПлан = СкорректироватьДатуНачала(НачалоДня(ТекущаяДатаСеансаНаСервере())); ЗаполнитьСписокВыбораДляДатыНачала(Элементы.ДатаНачалаПлан); КонецЕсли; @@ -414,7 +414,7 @@ КонецЕсли; Если Не ЗначениеЗаполнено(пДата) Тогда - пДата = ТекущаяДата(); + пДата = ТекущаяДатаСеансаНаСервере(); КонецЕсли; НачалоРабочегоДняДляСпискаВыбора = НачалоДня(пДата)+Час(Объект.НачалоРабочегоДня)*60*60+Минута(Объект.НачалоРабочегоДня)*60; @@ -448,7 +448,7 @@ КонецЕсли; Если Не ЗначениеЗаполнено(пДата) Тогда - пДата = ТекущаяДата(); + пДата = ТекущаяДатаСеансаНаСервере(); КонецЕсли; НачалоРабочегоДняДляСпискаВыбора = НачалоДня(пДата)+(Час(Объект.НачалоРабочегоДня)+1)*60*60+Минута(Объект.НачалоРабочегоДня)*60; ОкончаниеРабочегоДня = НачалоДня(пДата)+(Час(Объект.НачалоРабочегоДня)+Объект.КоличествоРабочихЧасовВДне)*60*60+Минута(Объект.НачалоРабочегоДня)*60; @@ -477,6 +477,11 @@ КонецЕсли; КонецПроцедуры +// [+] #222 Иванов А.Б. 04.01.24 ПланированиеПроекта +&НаСервереБезКонтекста +Функция ТекущаяДатаСеансаНаСервере() + Возврат ТекущаяДатаСеанса(); +КонецФункции #КонецОбласти diff --git a/src/cf/Reports/узПланированиеПроекта/Forms/ФормаУправляемая/Ext/Form/Module.bsl b/src/cf/Reports/узПланированиеПроекта/Forms/ФормаУправляемая/Ext/Form/Module.bsl index c69e6fb0b..44cd18fbc 100644 --- a/src/cf/Reports/узПланированиеПроекта/Forms/ФормаУправляемая/Ext/Form/Module.bsl +++ b/src/cf/Reports/узПланированиеПроекта/Forms/ФормаУправляемая/Ext/Form/Module.bsl @@ -774,7 +774,7 @@ Построитель.ИсточникДанных = ИсточникДанных; Построитель.Параметры.Вставить("ПустаяДата", Дата('00010101')); - Построитель.Параметры.Вставить("ТекущаяДата", ТекущаяДата()); + Построитель.Параметры.Вставить("ТекущаяДата", ТекущаяДатаСеансаНаСервере()); Построитель.ЗаполнитьНастройки(); Построитель.ВыбранныеПоля.Очистить(); Построитель.ВыбранныеПоля.Добавить("Затраты", "Затраты"); @@ -866,7 +866,7 @@ Построитель.ИсточникДанных = ИсточникДанных; Построитель.Параметры.Вставить("ПустаяДата", Дата('00010101')); - Построитель.Параметры.Вставить("ТекущаяДата", ТекущаяДата()); + Построитель.Параметры.Вставить("ТекущаяДата", ТекущаяДатаСеансаНаСервере()); Построитель.ЗаполнитьНастройки(); Построитель.ВыбранныеПоля.Очистить(); Построитель.ВыбранныеПоля.Добавить("Затраты", "Затраты"); @@ -2047,7 +2047,7 @@ Не ЗначениеЗаполнено(тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение)) Тогда Если Не ЗначениеЗаполнено(тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение) Тогда - тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение = НачалоРабочегоДня(ТекущаяДата()); + тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение = НачалоРабочегоДня(ТекущаяДатаСеансаНаСервере()); КонецЕсли; ДлительностьИлиНачалоПриИзменении(Индекс); @@ -2083,7 +2083,7 @@ Если Не ЗначениеЗаполнено(тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение) и ЗначениеЗаполнено(тдПроект.Область(Индекс, НомерКолонкиНазвание, Индекс, НомерКолонкиНазвание).Текст) Тогда тдПроект.Область(Индекс, НомерКолонкиДлительность, Индекс, НомерКолонкиДлительность).Значение = 1; - тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение = НачалоРабочегоДня(ТекущаяДата()); + тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение = НачалоРабочегоДня(ТекущаяДатаСеансаНаСервере()); ДлительностьИлиНачалоПриИзменении(Индекс); тдПроект.Область(Индекс, НомерКолонкиПроцентЗавершения, Индекс, НомерКолонкиПроцентЗавершения).Значение = 0; КонецЕсли; @@ -2093,7 +2093,7 @@ Если Область.Лево = НомерКолонкиДлительность или Область.Право = НомерКолонкиДлительность или (Область.Лево = НомерКолонкиНачало и Область.Право = НомерКолонкиНачало) Тогда Если Не ЗначениеЗаполнено(тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение) Тогда - тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение = НачалоРабочегоДня(ТекущаяДата()); + тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение = НачалоРабочегоДня(ТекущаяДатаСеансаНаСервере()); КонецЕсли; Если Час(тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение) = 0 Тогда @@ -2107,7 +2107,7 @@ пНачало = тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение; Если Не ЗначениеЗаполнено(пНачало) Тогда - тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение = НачалоРабочегоДня(ТекущаяДата()); + тдПроект.Область(Индекс, НомерКолонкиНачало, Индекс, НомерКолонкиНачало).Значение = НачалоРабочегоДня(ТекущаяДатаСеансаНаСервере()); КонецЕсли; ОкончаниеПриИзменении(Индекс); @@ -3245,7 +3245,7 @@ КонецПопытки; Если Не ЗначениеЗаполнено(ДатаНачалаПлан) и Не ЗначениеЗаполнено(ДатаЗавершенияПлан) Тогда - ДатаНачалаПлан = НачалоДня(ТекущаяДата()); + ДатаНачалаПлан = НачалоДня(ТекущаяДатаСеансаНаСервере()); ДатаЗавершенияПлан = ДатаНачалаПлан+Длительность; // + 1 день ИначеЕсли ЗначениеЗаполнено(ДатаНачалаПлан) и Не ЗначениеЗаполнено(ДатаЗавершенияПлан) или ДатаНачалаПлан=ДатаЗавершенияПлан Тогда ДатаЗавершенияПлан = ДатаНачалаПлан+Длительность; // + 1 день @@ -3439,7 +3439,7 @@ ЗадачаОбъект = Справочники.пмЗадачи.СоздатьЭлемент(); ЗадачаОбъект.Автор = ПараметрыСеанса.ТекущийПользователь; - ЗадачаОбъект.ДатаПостановки = ТекущаяДата(); + ЗадачаОбъект.ДатаПостановки = ТекущаяДатаСеансаНаСервере(); Если ЗначениеЗаполнено(Объект.Проект.Исполнитель) Тогда ЗадачаОбъект.Исполнитель = Объект.Проект.Исполнитель; @@ -3457,7 +3457,7 @@ ЗадачаОбъект = Справочники.пмЗадачи.СоздатьЭлемент(); ЗадачаОбъект.Автор = ПараметрыСеанса.ТекущийПользователь; - ЗадачаОбъект.ДатаПостановки = ТекущаяДата(); + ЗадачаОбъект.ДатаПостановки = ТекущаяДатаСеансаНаСервере(); Если ЗначениеЗаполнено(Объект.Проект.Исполнитель) Тогда ЗадачаОбъект.Исполнитель = Объект.Проект.Исполнитель; @@ -3906,7 +3906,7 @@ // [-] #222 Иванов А.Б. 28.04.23 ПланированиеПроекта Иначе - ИмяСоздаваемогоФайлаБСП = "Проект " + Формат(ТекущаяДата(), "ДФ='dd.MM.yyyy hh-mm'"); + ИмяСоздаваемогоФайлаБСП = "Проект " + Формат(ТекущаяДатаСеансаНаСервере(), "ДФ='dd.MM.yyyy hh-mm'"); // [+] #222 Иванов А.Б. 28.04.23 ПланированиеПроекта //ОписаниеОповещенияСохранитьНовыйПроектПослеУказанияИмениФайла = Новый ОписаниеОповещения( @@ -6090,7 +6090,7 @@ Возврат; ИначеЕсли (НомерКолонки = НомерКолонкиНачало или НомерКолонки = НомерКолонкиОкончание) и (ЭлементЗначения.Значение = 7 или ЭлементЗначения.Значение = 8) Тогда ОписаниеОповещанияВводаДительности = Новый ОписаниеОповещения("ОбработкаВыбораФильтраДлительностьНаКлиенте", ЭтотОбъект, Новый Структура("НомерКолонки, Значение", НомерКолонки, ЭлементЗначения.Значение)); - ПоказатьВводДаты(ОписаниеОповещанияВводаДительности, ТекущаяДата(), "Введите длительность в днях", ЧастиДаты.Дата); + ПоказатьВводДаты(ОписаниеОповещанияВводаДительности, ТекущаяДатаСеансаНаСервере(), "Введите длительность в днях", ЧастиДаты.Дата); Возврат; ИначеЕсли НомерКолонки = НомерКолонкиПроцентЗавершения и (ЭлементЗначения.Значение = 5 или ЭлементЗначения.Значение = 6) Тогда ОписаниеОповещанияВводаДительности = Новый ОписаниеОповещения("ОбработкаВыбораФильтраДлительностьНаКлиенте", ЭтотОбъект, Новый Структура("НомерКолонки, Значение", НомерКолонки, ЭлементЗначения.Значение)); @@ -6225,28 +6225,28 @@ ЭлементОтбора.Использование = Ложь; ИначеЕсли Значение = 1 Тогда ЭлементОтбора.Использование = Истина; - ЭлементОтбора.ЗначениеС = НачалоДня(ТекущаяДата()); - ЭлементОтбора.ЗначениеПо = КонецДня(ТекущаяДата()); + ЭлементОтбора.ЗначениеС = НачалоДня(ТекущаяДатаСеансаНаСервере()); + ЭлементОтбора.ЗначениеПо = КонецДня(ТекущаяДатаСеансаНаСервере()); ИначеЕсли Значение = 2 Тогда ЭлементОтбора.Использование = Истина; - ЭлементОтбора.ЗначениеС = НачалоДня(КонецДня(ТекущаяДата())+1); - ЭлементОтбора.ЗначениеПо = КонецДня(КонецДня(ТекущаяДата())+1); + ЭлементОтбора.ЗначениеС = НачалоДня(КонецДня(ТекущаяДатаСеансаНаСервере())+1); + ЭлементОтбора.ЗначениеПо = КонецДня(КонецДня(ТекущаяДатаСеансаНаСервере())+1); ИначеЕсли Значение = 3 Тогда ЭлементОтбора.Использование = Истина; - ЭлементОтбора.ЗначениеС = НачалоНедели(ТекущаяДата()); - ЭлементОтбора.ЗначениеПо = КонецДня(КонецНедели(ТекущаяДата())); + ЭлементОтбора.ЗначениеС = НачалоНедели(ТекущаяДатаСеансаНаСервере()); + ЭлементОтбора.ЗначениеПо = КонецДня(КонецНедели(ТекущаяДатаСеансаНаСервере())); ИначеЕсли Значение = 4 Тогда ЭлементОтбора.Использование = Истина; - ЭлементОтбора.ЗначениеС = НачалоНедели(ТекущаяДата()+(7*3600*24)); - ЭлементОтбора.ЗначениеПо = КонецДня(КонецНедели(ТекущаяДата()+(7*3600*24))); + ЭлементОтбора.ЗначениеС = НачалоНедели(ТекущаяДатаСеансаНаСервере()+(7*3600*24)); + ЭлементОтбора.ЗначениеПо = КонецДня(КонецНедели(ТекущаяДатаСеансаНаСервере()+(7*3600*24))); ИначеЕсли Значение = 5 Тогда ЭлементОтбора.Использование = Истина; - ЭлементОтбора.ЗначениеС = НачалоМесяца(ТекущаяДата()); - ЭлементОтбора.ЗначениеПо = КонецДня(КонецМесяца(ТекущаяДата())); + ЭлементОтбора.ЗначениеС = НачалоМесяца(ТекущаяДатаСеансаНаСервере()); + ЭлементОтбора.ЗначениеПо = КонецДня(КонецМесяца(ТекущаяДатаСеансаНаСервере())); ИначеЕсли Значение = 6 Тогда ЭлементОтбора.Использование = Истина; - ЭлементОтбора.ЗначениеС = НачалоМесяца(КонецМесяца(ТекущаяДата())+(3600*24)); - ЭлементОтбора.ЗначениеПо = КонецДня(КонецМесяца(КонецМесяца(ТекущаяДата())+(3600*24))); + ЭлементОтбора.ЗначениеС = НачалоМесяца(КонецМесяца(ТекущаяДатаСеансаНаСервере())+(3600*24)); + ЭлементОтбора.ЗначениеПо = КонецДня(КонецМесяца(КонецМесяца(ТекущаяДатаСеансаНаСервере())+(3600*24))); КонецЕсли; ИначеЕсли НомерКолонки = НомерКолонкиПроцентЗавершения Тогда @@ -7571,7 +7571,7 @@ Если Не ЗначениеЗаполнено(ПланировщикПериодС) Тогда ДатаНачалаПервойЗадачи = ПолучитьЗначениеПоКолонке(3, НомерКолонкиНачало); Если Не ЗначениеЗаполнено(ДатаНачалаПервойЗадачи) Тогда - ДатаНачалаПервойЗадачи = ТекущаяДата(); + ДатаНачалаПервойЗадачи = ТекущаяДатаСеансаНаСервере(); КонецЕсли; ПланировщикПериодС = НачалоНедели(ДатаНачалаПервойЗадачи); ПланировщикПериодПо = ?(ПланировщикОтображатьНеРабочиеДни = Истина, КонецНедели(ПланировщикПериодС), ВернутьДатуСУчетомВыходных(КонецНедели(ПланировщикПериодС), Истина)); @@ -8178,5 +8178,11 @@ КонецФункции +// [+] #222 Иванов А.Б. 04.01.24 ПланированиеПроекта +&НаСервереБезКонтекста +Функция ТекущаяДатаСеансаНаСервере() + Возврат ТекущаяДатаСеанса(); +КонецФункции + #КонецОбласти