Библиотека UDF функций tp_fbudf.

Для работы триггеров и хранимых процедур, в базах данных MDS и DocExchange, мы используем собственную библиотеку UDF (user defined functions) функций tp_fbudf.
Библиотека тестировалась в рабочих проектах с среверами баз данных FireBird 2.1 и RedDatabase 2.1 (сборка 3900) в архитекуре Classic server на платформах win32 и Linux.
Важное замечание! Наши базы данных работают в кодировке win-1251.

Скачать архив с файлами библиотеки.

Список функций:

• char* DLL_EXPORT STR_digit(char* str) /*DLL_EXPORT*/;
  Returns digit symbols from string
  Функция возвращает строку из цифр исходной строки. Например, из 'fw34w5s' получим '345'
• char* DLL_EXPORT STR_non_digit(char* str);
  Copy all non digit symbols from source string to target
  Функция возвращает строку из нецифровых символов исходной строки. Например, из 'fw34w5s' получим 'fwws'
• short DLL_EXPORT STR_is_digit(char *str);
  Функция возвращает 1, если исходная строка содержит только цифры и 0 в противном случае.
• short DLL_EXPORT EAN_control_digit(char *in_barcode);
  Returns control digit for barcode
  Функция возвращает в виде числа контрольный разряд штрих-кода, рассчитанный по правилам EAN/UPC
• char* DLL_EXPORT EAN_control_digit_ch(char *in_barcode);
  Returns control digit as char
  Функция возвращает в виде символа контрольный разряд штрих-кода, рассчитанный по правилам EAN/UPC
• short DLL_EXPORT EAN_control_digit_check(char *in_barcode);
  Returns 1 if control digit of barcode is correct
  Функция возвращает 1, если переданный штрих-код имеет корректный контрольный разряд
• short DLL_EXPORT LL_ID_is_correct(char *in_barcode);
  Returns 1 if LongLife object id is correct
  Функция возвращает 1, если исходная строка является корректным идентификатором объекта LongLife
• short DLL_EXPORT MDS_Full_ID_Is_correct(char *in_barcode);
  Returns 1 if MDS object Full_ID is correct
  Функция возвращает 1, если исходная строка является корректным полным идентификатором объекта MDS
• short DLL_EXPORT TP_Full_ID_Is_correct(char *in_barcode);
  Returns 1 if object Full_ID is correct
  Функция возвращает 1, если исходная строка является корректным идентификатором объекта.
  В отличие от MDS_Full_ID_Is_correct, корректными будут признаны идентификаторы, длина которых равна 12 цифрам
  или имеют длину от 17 до 22 символов
• short DLL_EXPORT MDS_Full_ID_type_ex(char *in_barcode);
  Returns MDS object type code
  Функция извлекает из полного идентификатора код типа объекта в виде числа
• int   DLL_EXPORT MDS_Full_ID_id_ex(char *in_barcode);
  Returns MDS object short id
  Функция извлекает из полного идентификатора короткий идентификатор объекта в виде числа
• char* DLL_EXPORT barcode_make(char *str);
  Returns barcode with control digit
  Функция добавляет к переданной строке цифр контрольный разряд, рассчитанный по правилам EAN/UPC и возвращает сформированный штрих-код.
• short DLL_EXPORT Barcode_EAN_UPC(char *in_barcode);
  Returns 1 if in_barcode is public EAN or UPC code
  Функция возвращает 1, если переданный штрих-код является корректным штрих-кодом EAN/UPC
• char* DLL_EXPORT EAN_UPC_prefix(char *str);
  Returns prefix of barcode EAN UPC
  Функция возвращает префикс штрих-кода EAN-13 UPC-12

У клиента возникли проблемы с подключением старых сканеров штрих-кодов Fujitsu LG-202BCR к 1С бухгалтерии. Поскольку никакой документации в Сети я не нашёл, то решил поделиться опытом решения проблемы.

Проблема крылась в сочетании сигналов RTS и CTS. Сканер ожидает сигнал CTS и не передаёт коды. При считывании в таком режиме, сканер издаёт длинный сигнал, а компонента scanopos.dll никакого сигнала на вход не получает.

Я соединил контакты RTS и CTS под крышкой интерфейсной части сканера.
После такой доработки, сканер считает, что хост всегда готов к приёму данных.

Теперь сканеры нормально работают с компонентой scanopos.dll
Нужно лишь учитывать, что сканер добавляет префикс (#65A), а в суффиксе передаёт (#13).

Для справки, привожу распайку интерфейсного разъёма RS-232. Номера контактов на верхней картинке соответствуют номерам в таблице.