Загрузка в 1С данных с проходной из СКУД на базе firebird 2.0

08.09.16

Разработка - Разработка внешних компонент

Загрузка в 1С 8.3 данных о проходах сотрудников через турникет

Скачать исходный код

Наименование Файл Версия Размер
1C_Firebird
.7z 339,19Kb
18
.7z 339,19Kb 18 Скачать
Отчет по посещениям на СКД
.erf 8,15Kb
12
.erf 8,15Kb 12 Скачать

Система контроля доступа - это автономная система, которая хранит свои данные на 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/

обработка загрузки в 8.3 из firebird 2.0

См. также

Экстрактор данных 1С в BI - выгрузка данных из 1С в BI-аналитику

Внешние источники данных Программист Бизнес-аналитик Пользователь Платформа 1С v8.3 Управляемые формы Анализ и прогнозирование Конфигурации 1cv8 Узбекистан Беларусь Кыргызстан Молдова Россия Казахстан Платные (руб)

Готовое решение для автоматической выгрузки данных из 1С 8.3 в базу данных ClickHouse, PostgreSQL или Microsoft SQL для работы с данными 1С в BI-системах. «Экстрактор данных 1С в BI» работает со всеми типовыми и нестандартными конфигурациями 1С 8.3 и упрощает работу бизнес-аналитиков. Благодаря этому решению, специалистам не требуется быть программистами, чтобы легко получать данные из 1С в вашей BI-системе.

15.11.2022    15723    14    SQV0    47    

34

Перенос данных из Парус 8 в ЗГУ 3

Зарплата Внешние источники данных Бюджетный учет Системный администратор Программист Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактических удержаниях, НДФЛ, вычетах, страховых взносах из базы Парус 8 учреждений в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (ЗГУ) и начать с ней работать с любого месяца года.

84000 руб.

19.08.2020    23066    19    1    

22

Перенос данных из Парус 7.хх в ЗГУ ред.3

Внешние источники данных Зарплата Бюджетный учет Программист Бухгалтер Платформа 1С v8.3 Сложные периодические расчеты 1С:Зарплата и кадры государственного учреждения 3 Государственные, бюджетные структуры Россия Бухгалтерский учет Бюджетный учет Платные (руб)

Обработка позволяет перенести кадровую информацию и данные по заработной плате, фактических удержаниях, НДФЛ, вычетах, страховых взносах из базы Парус 7.хх учреждений в конфигурацию 1С:Зарплата и кадры государственного учреждения ред. 3 (ЗГУ) и начать с ней работать с любого месяца года.

24000 руб.

24.04.2017    49237    97    165    

87

Перенос начальных остатков из Парус 7.71 в БГУ

Внешние источники данных Взаиморасчеты Учет ОС и НМА Логистика, склад и ТМЦ Бюджетный учет Программист Бухгалтер Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия 2.0 1С:Бухгалтерия государственного учреждения Государственные, бюджетные структуры Россия Бюджетный учет Абонемент ($m)

Перенос словарей и начальных остатков из ПП Парус-Бухгалтерия Бюджет 7.71 в 1Сv8 БГУ2. Заполнение словарей и документов по вводу начальных остатков. Не требуется установка ПП Парус7. Возможна дозагрузка. Позволит автоматически ввести основные данные в программу для начала работы. 

10 стартмани

08.12.2011    82000    5    Skaredov    124    

147

Загрузка в БГУ из УРМ "Криста"

Внешние источники данных Банковские операции Бухгалтер Платформа 1С v8.3 Бухгалтерский учет 1С:Бухгалтерия государственного учреждения Россия Бухгалтерский учет Платные (руб)

Обработки для загрузки данных из УРМ "Криста" в бухгалтерию государственного учреждения редакция 2.0. Есть Демо доступ на вкладке Бесплатные файлы на 1 месяц со дня получения демонстрационного ключа регистрации. Поддерживает ПО "Web-исполнение" от НПО "Криста".

4800 руб.

19.06.2013    38940    136    102    

30
Комментарии
Подписаться на ответы Инфостарт бот Сортировка: Древо развёрнутое
Свернуть все
1. Diego_Iv 34 08.09.16 16:36 Сейчас в теме
С какой целью "Посещения" сделаны справочником???
Логичнее - регистр сведений.
2. zzhiraf 8 08.09.16 17:16 Сейчас в теме
Регистр сведений - логичнее сделать, и он быстрее работает. Обработка работает с 2013 года, тогда казалось что справочник лучше подходит для этих задач. Сейчас уже неохота переделывать. Загрузка месяца данных занимает около минуты.
3. DrAku1a 1727 15.09.16 03:30 Сейчас в теме
Компонента своя? Работает на 64-битном сервере?
Пробовал свою делать ВК - но она только 32-битная, в итоге сделал программу, которая коннектится к FDB и сохраняет данные в виде XML-файла. Программа 32-битная, но нормально запускается из фонового задания. Медленно работает, но зато - стабильно!
5. zzhiraf 8 26.09.16 11:04 Сейчас в теме
К(3) DrAku1a,

Компонента самописная, писал прог. для проекта под 1С 7.7 для магазина розницы. Скорость работы довольно быстрая. Сейчас запускаю её на 64 win 10 для загрузки посещений - все работает.
4. Valet 56 16.09.16 08:48 Сейчас в теме
ODBC драйвера для FireBird/Interbase позволяют подключаться без компонент посредством виндового COM объекта ADODB. Есть версии и для x64.
6. ustinov_greendale 02.12.16 13:59 Сейчас в теме
Очень помогло при интеграции систем контроля доступа Кронверк, так что до сих пор актуально.
7. darkpsm 23.08.18 11:12 Сейчас в теме
Вот для 1с77 чтение из fdb
но должны быть установлены
Firebird-2.5.8.27089_0_Win32
и
Firebird_ODBC_2.0.5.156_Win32
Прикрепленные файлы:
1c77_Perco _fdb.ert
8. Stanislav1993 13.03.19 13:41 Сейчас в теме
Что нужно указать в параметре функции ПодключитьИБ()?
9. zzhiraf_ 73 13.03.19 17:45 Сейчас в теме
ИБ = Новый COMОбъект("AutoIBX.Application");

Сейчас я уже не использую эту компоненту. Переделал все на стандартный
СоединениеИБ = Новый COMОбъект("ADODB.Connection");
Проблема в компоненте была с кодировкой. Не мог выбирать CHARSET и русские буквы возвращались не читаемыми.


СоединениеИБ.ConnectionString = "DRIVER={Firebird/InterBase® driver};Dialect=3;CHARSET=NONE;DBNAME=C:\Kronwerk\RSTART.FDB;" + //
"UID=SYSDBA;" + // UID=SYSDBA;
"PWD=masterkey;"; // PWD=masterkey;

СоединениеИБ.ConnectionTimeOut = 1200;
СоединениеИБ.CursorLocation = 3;
Попытка
СоединениеИБ.Open(СоединениеИБ.ConnectionString);
Исключение
Сообщить("Невозможно установить соединение с Firebird:
| "+ОписаниеОшибки());
Возврат;
КонецПопытки;

Рез=СоединениеИБ.Execute(Зап);

Ном=0;
Пока Рез.EOF=0 цикл
ИД = Рез.Fields("ev_id").value;
КонецЦикла;
Оставьте свое сообщение