Эксплуатация » Помогите создать сценарий

Сценарий
 Переменные
  Перем Считыватель1;
  Перем Компьютеры1;
  Перем Компьютер1;
  Перем РабочиеМеста1;
  Перем РабочееМесто1;
  Перем ЗоныДоступа1;
  Перем ЗонаДоступа1;
 НачалоСценария
Попытка
 Компьютеры1 = СоздатьОбъект( "Компьютеры" );
 Компьютер1 = Компьютеры1.ПолучитьПоИд(1);
  РабочиеМеста1 = Компьютер1.РабочиеМеста();
  РабочееМесто1 = РабочиеМеста1.ПолучитьПоТипуСетевогоМеста("Ядро");
   ЗоныДоступа1 = СоздатьОбъект( "ЗоныДоступа" );
   Если не ПустоеЗначение( ЗоныДоступа1 ) Тогда
    ЗонаДоступа1 = ЗоныДоступа1.ПолучитьПоИД( 1 );
     Если не ПустоеЗначение( РабочееМесто1.Считыватели() ) Тогда
      Считыватель1 = РабочееМесто1.Считыватели().ПолучитьПоИД( 1 );
       Если ( ЗонаДоступа1.КоличествоСотрудниковПоУровню( 0 ) > 19 ) Тогда
        Если не ПустоеЗначение( Считыватель1 ) Тогда
        Считыватель1.ЗаблокироватьДоступ();
         иначе Сообщить( "Считыватель не найден", 1 );
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецЕсли;
КонецПопытки;
КонецСценария

Сам не проверял. Рукописный сценарий привязать к событию ПРОХОД считывателя который пускает в эту ЗД.
СЦЕНАРИЙ
Переменные
перем Событие1;
перем ЗД1;
перем ЗД2;
перем считыватель1;

НАЧАЛОСЦЕНАРИЯ
Событие1 = ПолучитьСобытие();
ЗД1 = СоздатьОбъект("ЗоныДоступа");
ЗД2 = ЗД1.ПолучитьПоИндексу(1); // указать номер ЗД
если (ЗД2.КоличествоСотрудниковВЗонеДоступа() == 20)  тогда
считыватель1 = Событие1.Элемент();
считыватель1.ЗаблокироватьСчитыватель();
КонецЕсли;

КОНЕЦСЦЕНАРИЯ

Далее создаете сценарий по шаблону, Восстановить Доступ, указать считыватель на вход в эту ЗД, но привязать к событию ПРОХОД считывателя который выпускает из этой ЗД.

еще вопрос, почему у меня не выводит сообщение с количеством мест
просто сообщение выводит, а вот переменную нет, подскажите что не так

рабочееместо1.ПоказатьСообщение( Зонадоступа1.КоличествоСотрудниковВЗонеДоступа(), 0);

Попробуйте так: рабочееместо1.ПоказатьСообщение( "Зонадоступа1.КоличествоСотрудниковВЗонеДоступа()");

удалось полностью реализовать сценарий, с выводом на табло количества мест. Но возникла проблема, если 2 машины успевают проехать через шлагбаум, то количество мест отображается неправильно. При условии, что на ночь парковка закрыта и машин там не должно быть, то возникла необходимость, что-то придумать с обнулением людей в зоне доступа.
я решил создать сценарай который каждую ночь оценивает количество людей в зоне и предоставление им доступа, чтобы выгнать из зоны.
Для начала я хотел начать с чего-то простого - выявить сотрудника в зоне и вывести его. При успехи данного сценария попытаться его зациклить.
Но даже с первым пунктом возникли трудности.

Сценарий
Переменные
Перем РабочиеМеста1;
Перем Компьютеры1;
Перем Компьютер1;
Перем РабочееМестоЛок1;
Перем ЗоныДоступа1;
Перем ЗонаДоступа1;
Перем Сотрудники;
Перем Сотрудник1;
Перем Считыватель1;
НачалоСценария


Попытка
Компьютеры1 = СоздатьОбъект( "Компьютеры" );
Компьютер1 = Компьютеры1.ПолучитьПоИд(1);
РабочиеМеста1 = Компьютер1.РабочиеМеста();
РабочееМестоЛок1 = РабочиеМеста1.ПолучитьПоТипуСетевогоМеста("ядро");
ЗоныДоступа1 = СоздатьОбъект( "ЗоныДоступа" );
ЗонаДоступа1 = ЗоныДоступа1.ПолучитьПоИд( 2 );
Сотрудники = ЗоныДоступа1.Сотрудники()
Сотрудник1 = Сотрудники.Первый();
Считыватель1 = РабочееМестоЛок1.Считыватели().ПолучитьПоИд(42)
Считыватель1.ПредоставитьДоступ(Сотрудник1);


Если Не ПустоеЗначение(РабочееМестоЛок1)
Тогда
Сообщить(Сотрудник1, 0);
КонецЕсли;
Исключение Сообщить("Произошло исключение",0); КонецПопытки;
КонецСценария

Трудность в том, что я не могу вытащить информацию о сотрудники из зоны, любые команды типо его id, пароля или фио не приводят не к чему. Т.к. команда (Первый) даёт лишь порядковый номер в списке. Помогите пожалуйста справиться с этой задачей. Заранее благодарен

 

появилась новая задача от заказчика, и я опять не знаю как с ней справиться. По аналогии с первой задачей с блокировкой вьезда при определенном количество, но теперь зона должна быть разделена на 3 группы допуска, у каждой должно быть определенное количество мест на парковке. И допуск должен не блокироваться, а запрещаться.
Тоесть на одной парковке 3 арендатора, у каждого свое количество машиномест, при достиженние максимума на парковке, нужно запрещать вьезд другим машинам данного арендатора, а при выезде снимать запрет. Если такой сценарий вообще возможен, помогите написать.

нужно понимание
команда
ПолучитьСобытие() отражает уже произошедшее событие или которое еще не совершенно.
Иными словами если человек прислонил карточку, ему предоставится доступ и я получу его данные или я сначала получаю его данные, только потом предоставляется доступ.
Тоесть могу ли я заблокировать его доступ или ему предоставится проход, а лишь затем он заблокируется

Плюсом хотелось бы знать команду запрета прохода и примерный скрипт системы антипасбека

Пока в голову приходит только то, что у вас должен быть всегда запрещен доступ, человек касается картой, по событию доступ запрещен запускается сценарий с проверкой Уровня доступа, а потом уже проверка количества свободных мест по этому УД. Далее решине, предоставить доступ или отказать.