execute ibeblock
as
begin
  alias = ibec_GetGlobalVar('alias', '');
  project = ibec_GetGlobalVar('project', '');
  path = ibec_GetGlobalVar('path', '');
  if (path = '') then path = alias||'_db';
  l = ibec_chr(92);

  DB_Name = '';
  reg = ibec_reg_Open(__HKEY_CURRENT_USER, 0);
  try
    if (ibec_reg_OpenKey(reg, 'Software\FIBC_Software\Aliases'||l||Alias, FALSE)) then
      DB_Name = ibec_reg_ReadString(reg, 'Database Name');
  finally
    ibec_reg_Close(reg);
  end;

  if (DB_Name = '') then
  begin
    ibec_ShowMessage('Ошибка: alias '||alias||' не существует');
    exit;
  end;

  fn = '..\project'||l||project||l||path;

  ibec_progress('Удаление старых файлов');
  if (ibec_getfiles(files_list, fn||l, '*.*',  __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('Создание отображения БД в '||fn);
  DB = ibec_CreateConnection(__ctFirebird, 'DBName="'||DB_NAME||'";user=SYSDBA; password=masterkey; clientlib=fbclient.dll');
  try
    ibec_UseConnection(DB);
    ibec_ExtractMetadata(db, fn, 'VCSFiles;GenerateCreate;IncludeCharset;ExtractPrivileges;ExtractDescriptions','');

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

      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(fn||l||TableN||'.data', s, 1);

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

  ibec_SaveToFile(fn||l||alias||'_alias.txt', DB_NAME, 0);

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