Система контроля доступа — это автономная система, которая хранит свои данные на firebird. Система позволяет строить отчеты по различным разрезам, однако на каждое рабочее место оператора нужно покупать лицензию. Поэтому решено было для пользователей, которым нужны отчеты, перегружать эти данные в 1С, а для ресепшена оставить текущую систему.
В лицензии на ПО была строчка «ОГРАНИЧЕНИЕ НА ВСКРЫТИЕ ТЕХНОЛОГИИ И ДЕКОМПИЛЯЦИЮ. Запрещается вскрывать технологию или декомпилировать программу. «. Однако программу мы не вскрывали, просто подключились к кроссплатформенной системе управления базами данных firebird.
Добавляем в конфигурацию справочник «Посещения» и в нем фиксируем сотрудника, дату прихода и флаг «Вход» или «Выход».
Далее периодически подгружаем новые данные. Делается это через компоненту COMОбъект(«AutoIBX.Application»); Компонента позволяет подключаться к файлу *.FDB или *.gdb и далее читать данные.
Функция ПодключитьИБ(ИБ)
ЮзерДБ="SYSDBA";
ПарольДБ="masterkey";
ИмяДБ="E:KronwerkTempIBNET.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/
Related Posts
Получение логина и пароля техподдержки 1С из базы
Класс для вывода отчета в Excel
Счет-фактура для УПП
Библиотека классов для создания внешней компоненты 1С на C#- Акт об оказании услуг (со скидками) — внешняя печатная форма для Управление торговлей 11.1.10.86
Прайс-лист с артикулом в отдельной колонке
С какой целью «Посещения» сделаны справочником???
Логичнее — регистр сведений.
Регистр сведений — логичнее сделать, и он быстрее работает. Обработка работает с 2013 года, тогда казалось что справочник лучше подходит для этих задач. Сейчас уже неохота переделывать. Загрузка месяца данных занимает около минуты.
Компонента своя? Работает на 64-битном сервере?
Пробовал свою делать ВК — но она только 32-битная, в итоге сделал программу, которая коннектится к FDB и сохраняет данные в виде XML-файла. Программа 32-битная, но нормально запускается из фонового задания. Медленно работает, но зато — стабильно!
ODBC драйвера для FireBird/Interbase позволяют подключаться без компонент посредством виндового COM объекта ADODB. Есть версии и для x64.
К(3) DrAku1a,
Компонента самописная, писал прог. для проекта под 1С 7.7 для магазина розницы. Скорость работы довольно быстрая. Сейчас запускаю её на 64 win 10 для загрузки посещений — все работает.
Очень помогло при интеграции систем контроля доступа Кронверк, так что до сих пор актуально.
Вот для 1с77 чтение из fdb
но должны быть установлены
Firebird-2.5.8.27089_0_Win32
и
Firebird_ODBC_2.0.5.156_Win32
Что нужно указать в параметре функции ПодключитьИБ()?
ИБ = Новый COMОбъект(«AutoIBX.Application»);
Сейчас я уже не использую эту компоненту. Переделал все на стандартный
СоединениеИБ = Новый COMОбъект(«ADODB.Connection»);
Проблема в компоненте была с кодировкой. Не мог выбирать CHARSET и русские буквы возвращались не читаемыми.
СоединениеИБ.ConnectionString = «DRIVER={Firebird/InterBase® driver};Dialect=3;CHARSET=NONE;DBNAME=C:KronwerkRSTART.FDB;» + //
«UID=SYSDBA;» + // UID=SYSDBA;
«PWD=masterkey;»; // PWD=masterkey;
СоединениеИБ.ConnectionTimeOut = 1200;
СоединениеИБ.CursorLocation = 3;
Попытка
СоединениеИБ.Open(СоединениеИБ.ConnectionString);
Исключение
Сообщить(«Невозможно установить соединение с Firebird:
| «+ОписаниеОшибки());
Возврат;
КонецПопытки;
Рез=СоединениеИБ.Execute(Зап);
Ном=0;
Пока Рез.EOF=0 цикл
ИД = Рез.Fields(«ev_id»).value;
КонецЦикла;