Delphi заготовки

FireBird

программа которая позволяет автоматизировать работу скриптов в базе FireBird по  времени

допустим необходимо чтобы каждый день проверять рабочий период и в случаи его скорого закрытия добавить к дате закрытия рабочего периода скажем 10 дней.

для Системы Ansoft Avard-a написал следующий модуль и записал в планировщик задач

программа состоит из 2 частей

auto_script_setup - для настрйоки и отладки скрипта

auto_script - программа которая выполняет скрипт и заканчивает работу 

пример программы

EXE-шник и исходник программы

/12_skript_dlja_vypolnenija_po_raspisaniju.zip

файл setting.ini содержит параметры подключения к БД

пример файла

base=<ip адрес>:<псевданим>
login=<имя пользователя>
pw=<пароль>

sqlbody.sql содержит текст запроса или Excecut Block -а 

пример Екзет Блока Execute Block  для FireBird 2.1

 EXECUTE  BLOCK
    RETURNS (Y INTEGER, TVGr varchar(80) )
    AS
    DECLARE VARIABLE dx integer;
    DECLARE VARIABLE dd1 date;
    DECLARE VARIABLE dd2 date;
    BEGIN
    dd1=CURRENT_TIMESTAMP;
     select lib.ldate2 from lib where lid=91 into dd2;

     if (abs(dd1-dd2)<10) then begin
        update lib set ldate2=:dd1+10 where lid=91;
        tvgr='новая дата в рабочем периоде';
     end else tvgr='еще есть время';
     SUSPEND;
    end