Подскажите,к чему привязать этот сценарий?Oskarev писал(а):Как то решали такую задачу. Вот что получилось.Пояснение. Машины ездят туда-сюда, БОЛИД считает кол-во машин в заданной зоне доступа, в Ядре, на вкладке Сценарии, отображается информация о количестве машин на парковке и о наличии свободных мест. Если парковка пуста, то оператору выдаётся соответствующее сообщение на экран.
- Спойлер
Код: Выделить всё
Сценарий
Переменные
Перем Считыватель1;
Перем Компьютеры1;
Перем Компьютер1;
Перем РабочиеМеста1;
Перем РабочееМесто1;
Перем ЗоныДоступа1;
Перем ЗонаДоступа1;
Перем колво;
Перем своб;
НачалоСценария
Компьютеры1 = СоздатьОбъект("Компьютеры");
Компьютер1 = Компьютеры1.ПолучитьПоИд(1);
РабочиеМеста1 = Компьютер1.РабочиеМеста();
РабочееМесто1 = РабочиеМеста1.ПолучитьПоТипуСетевогоМеста("Ядро");
ЗоныДоступа1 = СоздатьОбъект("ЗоныДоступа");
ЗонаДоступа1 = ЗоныДоступа1.ПолучитьПоИд(2);
колво = ЗонаДоступа1.КоличествоСотрудниковВЗонеДоступа();
своб = 20 - колво;
Считыватель1 = РабочееМесто1.Считыватели().ПолучитьПоИд(1);
Если колво >= 20 тогда
Считыватель1.заблокироватьдоступ();
иначе
Считыватель1.ВосстановитьДоступ();
КонецЕсли;
Сообщить(ЗонаДоступа1.Название(),0);
Сообщить(колво,0);
Сообщить("Мест на парковке:",1);
Сообщить(своб,1);
Если колво == 0 тогда
РабочееМесто1.ПоказатьСообщение( "Парковка пуста!" );
КонецЕсли;
КонецСценария
Profit!
Можно заморочиться через файл переменные обновлять, но после падения софта всё равно вычитывается где и сколь народу.
Вернуться в «АРМ Орион Про версии 1.20 и выше»
Сейчас этот раздел просматривают: 2 гостя