Код

//Автоматический перенос точки актуальности
//Если РабочаяДата()>ПолучитьДатуТА() Тогда
лРабочаяДата = рс.ВыполнитьСкалярный("select getdate()");
Если лРабочаяДата>ПолучитьДатуТА() Тогда
	ОткрыватьПериод=1;
	Если НазваниеНабораПрав()="Администратор" Тогда
		Если Вопрос("Рабочая дата больше даты Точки Актуальности.
					|Перенести Точку Актуальности на рабочую дату?","Да+Нет")="Нет" Тогда
			ОткрыватьПериод=0;
		КонецЕсли;
	КонецЕсли;
	Если ОткрыватьПериод=1 Тогда
		Параметры=СоздатьОбъект("СписокЗначений");
		Если глЗагрузитьGhost()=1 Тогда
			Параметры.Установить("GhostService",глGhost);
		КонецЕсли;
		Док=СоздатьОбъект("Документ");
		Док.ОбратныйПорядок(1);
		Док.УстановитьФильтр(1,0,0,2,1,1);
		Если Док.ВыбратьДокументы(лРабочаяДата,лРабочаяДата)=1 Тогда
			Параметры.Установить("ТочкаУстановки",Док.ТекущийДокумент());
		Иначе
			Параметры.Установить("ТочкаУстановки",лРабочаяДата);
		КонецЕсли;
		ОткрытьФорму("Обработка",Параметры,КаталогИБ()+"ExtForms\Установка ТА.ert");
	КонецЕсли;
КонецЕсли;