execute ibeblock
as
   declare variable LAST_EXPORT_1C_DATE varchar(19);
   declare variable CURRENT_EXPORT_1C_DATE varchar(19);
   declare variable str_path varchar(180);
begin
    str_path = 'd:\database\obmen-1c\';

    try
        CREATE CONNECTION Con1 DBNAME '127.0.0.1:work'
        USER 'sysdba' PASSWORD 'masterkey'
        clientlib 'c:\Program Files\Firebird\Firebird_3_0\fbclient.dll'
        sql_dialect 1 names win1251;
        try
            USE Con1;
            CURRENT_EXPORT_1C_DATE = ibec_Now;
            select first 1 PARAMVAL from parameters where PARAMNAME = 'LAST_EXPORT_1C_DATE' into :LAST_EXPORT_1C_DATE;

            --  ibec_MessageDlg(:LAST_EXPORT_1C_DATE ,2,4); --правильно отображает значение из таблицы
            --  ibec_MessageDlg(:CURRENT_EXPORT_1C_DATE ,2,4); 

            update parameters  set PARAMVAL=:NEW_EXPORT_1C_DATE where PARAMNAME = 'LAST_EXPORT_1C_DATE';
          FINALLY
            CLOSE CONNECTION Con1;
        end
    except
        ErrSQLCode = ibec_err_SQLCode();
        if (ErrSQLCode = -902) then
                    ibec_MessageDlg('Ошибка подключения к базе Firebyrd '||ibec_err_Message(), 1, 4);
                    else ibec_MessageDlg(ibec_err_Message(), 1, 4);
    end;   --try
end

execute ibeblock
as
   declare variable str varchar(19);
   declare variable str_path varchar(180);
begin
    str_path = 'd:\database\obmen-1c\';

    try
        CREATE CONNECTION Con1 DBNAME '127.0.0.1:work'
        USER 'sysdba' PASSWORD 'masterkey'
        clientlib 'c:\Program Files\Firebird\Firebird_3_0\fbclient.dll'
        sql_dialect 1 names win1251;
        try
            USE Con1;
            with recursive
                sprgroup_tree  (parentid,kod, name)
                as
                (
                select g1.parentid,kod,name from sprgroup g1
                where  g1.parentid =2
                union all
            
                select g2.parentid, g2.kod, cast(g2.name as varchar(100))
                from sprgroup g2 join sprgroup_tree s on g2.parentid = s.kod
                )
            select
              case  when parentid =2 then 0 else parentid end
                 as parentid,
                 kod,
                 name
             from sprgroup_tree
             EXPORT AS CSV INTO %path||'3spr-group.csv' OPTIONS 'OmitCaptions; Delimiter=;';

            FINALLY
                CLOSE CONNECTION Con1;    
        end
    except
        ErrSQLCode = ibec_err_SQLCode();
        if (ErrSQLCode = -902) then
                    ibec_MessageDlg('Ошибка подключения к базе Firebyrd '||ibec_err_Message(), 1, 4);
                    else ibec_MessageDlg(ibec_err_Message(), 1, 4);
    end;   --try
end

Str_Connect = 'DBName="127.0.0.1:work"; User=SYSDBA; Password="masterkey"; Names=WIN1251; SqlDialect=1; clientlib="c:\Program Files\Firebird\Firebird_3_0\fbclient.dll"';
        Con1 = ibec_CreateConnection(__ctFirebird, Str_Connect);

__ctFirebird
__ctODBC