Система контроля доступа - это автономная система, которая хранит свои данные на firebird. Система позволяет строить отчеты по различным разрезам, однако на каждое рабочее место оператора нужно покупать лицензию. Поэтому решено было для пользователей, которым нужны отчеты, перегружать эти данные в 1С, а для ресепшена оставить текущую систему.
В лицензии на ПО была строчка "ОГРАНИЧЕНИЕ НА ВСКРЫТИЕ ТЕХНОЛОГИИ И ДЕКОМПИЛЯЦИЮ. Запрещается вскрывать технологию или декомпилировать программу. ". Однако программу мы не вскрывали, просто подключились к кроссплатформенной системе управления базами данных firebird.
Добавляем в конфигурацию справочник "Посещения" и в нем фиксируем сотрудника, дату прихода и флаг "Вход" или "Выход".
Далее периодически подгружаем новые данные. Делается это через компоненту COMОбъект("AutoIBX.Application"); Компонента позволяет подключаться к файлу *.FDB или *.gdb и далее читать данные.
Функция ПодключитьИБ(ИБ)
ЮзерДБ="SYSDBA";
ПарольДБ="masterkey";
ИмяДБ="E:\Kronwerk\Temp\IBNET.FDB";
ИБ.SetUser(СокрЛП(ЮзерДБ),СокрЛП(ПарольДБ));
Рез=ИБ.Connect(ИмяДБ);
Если Рез>0 тогда
Сообщить("Соединение установлено!");
Возврат 1;
КонецЕсли;
Возврат Рез;
КонецФункции
Подключаться можно не только к локальной базе на текущем компьютере, но также по сети.
имя-сервера:буква-диска:\путь-к-файлу\имя-файла-базы-данных
Для чтения данных используем следующий запрос:
Зап="select
| events.EV_ID,
| events.ev_date,
| events.ev_objid,
| owner.OW_MIDDLENAME,
| owner.ow_firstname,
| owner.ow_lastname,
| owner.ow_jd_id
|from
| events, owner
|where
| events.ev_ow_id = owner.ow_id
| and EV_ID > " + MaxCode();
Рез=СоединениеИБ.ExecQuery("",Зап);
Рез_= СоединениеИБ.FirstRecord();
Пока Рез_>0 цикл
ИД = СоединениеИБ.GetItem("EV_ID");
ДатаСобытия = СоединениеИБ.GetItem("Ev_date");
КодВхода = СоединениеИБ.GetItem("ev_objid");
Имя = СоединениеИБ.GetItem("ow_firstname");
Фамилия = СоединениеИБ.GetItem("ow_lastname");
Рез_=СоединениеИБ.NextRecord();
КонецЦикла
Загружаем только новые данные, для этого функция MaxCode() возращает номер последней записанной строки.
Код элемента справочника Посещения равен ID в таблице посещений на firebird.
Отчет к справочнику "Посещения" строим на основе СКД. Можно вывести приход и уход с подстветкой, если сотрудник опоздал. Также можно вывести, сколько раз сотрудник бегал "покурить" на улицу.
Из замеченных проблем - синхронизация часов на турникете с Московским временем и проход по чужой карточке.
В архиве внешняя компонента AutoIBX.dll для подключения к базе firebird 2.0 и обработка 1С 8.3 для загрузки данных в 1С из firebird.
Просмотреть файл *.gdb можно с помощью http://sqlly.com/
Система управления базами данных firebird 2.0 http://firebirdsql.org/en/firebird-2-0/
Вступайте в нашу телеграмм-группу Инфостарт
