Firebird на Rosetta Code

Rosetta Code -- сайт, где собраны решения сотен задач на разных языках программирования.

Добавил первые программки для Firebird.

Репликация средствами Firebird

Одна треть от обновленного механизма закрытия периода -- репликация изменений с оперативной на архивную базу данных. Теперь возьмемся за задачу быстрого начального формирования оперативной базы данных.

Рисунки подготовлены в он-лайн сервисе gliffy.com.

Delphi XE 2 (Pulsar) 64 bit

Стали участниками бета тестирования новейшей разработки Embarcadero. С минимальными изменениями удалось перекомпилировать GUDF.DLL под 64 бита. Работоспособность библиотеки еще не проверяли. Будущая Делфи обещает много вкусного, но рассказывать пока нельзя. Подписка о неразглашении.

Охота за исключениями

Ради покупки Exceptional Magic пришлось открыть долларовую Visa, так как Технобанк запретил валютные платежи с рублевых карточек.

Сделаем отдельный Гедымин с отладочной информацией и логированием всех неотловленных исключений в табличку GD_JOURNAL вместе с полным стеком вызова. Должно помочь в отлове фантомных AV и прочих неприятностей.

Почему Exceptional Magic? Приемлемая цена (50 USD с исходниками) и хорошие отзывы на StackOverflow.

Структура презентации проекта

1. Общая информация о предприятии. Название. Сфера деятельности. Базовые показатели: численность персонала, объемы выпуска, количество единиц машино-тракторного парка и т.п. Где находится. Как добраться. (Только для первой презентации).
   
2. Уровень автоматизации предприятия. История взаимоотношений (для наших клиентов). Установленное ПО. Ответственные лица. Базовые параметры: количество компьютеров, наличие сети, конфигурация сервера и т.п.
   
3. Действующее соглашение с клиентом. Условия подписанного договора. Сроки.
   
4. Информация об автоматизируемом участке. Описание технологического процесса. Участники технологического процесса.
   
5. Текущая организация документоооборота и информационных потоков на автоматизируемом участке. Участники, с подробным описанием роли и выполняемых операций каждого.
   
6. Реализуемая организация документооборота и информационных потоков. Участники, с подробным описанием роли и выполняемых операций каждого. Подробное, пошаговое описание действий при ежедневной эксплуатации, закрытии периода и построении отчетных форм.
   
7. Информация по проекту. Какие базовые настройки будут использованы. Какие настройки будут разработаны специально для клиента. Структуры данных. Документы. Алгоритмы. Типовые хозяйственные операции. Корреспонденция счетов. Взаимодействие и обмен данными со сторонним ПО. Сопряжение с действующими модулями в рамках платформы Гедымин. Подключение внешнего оборудования.
   
8. Выходные формы. Образей для каждой. Информация на основании чего строится форма, как вычисляется/заполняется каждое поле.
   
9. Таймлайн. Порядок выполнения работ. Сроки. Ответственные.
   

Быстродействие триггера на коммит транзакции

Насколько замедлит выполнение кода наличие триггера на коммит транзакции?

Тестовый пример 10 000 раз извлекает имя контакта с идентификатором 650 001.

EXECUTE BLOCK
AS
  DECLARE VARIABLE I INTEGER = 0;
  DECLARE VARIABLE S VARCHAR(60);
BEGIN
  WHILE (:I < 10000) DO
  BEGIN
    EXECUTE STATEMENT
      'SELECT name FROM gd_contact WHERE id=650001'
    WITH COMMON TRANSACTION
    INTO :S;
    I = :I + 1;
  END
END

На общей транзакции время выполнения у нас составило 367 мс. Теперь повторим тоже самое, но каждый селект будет выполняться на своей, автономной транзакции:

EXECUTE BLOCK
AS
  DECLARE VARIABLE I INTEGER = 0;
  DECLARE VARIABLE S VARCHAR(60);
BEGIN
  WHILE (:I < 10000) DO
  BEGIN
    EXECUTE STATEMENT
      'SELECT name FROM gd_contact WHERE id=650001'
    WITH AUTONOMOUS TRANSACTION
    INTO :S;
    I = :I + 1;
  END
END

Время выполнения составило 13 000 мс. Как видно, 10 000 стартов и коммитов транзакции не даются нам даром. Создадим пустой триггер на коммит транзакции:

CREATE OR ALTER TRIGGER tc_test
  ACTIVE
  ON TRANSACTION COMMIT
  POSITION 9000
AS
BEGIN
END

Время выполнения с таким триггером также составляет 13 000 мс. Для сравнения добавим в триггер операторы:

CREATE OR ALTER TRIGGER tc_test
  ACTIVE
  ON TRANSACTION COMMIT
  POSITION 9000
AS
  DECLARE VARIABLE S VARCHAR(255);
BEGIN
  S = RDB$GET_CONTEXT('USER_TRANSACTION', 'TEST');
  IF (:S IS NULL) THEN
  BEGIN
    S = 'A';
  END
END

Время выполнения увеличилось на 700 мс (по 0.7 мс в расчете на одну итерацию).

Вывод: Для Firebird 2.5 само по себе наличие триггера на коммит транзакции не увеличивает время выполнения кода.

Value exceeds the range for valid dates

Придешь на работу с наилучшими намерениями, а в результате битый день носишся вокруг костра и стучишь в бубен. Получили мы доисторическую клиентскую базу Гедымина, еще на Yaffil-e. Внешне она не выглядела поврежденной: gfix не сообщал об ошибках, и архивирование-восстановление проходило без проблем. Но, в процессе апгрейда под Firebird 2.5, конвертер слетал напрочь.

Каких только действий не предпринималось. Перекомпилировали процедуры и триггеры, перерегистрировали внешние функции, перепробовали разные сборки серверов, удаляли подозрительные метаданные — все безрезультатно. Когда попробовали вручную перевести базу под Firebird 2.0, в процессе восстановления из архива наконец-то появилось более-менее осмысленное сообщение: "value exceeds the range for valid dates gds_$receive failed". Каким-то образом, поле типа дата содержало значение, которое Yaffil считал допустимым, а Firebird категорически отказывался принимать.

Предпринятая сходу попытка переприсвоить все поля типа дата запросами вида:

update gd_document set documentdate = documentdate

привела к уходу сервера "в себя". Стало ясно, что сначала надо определить проблемную таблицу, затем найти в ней нужные строки и работать с ними. С помощью запроса ниже был сформирован скрипт:

select
  'select max( ' || r.rdb$field_name || 
  ') from ' || r.rdb$relation_name || ';'
from
  rdb$relation_fields r
    join rdb$fields f on 
      f.rdb$field_name = r.rdb$field_source
where
  f.rdb$field_type = 13
order by
  r.rdb$relation_name

При его выполнении в IBExpert на таблицах с некорректными данными появляется сообщение "Invalid data cast". В нашем случае неверная дата находилась в поле documentdate где-то в таблице gd_document. Далее, с помощью прокрутки результата запроса:

select id, documentdate from gd_document order by id

выходим на запись, соседнюю с проблемной. Сама плохая запись не может быть прочитана — кидает ошибку. Убираем из запроса поле documentdate и определяем id нужной нам записи. Затем, или удаляем ее, или присваиваем полю корректное значение.

Студенты про Гедымин

ХI Межвузовская научная студенческая конференция «СОВРЕМЕННЫЕ КОМПЬЮТЕРНЫЕ ИНФОРМАЦИОННЫЕ ТЕХНОЛОГИИ».

Редактор CSV файлов

При записи в CSV файл Microsoft Excel не сохраняет пустые колонки, если они находятся в конце записи. Как на беду, наша процедура универсального импорта требует строгого соответствия количества полей заданной спецификации. С помощью Гугла легко нашелся автономный бесплатный редактор CSV файлов с широчайшими возможностями.

Как и многие другие замечательные программы, CSVed написан на Borland Inprise Borland CodeGear Embarcadero Delphi.

Откат изменений GetFromClause

Кто брал экзешник с сайта в последнюю неделю, надо обновиться еще раз (должна быть версия 2.5.11.6476 или больше). Мы вернули в исходное состояние обработку перекрытия метода GetFromClause (Issue 2376) из-за большого количества несовместимостей в существующих настройках.

В кратце, суть изменений: раньше (и так будет теперь) если вручную надо было присоединить к таблице B таблицу C, причем B являлась таблицей-атрибутом для главной таблицы бизнес объекта А, то в GetFromClause программист добавлял джоин и для B, и для C. В результирующем запросе таблица B появлялась два раза. Один раз как таблица-атрибут, второй -- как добавленная разработчиком вручную.

Была попытка анализировать запрос и в описанном случае оставлять только одну таблицу B, используя ее и для связки с С и для вытаскивания атрибутов, но при этом возникла проблема с именами полей в старой и новой версиях программы. Из-за их несовпадения могут перестать работать отчеты и нарушиться вывод колонок в гриде.

Последняя версия at_sql_setup.pas до отката изменений находится в основной ветке, в ревизии r749.

Особое извращение

Кто сказал, что времена LaTeX ушли? Mediawiki с расширениями дает не меньше возможностей для программирования документации. Так, например, выглядит шаблон Gedemin Wiki для отображения списка членов класса:

{{#arraydefine:show|procedure,function}}
{{#arraydefine:methods|{{{list}}}}}
{{#arraysort:methods|asc}}
{{{member_type}}} класса [[{{{unit}}}.{{{class}}}|{{{class}}}]].
<table rules="rows" frame="hsides">
{{#arrayprint:methods| |@@@@|
<tr><td>
{{#ifeq:{{#arraysearch:show|{{#explode:@@@@| |0}}}}|-1| |{{#explode:@@@@| |0}}}} [[{{{unit}}}.{{{class}}}.{{#explode:@@@@| |1}}|{{#explode:@@@@| |1}}]]
</td>
<td>&nbsp;</td>
<td>
{{:{{{unit}}}.{{{class}}}.{{#explode:@@@@| |1}}}}
</td></tr>}}
</table>

Примерный результат.

Delphi 64

Свершилось! Embarcadero начинает закрытое бета тестирование 64-х битного Delphi. Мы записались в список. После 10-го обещают дать ответ: допустят или нет. 64-бита нужны нам в первую очередь для компиляции GUDF.DLL для 64-х битного сервера Firebird. Можно будет проверить несколько идей по быстрому "сворачиванию" данных, которые основаны на использовании больших массивов (каждый свыше 1 Гб) в оперативной памяти.