Внимание! Тема закрыта. Добавлять сообщения в закрытую тему запрещено.
Ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
Процедура ОсновныеДействияФормыПодключить(Кнопка)
Если ПланыОбмена.ГлавныйУзел()= Неопределено Тогда
ПланыОбмена.УстановитьГлавныйУзел(ВосстановитьЗначение("ВосстановитьЗначениеГлавногоУзлаВПодчиненном"));
КонецЕсли;
Предупреждение("Главный узел восстановлен");
КонецПроцедуры
Процедура ОсновныеДействияФормыОтключить(Кнопка)
Если ПланыОбмена.ГлавныйУзел()<> Неопределено Тогда
СохранитьЗначение("ВосстановитьЗначениеГлавногоУзлаВПодчиненном", ПланыОбмена.ГлавныйУзел());
ПланыОбмена.УстановитьГлавныйУзел(Неопределено);
КонецЕсли;
Предупреждение("Главный узел отключен");
КонецПроцедуры
Процедура ОсновныеДействияФормыОчиститьИзменения(Кнопка)
Попытка
Для Каждого План Из ПланыОбмена Цикл
Выборка = План.Выбрать();
Пока Выборка.Следующий() Цикл
Если Выборка.Ссылка<>ПланыОбмена.УдаленныйКонсультант.ЭтотУзел() тогда
ПланыОбмена.УдалитьРегистрациюИзменений(Выборка.Ссылка);
КонецЕсли;
КонецЦикла;
КонецЦикла;
сообщить("Чистка успешно завершена!");
исключение
сообщить(ОписаниеОшибки());
КонецПопытки;
КонецПроцедуры
Если ПланыОбмена.ГлавныйУзел()= Неопределено Тогда
ПланыОбмена.УстановитьГлавныйУзел(ВосстановитьЗначение("ВосстановитьЗначениеГлавногоУзлаВПодчиненном"));
КонецЕсли;
Предупреждение("Главный узел восстановлен");
КонецПроцедуры
Процедура ОсновныеДействияФормыОтключить(Кнопка)
Если ПланыОбмена.ГлавныйУзел()<> Неопределено Тогда
СохранитьЗначение("ВосстановитьЗначениеГлавногоУзлаВПодчиненном", ПланыОбмена.ГлавныйУзел());
ПланыОбмена.УстановитьГлавныйУзел(Неопределено);
КонецЕсли;
Предупреждение("Главный узел отключен");
КонецПроцедуры
Процедура ОсновныеДействияФормыОчиститьИзменения(Кнопка)
Попытка
Для Каждого План Из ПланыОбмена Цикл
Выборка = План.Выбрать();
Пока Выборка.Следующий() Цикл
Если Выборка.Ссылка<>ПланыОбмена.УдаленныйКонсультант.ЭтотУзел() тогда
ПланыОбмена.УдалитьРегистрациюИзменений(Выборка.Ссылка);
КонецЕсли;
КонецЦикла;
КонецЦикла;
сообщить("Чистка успешно завершена!");
исключение
сообщить(ОписаниеОшибки());
КонецПопытки;
КонецПроцедуры
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот