execute ibeblock
as
begin
  Name = ibec_GetGlobalVar('NAME', '');
  PATH = ibec_GetGlobalVar('PATH', '');
  DB_Name = ibec_GetGlobalVar('DB', '');

  if (Name = '') then
  begin
    ibec_progress('Не указано имя БД');
    exit;
  end

  if (Path = '') then
  begin
    ibec_progress('Не указан путь');
    exit;
  end

  if (DB_Name = '') then
  begin
    reg = ibec_reg_Open(__HKEY_CURRENT_USER, 0);
    try
      if (ibec_reg_OpenKey(reg, 'Software\DeltaSoft\'||Name, FALSE)) then
        DB_Name = ibec_reg_ReadString(reg, 'DBName');
    finally
      ibec_reg_Close(reg);
    end
  end

  if (DB_Name = '') then
  begin
    ibec_progress('Не указана БД');
    exit;
  end

  dir = Path||'\'||Name||'_db';

  ibec_progress('Очистка папки '||dir);
  if (ibec_getfiles(files_list, dir, '*.*',  __gfFullName) > 0) then
  begin
    i = 0;
    while (i <= ibec_high(files_list)) do
    begin
      ibec_DeleteFile(files_list[i]);
      i = i + 1;
    end
  end;

  ibec_progress('Создание отображения БД в '||dir);
  DB = ibec_CreateConnection(__ctFirebird, 'DBName="'||DB_NAME||'";user=SYSDBA; password=masterkey');
  try
    ibec_UseConnection(DB);
    ibec_ExtractMetadata(db, dir, 'VCSFiles;GenerateCreate;IncludeCharset;ExtractPrivileges;ExtractDescriptions',cbb);

    fs = ibec_fs_OpenFile(name||'.data', __fmOpenRead);
    if (fs is not null) then
    begin
      ibec_progress('Создание данных БД в '||dir);

      while (not ibec_fs_Eof(fs)) do
      begin
        TableN = '';
        wh = '';

        s = ibec_fs_Readln(fs);
        ValCount = ibec_ParseCSVLine(Vals, s, '"', ibec_Chr(9), 0);
        if (Vals[0] is not null) then
          TableN = Vals[0]; else TableN = '';

        if (Vals[1] is not null) then
          wh = Vals[1]; else wh = '';

        cnt = 0;

        for select trim(r.rdb$field_name), trim(case when f.rdb$field_type in (14, 37, 40, 261, 45) then '''' else '' end), coalesce(trim(both '''' from nullif(trim(leading 'DEFAULT ' from upper(substring(coalesce(r.rdb$default_source, f.rdb$default_source) from 1 for 80))), 'NULL')), '')
            from rdb$relation_fields r
            join rdb$fields f on f.rdb$field_name = r.rdb$field_source
            where r.rdb$relation_name = :TableN
            order by r.rdb$field_position
        into n, tp, defv do
        begin
          f[cnt] = n;
          d[cnt] = defv;
          y[cnt] = tp;
          cnt = cnt + 1;
        end

        if (cnt = 0) then exit;

        s = ''; w = '';
       
        if (wh > '') then 
          w = ' where '||wh;

        k = 0;
        q = 'select * from '||TableN||W||'  order by '||f[0];
        for execute statement :q into vals do
        begin
          k = k + 1;
          i = 0;
          while (i < cnt) do
          begin
            v = vals[i];
            v = coalesce(v, '');
            r = d[i];
            if (v <> '' and v <> r) then
            begin
              s=s||f[i]||'='||y[i]||vals[i]||y[i]||ibec_CRLF();
            end
            i = i + 1;
          end;
          s=s||'---------------------------------------------------'||ibec_CRLF();
        end
        ibec_SaveToFile(dir||'\'||TableN||'.data', s, 1);

        ibec_progress('   '||TableN||'   '||k);
      end
      ibec_fs_CloseFile(fs);
    end
  finally
    ibec_CloseConnection(DB);
  end

  ibec_SaveToFile(dir||'\'||name||'_db.txt', DB_NAME, 0);

  ibec_progress('Отображение БД создано');
end;

IBEScript.exe exract_db.sql -GNAME=%1 -GPATH=%2 -GDB=%3

PROJECT
COUNTRY#9currency containing 'dollar'