1С 8.3 БСП ПредупреждениеПриЗавершенииРаботы
Данные > 1С 8.3 БСП > Стандартные подсистемы
Перейти в раздел примеры кода 1С 8.3:
1С 8.3 БСП ПредупреждениеПриЗавершенииРаботы. Возвращает новую структуру параметров для вывода предупреждения перед завершением работы программы.
Примера кода от rayastar
Результат = СтандартныеПодсистемыКлиент.ПредупреждениеПриЗавершенииРаботы()
Процедура ПередЗавершениемРаботыСистемы(Отказ, Предупреждения) Экспорт
Если РаботаПользователейЗавершается() Тогда
ПараметрыПредупреждения = СтандартныеПодсистемыКлиент.ПредупреждениеПриЗавершенииРаботы();
ПараметрыПредупреждения.ТекстГиперссылки = НСтр("ru = 'Блокировка работы пользователей'");
ПараметрыПредупреждения.ТекстПредупреждения = НСтр("ru = 'Из текущего сеанса выполняется завершение работы пользователей'");
ПараметрыПредупреждения.ВывестиОдноПредупреждение = Истина;
Форма = "Обработка.БлокировкаРаботыПользователей.Форма.БлокировкаСоединенийСИнформационнойБазой";
ДействиеПриНажатииГиперссылки = ПараметрыПредупреждения.ДействиеПриНажатииГиперссылки;
ДействиеПриНажатииГиперссылки.Форма = Форма;
ДействиеПриНажатииГиперссылки.ПрикладнаяФормаПредупреждения = Форма;
Предупреждения.Добавить(ПараметрыПредупреждения);
КонецЕсли;
КонецПроцедуры
Процедура ПередЗавершениемРаботыСистемы(Отказ, Предупреждения) Экспорт
Если РаботаПользователейЗавершается() Тогда
ПараметрыПредупреждения = СтандартныеПодсистемыКлиент.ПредупреждениеПриЗавершенииРаботы();
ПараметрыПредупреждения.ТекстГиперссылки = НСтр("ru = 'Блокировка работы пользователей'");
ПараметрыПредупреждения.ТекстПредупреждения = НСтр("ru = 'Из текущего сеанса выполняется завершение работы пользователей'");
ПараметрыПредупреждения.ВывестиОдноПредупреждение = Истина;
Форма = "Обработка.БлокировкаРаботыПользователей.Форма.БлокировкаСоединенийСИнформационнойБазой";
ДействиеПриНажатииГиперссылки = ПараметрыПредупреждения.ДействиеПриНажатииГиперссылки;
ДействиеПриНажатииГиперссылки.Форма = Форма;
ДействиеПриНажатииГиперссылки.ПрикладнаяФормаПредупреждения = Форма;
Предупреждения.Добавить(ПараметрыПредупреждения);
КонецЕсли;
КонецПроцедуры
// Автор библиотеки: ООО "1С-Софт". Все права защищены © 2021
// Типовая конфигурация Библиотека стандартных подсистем (далее - БСП)
// Код БСП распространяется по лицензии Attribution 4.0 International (CC BY 4.0):
// ссылка на лицензию: https://creativecommons.org/licenses/by/4.0/legalcode
// Код БСП распространяется по лицензии Attribution 4.0 International (CC BY 4.0):
// ссылка на лицензию: https://creativecommons.org/licenses/by/4.0/legalcode
0
комментарии
____________________
Перепечатка текста и фотографий разрешена при наличии прямой ссылки на источник