Код: Выделить всё
// Пример смены состояния нескольких шлейфов (выборочно) на противоположное
Сценарий
Переменные
Перем Шлейфы1;
НачалоСценария
// Создание объекта Шлейфы для последующей манипуляции
Шлейфы1 = СоздатьОбъект("Шлейфы");
// Проверка наличия шлейфов в коллекции
Если Не ПустоеЗначение( Шлейфы1 ) Тогда
// Смена состояния шлейфа с адресом 1.1.11.2
// Проверка шлейфа на существование
Если Не ПустоеЗначение( Шлейфы1.ПолучитьПоАдресу( "1.1.11.2" ) ) Тогда
//Проверка состояния шлейфа
Если Шлейфы1.ПолучитьПоАдресу( "1.1.11.2" ).Состояние() == "СНЯТ" Тогда
// Взятие раздела на охрану
Шлейфы1.ПолучитьПоАдресу( "1.1.11.2" ).Взять();
Иначе
// Снятие раздела с охраны
Шлейфы1.ПолучитьПоАдресу( "1.1.11.2" ).Снять();
КонецЕсли;
КонецЕсли;
// Смена состояния шлейфа с ИД 533
// Проверка шлейфа на существование
Если Не ПустоеЗначение( Шлейфы1.ПолучитьПоИД( 533 ) ) Тогда
//Проверка состояния шлейфа
Если Шлейфы1.ПолучитьПоИД( 533 ).Состояние() == "СНЯТ" Тогда
// Взятие раздела на охрану
Шлейфы1.ПолучитьПоИД( 533 ).Взять();
Иначе
// Снятие раздела с охраны
Шлейфы1.ПолучитьПоИД( 533 ).Снять();
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецСценария
Вернуться в «АРМ Орион Про версии до 1.20»
Сейчас этот раздел просматривают: 26 гостей