Заменил устаревший метод ТекущаяДата() на ТекущаяДатаСеанса()

src/cf/Catalogs/узВопросыОтветы/Ext/ObjectModule.bsl

@@ -6,7 +6,7 @@
 КонецПроцедуры
 
 Процедура ПередЗаписью(Отказ)
-	ДатаПоследнегоИзменения = ТекущаяДата();
+	ДатаПоследнегоИзменения = ТекущаяДатаСеанса();
 	
 	ТЗСобытия = ПолучитьТЗСобытия();
 	ДополнительныеСвойства.Вставить("ТЗСобытия",ТЗСобытия);

src/cf/Catalogs/узВопросыОтветы/Forms/ФормаЭлемента/Ext/Form/Module.bsl

@@ -10,7 +10,7 @@
 //}milanse 31.05.2020 22:12:10
 	Если Объект.Ссылка.Пустая() Тогда
 		Объект.Автор = Пользователи.ТекущийПользователь();
-		Объект.ДатаСоздания = ТекущаяДата();		
+		Объект.ДатаСоздания = ТекущаяДатаСеанса();		
 	Конецесли;
 	
 	УстановитьВидимостьДоступность();

src/cf/Catalogs/узЗадачи/Ext/ManagerModule.bsl

@@ -57,7 +57,7 @@
 	пКомментарииВКоде = "//+ #"+Формат(пКод,"ЧГ=0") 
 		+ ?(ЗначениеЗаполнено(пНомерВнешнейЗаявки)," "+пНомерВнешнейЗаявки,"")
 		+ ФИОИсполнителя
-		+ " " + Формат(ТекущаяДата(),"ДФ=yyyy-MM-dd"); 	
+		+ " " + Формат(ТекущаяДатаСеанса(),"ДФ=yyyy-MM-dd"); 	
 		
 	Возврат пКомментарииВКоде;	
 КонецФункции 

src/cf/Catalogs/узЗадачи/Ext/ObjectModule.bsl

@@ -18,7 +18,7 @@
 	Конецесли;
 		
 	Если НЕ ЗначениеЗаполнено(ДатаСоздания) Тогда
-		ДатаСоздания = ТекущаяДата();		
+		ДатаСоздания = ТекущаяДатаСеанса();		
 	Конецесли;
 	Если НЕ ЗначениеЗаполнено(ДатаНачалаРаботПоЗадаче) Тогда
 		ДатаНачалаРаботПоЗадаче = ДатаСоздания;		
@@ -76,7 +76,7 @@
 	Конецесли;	
 	
 	ТекПользователь = Пользователи.ТекущийПользователь();
-	ДатаПоследнегоИзменения = ТекущаяДата();
+	ДатаПоследнегоИзменения = ТекущаяДатаСеанса();
 	АвторПоследнегоИзменения = ТекПользователь;
 
 	СтарыйСтатус = Ссылка.Статус;
@@ -87,7 +87,7 @@
 	ВидСтатуса_ВРаботе = ПредопределенноеЗначение("Справочник.узВидыСтатусов.ВРаботе");
 	Если НовыйВидСтатуса = ВидСтатуса_Готово
 		И СтарыйВидСтатуса <> ВидСтатуса_Готово Тогда
-		ДатаВыполнения = ТекущаяДата();	
+		ДатаВыполнения = ТекущаяДатаСеанса();	
 	Конецесли;
 	Если НовыйВидСтатуса <> ВидСтатуса_Готово Тогда
 		Если ЗначениеЗаполнено(ДатаВыполнения) Тогда
@@ -165,7 +165,7 @@
 	ТЗСобытияВИсторииДляУведомлений.Колонки.Добавить("ВидСобытия",Новый ОписаниеТипов("ПеречислениеСсылка.узВидыСобытий"));
 	ТЗСобытияВИсторииДляУведомлений.Колонки.Добавить("МассивИзмененнийПоКомментариям",Новый ОписаниеТипов("Массив"));
 	
-	ДатаСобытия = ТекущаяДата();
+	ДатаСобытия = ТекущаяДатаСеанса();
 	пАвтор = Пользователи.ТекущийПользователь();
 	
 	ПараметрыДляИстории = Новый Структура();
@@ -415,7 +415,7 @@
 	ПроставитьДатуОкончанияДляСтарогоСтатуса();	
 	
 	СтрокаИсторияСтатусов = ИсторияСтатусов.Добавить();
-	СтрокаИсторияСтатусов.ДатаНачала = ТекущаяДата();
+	СтрокаИсторияСтатусов.ДатаНачала = ТекущаяДатаСеанса();
 	СтрокаИсторияСтатусов.Исполнитель = Исполнитель;
 	СтрокаИсторияСтатусов.Статус = Статус;
 КонецПроцедуры 
@@ -427,7 +427,7 @@
 	Конецесли;
 	
 	СтрокаИсторияСтатусов = ИсторияСтатусов[ВсегоСтрок-1];
-	СтрокаИсторияСтатусов.ДатаОкончания = ТекущаяДата();
+	СтрокаИсторияСтатусов.ДатаОкончания = ТекущаяДатаСеанса();
 КонецПроцедуры 
 
 Процедура ДобавитьВИсторию(ПараметрыДляИстории,ТЗСобытияВИсторииДляУведомлений)
@@ -1215,7 +1215,7 @@
 	Конецесли;
 	
 	ЗаписьИсторияСтатусов = РегистрыСведений.узСтатусыЗадач.СоздатьМенеджерЗаписи();
-	ЗаписьИсторияСтатусов.Период = ТекущаяДата();
+	ЗаписьИсторияСтатусов.Период = ТекущаяДатаСеанса();
 	ЗаписьИсторияСтатусов.Активность = Истина;
 	ЗаписьИсторияСтатусов.Задача = Ссылка;
 	ЗаписьИсторияСтатусов.Исполнитель = Исполнитель;

src/cf/Catalogs/узЗадачи/Forms/ФормаВводаКомментария/Ext/Form/Module.bsl

@@ -14,7 +14,7 @@
 &НаСервере
 Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
 	Если Параметры.Свойство("ЭтоДобавлениеКомментария") Тогда
-		ДатаКомментария = ТекущаяДата();
+		ДатаКомментария = ТекущаяДатаСеанса();
 		Автор = Пользователи.ТекущийПользователь();
 		ЭтоДобавлениеКомментария = Истина;
 	Иначе

src/cf/Catalogs/узЗадачи/Forms/ФормаЭлемента/Ext/Form/Module.bsl

@@ -1133,7 +1133,7 @@
 		Возврат;	
 	Конецесли;	
 	
-	СтрокаФактическиеЧасы.ДатаНачала = НачалоМинуты(ТекущаяДата());  
+	СтрокаФактическиеЧасы.ДатаНачала = НачалоМинуты(ТекущаяДатаНаСервере());  
 	Если НЕ ЗначениеЗаполнено(СтрокаФактическиеЧасы.ДатаОкончания)
 		ИЛИ СтрокаФактическиеЧасы.ДатаНачала > СтрокаФактическиеЧасы.ДатаОкончания Тогда
 		СтрокаФактическиеЧасы.ДатаОкончания = ПолучитьДатаОкончания(СтрокаФактическиеЧасы.ДатаНачала);
@@ -1141,6 +1141,11 @@
 	ИзменитьЧасыФактДляСтроки(СтрокаФактическиеЧасы);
 КонецПроцедуры
 
+&НаСервереБезКонтекста
+Функция ТекущаяДатаНаСервере() 
+	Возврат ТекущаяДатаСеанса();
+КонецФункции 
+
 &НаКлиенте
 Функция ПолучитьДатаОкончания(ОтДаты) 
 	пДатаОкончания = НачалоМинуты(КонецМинуты(ОтДаты)+1);		
@@ -1155,7 +1160,7 @@
 		Возврат;	
 	Конецесли;	
 
-	СтрокаФактическиеЧасы.ДатаОкончания = ПолучитьДатаОкончания(ТекущаяДата());  
+	СтрокаФактическиеЧасы.ДатаОкончания = ПолучитьДатаОкончания(ТекущаяДатаНаСервере());  
 	ИзменитьЧасыФактДляСтроки(Элементы.Удалить_ФактическиеЧасы.ТекущиеДанные);
 КонецПроцедуры
 

src/cf/Catalogs/узИсторияКонфигураций/Forms/ФормаЭлемента/Ext/Form/Module.bsl

@@ -8,7 +8,7 @@
 			Объект.Комментарий = "#"+Формат(Объект.Задача.Код,"ЧГ=0") +" "+ Объект.Задача;
 		Конецесли;
 		Объект.ВводВручную = Истина;
-		Объект.ДатаВерсии = ТекущаяДата();
+		Объект.ДатаВерсии = ТекущаяДатаСеанса();
 		Объект.ПользовательХранилища = Пользователи.ТекущийПользователь().узКороткоеИмя;				
 	Конецесли;
 	Если Объект.ВводВручную Тогда

src/cf/Catalogs/узСпринты/Ext/ObjectModule.bsl

@@ -94,7 +94,7 @@
 	Конецесли;
 
 	Если НЕ ЗначениеЗаполнено(ДатаНачала) Тогда
-		ДатаНачала = ТекущаяДата();
+		ДатаНачала = ТекущаяДатаСеанса();
 	Конецесли;
 	
 КонецПроцедуры 

src/cf/Catalogs/узТекущиеДела/Ext/ManagerModule.bsl

@@ -36,7 +36,7 @@
 	
 	СпрОбъект.ТекстСодержания = пТекстСообщения;
 	СпрОбъект.Наименование = СпрОбъект.ТекстСодержания;
-	СпрОбъект.ДатаСоздания = ТекущаяДата();	
+	СпрОбъект.ДатаСоздания = ТекущаяДатаСеанса();	
 	СпрОбъект.ДатаТекущегоДела = СпрОбъект.ДатаСоздания; 
 	СпрОбъект.Порядок = 1000;
 	СпрОбъект.Записать();
@@ -93,7 +93,7 @@
 	СпрОбъект.ГруппаТекущегоДела = Неопределено;	
 	СпрОбъект.Выполнено = Ложь;
 	СпрОбъект.ДатаВыполнения = Неопределено;
-	СпрОбъект.ДатаСоздания = ТекущаяДата();	
+	СпрОбъект.ДатаСоздания = ТекущаяДатаСеанса();	
 	СпрОбъект.ДатаТекущегоДела = СпрОбъект.ДатаСоздания; 
 	СпрОбъект.Порядок = 1000;
 	СпрОбъект.Записать();

src/cf/Catalogs/узТекущиеДела/Ext/ObjectModule.bsl

@@ -15,7 +15,7 @@
 	Конецесли;
 	
 	пТекстСодержанияСтарое =  
-		"----------------------РАНЕЕ-----"+ТекущаяДата()+"--------------------"
+		"----------------------РАНЕЕ-----"+ТекущаяДатаСеанса()+"--------------------"
 		+ Символы.ПС
 		+ ТекстСодержания
 		+ Символы.ПС

src/cf/CommonModules/узОбновлениеИнформационнойБазы/Ext/Module.bsl

@@ -390,7 +390,7 @@
 		Если СпрОбъект.Статус.ВидСтатуса = ВидСтатуса_Готово Тогда
 			Для каждого СтрокаИсторияСтатусов из СпрОбъект.ИсторияСтатусов цикл
 				Если НЕ ЗначениеЗаполнено(СтрокаИсторияСтатусов.ДатаОкончания) Тогда
-					СтрокаИсторияСтатусов.ДатаОкончания = ТекущаяДата();
+					СтрокаИсторияСтатусов.ДатаОкончания = ТекущаяДатаСеанса();
 				Конецесли;
 			Конеццикла;	
 		Иначе
@@ -1220,7 +1220,7 @@
 		#Конецесли
 		
 		Если НЕ ЗначениеЗаполнено(обСпринт.ДатаНачала) Тогда
-			обСпринт.ДатаНачала = ТекущаяДата();	
+			обСпринт.ДатаНачала = ТекущаяДатаСеанса();	
 		Конецесли;
 
 		обСпринт.ТЧЗадачи.Очистить();

src/cf/CommonModules/узОбщийМодульКлиент/Ext/Module.bsl

@@ -181,4 +181,6 @@
 	Если узОбщийМодульСервер.узОткрыватьКанбанДоскуПриНачалеРаботыСистемы() Тогда
 		ОткрытьФорму("Обработка.узКанбанДоска.Форма.ФормаДинамическая");
 	Конецесли;
-КонецПроцедуры 
+КонецПроцедуры 
+
+ 

src/cf/CommonModules/узОбщийМодульСервер/Ext/Module.bsl

@@ -9,7 +9,7 @@
 	
 	ТекПользователь = Пользователи.ТекущийПользователь();
 	ДокОбъект = Документы.ЭлектронноеПисьмоИсходящее.СоздатьДокумент();	
-	ДокОбъект.Дата = ТекущаяДата();
+	ДокОбъект.Дата = ТекущаяДатаСеанса();
 	ДокОбъект.Автор = ТекПользователь;
 	
 	ДокОбъект.Важность = ПолучитьВажностьДляПисьма(ВажностьЗадачи);
@@ -644,7 +644,7 @@
 			// - #165 } +++ [13.05.2019]
 			
 			пКартинка = Новый Картинка(ЭлементВложения.Данные);
-			ИмяКартинки = "img"+НомерКартинки+"_"+Формат(ТекущаяДата(),"ДФ=ddMMyyyy_hhmmss");
+			ИмяКартинки = "img"+НомерКартинки+"_"+Формат(ТекущаяДатаСеанса(),"ДФ=ddMMyyyy_hhmmss");
 			пТекстHTML = СтрЗаменить(пТекстHTML,"cid:"+ЭлементВложения.Идентификатор,ИмяКартинки);
 			
 			ВложениеСтруктура.Вставить(ИмяКартинки,пКартинка);

src/cf/DataProcessors/узАктивностьПользователя/Forms/Форма/Ext/Form/Module.bsl

@@ -62,7 +62,7 @@
 Процедура Заполнить(Команда)
 	ЗаполнитьНаСервере();
 	
-	пДеньАктивности = "ДеньАктивности" + Формат(ТекущаяДата(), "ДФ=yyyyMMddhhmmss" );
+	пДеньАктивности = "ДеньАктивности" + Формат(ТекущаяДатаНаСервере(), "ДФ=yyyyMMddhhmmss" );
 	структОтбор = Новый Структура( "День", Дата( СтрЗаменить( пДеньАктивности, "ДеньАктивности", "") ));
 	
 	Элементы.ТаблицаАктивностей.ОтборСтрок = Новый ФиксированнаяСтруктура( структОтбор );	
@@ -422,6 +422,10 @@
 	ЗаполнитьНаСервере();
 КонецПроцедуры
 
+&НаСервереБезКонтекста
+Функция ТекущаяДатаНаСервере() 
+	Возврат ТекущаяДатаСеанса();
+КонецФункции
 
 
 

src/cf/DataProcessors/узЗагрузкаИзмененийИзХранилища/Ext/ObjectModule.bsl

@@ -464,7 +464,7 @@
 КонецФункции 
 
 Функция ПолучитьИмяФайлаДляВыгрузки() Экспорт 
-	Возврат "StorageHistory_"+Формат(ТекущаяДата(),"ДФ=ddMMyyyy_hhmmss")+".mxl";	
+	Возврат "StorageHistory_"+Формат(ТекущаяДатаСеанса(),"ДФ=ddMMyyyy_hhmmss")+".mxl";	
 КонецФункции 
 
 Процедура ДобавитьВКомандуКлючЗначение(ТекстКоманды, Ключ, Значение = Неопределено)

src/cf/DataProcessors/узЗагрузкаИзмененийИзХранилища/Forms/Форма/Ext/Form/Module.bsl

@@ -1,7 +1,7 @@
 
 &НаКлиенте
 Процедура КомандаЗагрузитьИзмененияИзХранилища(Команда)
-	ВремяНачала=ТекущаяДата();
+	ВремяНачала = ТекущаяДатаНаСервере();
 	
 	Если НЕ ПроверитьЗаполнение() Тогда
 		Возврат;
@@ -16,7 +16,7 @@
 		ТабДокОтчет.Показать("Загруженная история хранилища");
 	Конецесли;
 	
-	ВремяКонца=ТекущаяДата();
+	ВремяКонца = ТекущаяДатаНаСервере();
 	Сообщить("------------------------------------------------------------------");
 	Сообщить("ВремяНачала -"+ВремяНачала);
 	Сообщить("ВремяКонца  -"+ВремяКонца);
@@ -105,3 +105,7 @@
 	ПолучитьКомандуНаСервере();
 КонецПроцедуры
 
+&НаСервереБезКонтекста
+Функция ТекущаяДатаНаСервере() 
+	Возврат ТекущаяДатаСеанса();
+КонецФункции

src/cf/DataProcessors/узКанбанДоска/Ext/ObjectModule.bsl

@@ -62,7 +62,7 @@
 	
 	ЗначениеПараметра = ИсполняемыеНастройки.ПараметрыДанных.НайтиЗначениеПараметра(Новый ПараметрКомпоновкиДанных("ТекущаяДата"));
 	Если ЗначениеПараметра <> Неопределено Тогда
-		ЗначениеПараметра.Значение = ТекущаяДата();
+		ЗначениеПараметра.Значение = ТекущаяДатаСеанса();
 		ЗначениеПараметра.Использование=Истина;	
 	Конецесли;
 	

src/cf/DataProcessors/узКанбанДоска/Forms/ФормаДинамическая/Ext/Form/Module.bsl

@@ -957,7 +957,9 @@
 	Конецесли;	
 	
 	Если ЭтоУдаление Тогда
-		ТЗТекущиеСпринтыДляЗадач = Справочники.узСпринты.ПолучитьТЗТекущиеСпринтыДляЗадач(КонецДня(ТекущаяДата()),МассивЗадач);
+		ТЗТекущиеСпринтыДляЗадач = Справочники.узСпринты.ПолучитьТЗТекущиеСпринтыДляЗадач(
+			КонецДня(ТекущаяДатаСеанса()),
+			МассивЗадач);
 	Конецесли;
 	
 	Для каждого ЭлМассиваЗадач из МассивЗадач цикл

src/cf/DataProcessors/узПросмотрИсторииХранилища/Ext/ObjectModule.bsl

@@ -55,7 +55,7 @@
 КонецФункции
 
 Процедура ЗагрузитьИсторию() Экспорт
-	ВремяНачала=ТекущаяДата();
+	ВремяНачала=ТекущаяДатаСеанса();
 	
 	мТЗHistory = Неопределено;
 	мТЗUsers = Неопределено;
@@ -79,7 +79,7 @@
 	мТЗObjects = Неопределено;
 	мТЗИменаКлассов = Неопределено;
 	
-	ВремяКонца=ТекущаяДата();
+	ВремяКонца=ТекущаяДатаСеанса();
 	
 	ВывестиСообщение("------------------------------------------------------------------");
 	ВывестиСообщение("ВремяНачала -"+ВремяНачала);
@@ -625,7 +625,7 @@
 		Возврат;
 	Конецесли;
 	
-	Сообщить("ОТЛАДКА "+ТекущаяДата() + ": "+ТекстСообщения);
+	Сообщить("ОТЛАДКА "+ТекущаяДатаСеанса() + ": "+ТекстСообщения);
 КонецПроцедуры 
 
 Процедура УдалитьВременныеФайлы(РезультатВыгрузки)

src/cf/DataProcessors/узТекущиеДела/Ext/ObjectModule.bsl

@@ -198,7 +198,7 @@
 Функция СоздатьТекущееДело(СтрокаТЧТекущиеДела) 
 	ТекущееДелоОбъект = Справочники.узТекущиеДела.СоздатьЭлемент();
 	ТекущееДелоОбъект.Автор = Пользователи.ТекущийПользователь();
-	ТекущееДелоОбъект.ДатаСоздания = ТекущаяДата();
+	ТекущееДелоОбъект.ДатаСоздания = ТекущаяДатаСеанса();
 	ТекущееДелоОбъект.ДатаТекущегоДела = ТекущееДелоОбъект.ДатаСоздания;
 	
 	Возврат ТекущееДелоОбъект;

src/cf/DataProcessors/узТекущиеДела/Forms/Форма/Ext/Form/Module.bsl

@@ -18,7 +18,7 @@
 
 &НаСервере
 Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
-	Объект.НаДату = ТекущаяДата();
+	Объект.НаДату = ТекущаяДатаСеанса();
 	Объект.НаДатуКонецДня = КонецДня(Объект.НаДату);
 	Объект.ПоказыватьСегодня = Истина;
 	Объект.ПоказыватьНаНеделе = Истина;
@@ -208,7 +208,7 @@
 		Если СтрокаТЧТекущиеДела.Выполнено Тогда
 			Продолжить;
 		Конецесли;
-		СтрокаТЧТекущиеДела.ДатаВыполнения = ТекущаяДата();
+		СтрокаТЧТекущиеДела.ДатаВыполнения = ТекущаяДатаНаСервере();
 		СтрокаТЧТекущиеДела.Выполнено = Истина;
 	Конеццикла;	
 	
@@ -277,14 +277,14 @@
 
 &НаКлиенте
 Процедура КомандаНаДату(Команда)
-	НаДатуНовая = НачалоДня(ТекущаяДата());
+	НаДатуНовая = НачалоДня(ТекущаяДатаНаСервере());
 	ИзменитьНаДату(НаДатуНовая);
 КонецПроцедуры
 
 &НаКлиенте
 Процедура ОбновитьЗаголовокКомандаНаДату()
 	пЗаголовок = "";
-	Если НачалоДня(Объект.НаДату) = НачалоДня(ТекущаяДата()) Тогда
+	Если НачалоДня(Объект.НаДату) = НачалоДня(ТекущаяДатаНаСервере()) Тогда
 		пЗаголовок = "Сегодня";
 	Иначе
 		пЗаголовок = Формат(Объект.НаДату,"ДФ='dd.MM ддд'");
@@ -336,7 +336,7 @@
 Процедура ТЧТекущиеДелаПриНачалеРедактирования(Элемент, НоваяСтрока, Копирование)
 	Если НоваяСтрока Тогда
 		СтрокаТЧТекущиеДела = Элемент.ТекущиеДанные;
-		СтрокаТЧТекущиеДела.ДатаСоздания = ТекущаяДата();
+		СтрокаТЧТекущиеДела.ДатаСоздания = ТекущаяДатаНаСервере();
 		СтрокаТЧТекущиеДела.ДатаТекущегоДела = СтрокаТЧТекущиеДела.ДатаСоздания;
 		СтрокаТЧТекущиеДела.Порядок = СтрокаТЧТекущиеДела.НомерСтроки;
 		СтрокаТЧТекущиеДела.ГруппаТекущегоДела = ПредопределенноеЗначение("Справочник.узГруппыТекущихДел.Сегодня");
@@ -811,5 +811,9 @@
 	Возврат ТабДокумент;
 КонецФункции 
 
+&НаСервереБезКонтекста
+Функция ТекущаяДатаНаСервере() 
+	Возврат ТекущаяДатаСеанса();
+КонецФункции
 
 

src/cf/Documents/узВводФактаПоЗадаче/Forms/ФормаДокументаВводСЗадачи/Ext/Form/Module.bsl

@@ -2,7 +2,7 @@
 &НаСервере
 Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
 	
-	Объект.Дата = ТекущаяДата();
+	Объект.Дата = ТекущаяДатаСеанса();
 	//Павлюков
 	ДатаОкончания = Объект.Дата;
 	
@@ -83,7 +83,7 @@
 &НаКлиенте
 Процедура ДатаНачалаОткрытие(Элемент, СтандартнаяОбработка)
 	СтандартнаяОбработка = Ложь;
-	ДатаНачала = НачалоМинуты(ТекущаяДата());  
+	ДатаНачала = НачалоМинуты(ТекущаяДатаНаСервере());  
 	Если НЕ ЗначениеЗаполнено(ДатаОкончания)
 		ИЛИ ДатаНачала > ДатаОкончания Тогда
 		ДатаОкончания = ПолучитьДатаОкончания(ДатаНачала);
@@ -126,7 +126,7 @@
 Процедура ДатаОкончанияОткрытие(Элемент, СтандартнаяОбработка)
 	СтандартнаяОбработка = Ложь;
 	
-	ДатаОкончания = ПолучитьДатаОкончания(ТекущаяДата());  
+	ДатаОкончания = ПолучитьДатаОкончания(ТекущаяДатаНаСервере());  
 	ИзменитьЧасыФактДляСтроки();
 КонецПроцедуры
 // --- 79Vlad  25.10.2018
@@ -177,3 +177,8 @@
 Процедура Команда5Часов(Команда)
 	УказатьФактВМинутах(300);
 КонецПроцедуры
+
+&НаСервереБезКонтекста
+Функция ТекущаяДатаНаСервере() 
+	Возврат ТекущаяДатаСеанса();
+КонецФункции

src/cf/Documents/узВыпускРелиза/Forms/ФормаДокумента/Ext/Form/Module.bsl

@@ -495,7 +495,7 @@
 		Возврат;
 	Конецесли;
 	
-	ВремяНачала=ТекущаяДата();
+	ВремяНачала=ТекущаяДатаНаСервере();
 	
 	РезультатФункции = ЗагрузитьИзмененияИзХранилищаНаСервере();
 	
@@ -511,7 +511,7 @@
 		ТабДокОтчет.Показать("Загруженная история хранилища");
 	Конецесли;	
 	
-	ВремяКонца=ТекущаяДата();
+	ВремяКонца=ТекущаяДатаНаСервере();
 	Сообщить("------------------------------------------------------------------");
 	Сообщить("ВремяНачала -"+ВремяНачала);
 	Сообщить("ВремяКонца  -"+ВремяКонца);
@@ -583,3 +583,8 @@
 КонецПроцедуры
 
 // Конец СтандартныеПодсистемы.ПодключаемыеКоманды
+
+&НаСервереБезКонтекста
+Функция ТекущаяДатаНаСервере() 
+	Возврат ТекущаяДатаСеанса();
+КонецФункции

src/cf/InformationRegisters/узАктивностиПользователей/Ext/ManagerModule.bsl

@@ -106,7 +106,7 @@
 		
 		МенеджерЗаписи = РегистрыСведений.узАктивностиПользователей.СоздатьМенеджерЗаписи();
 		
-		МенеджерЗаписи.ДатаАктивности = ТекущаяДата();
+		МенеджерЗаписи.ДатаАктивности = ТекущаяДатаСеанса();
 		МенеджерЗаписи.ДеньАктивности = НачалоДня(МенеджерЗаписи.ДатаАктивности);
 		МенеджерЗаписи.Пользователь = Пользователи.ТекущийПользователь();
 		МенеджерЗаписи.СсылкаНаОбъект = Источник.Ссылка;
@@ -145,7 +145,7 @@
 		
 		МенеджерЗаписи = РегистрыСведений.узАктивностиПользователей.СоздатьМенеджерЗаписи();
 		
-		МенеджерЗаписи.ДатаАктивности = ТекущаяДата();
+		МенеджерЗаписи.ДатаАктивности = ТекущаяДатаСеанса();
 		МенеджерЗаписи.ДеньАктивности = НачалоДня(МенеджерЗаписи.ДатаАктивности);
 		МенеджерЗаписи.Пользователь = Пользователи.ТекущийПользователь();
 		МенеджерЗаписи.СсылкаНаОбъект = Источник.Ссылка;
@@ -199,7 +199,7 @@
 		
 		МенеджерЗаписи = РегистрыСведений.узАктивностиПользователей.СоздатьМенеджерЗаписи();
 		
-		МенеджерЗаписи.ДатаАктивности = ТекущаяДата();
+		МенеджерЗаписи.ДатаАктивности = ТекущаяДатаСеанса();
 		МенеджерЗаписи.ДеньАктивности = НачалоДня(МенеджерЗаписи.ДатаАктивности);
 		МенеджерЗаписи.Пользователь = Пользователи.ТекущийПользователь();
 		МенеджерЗаписи.СсылкаНаОбъект = Источник.Ссылка;