execute ibeblock
as
begin
  cbb = 'execute ibeblock (RecCount variant)
         as
         begin
           if (ibec_Mod(RecCount, 100) = 0) then
             ibec_Progress(RecCount || '' records imported.'');
         end;';
  
  DB = ibec_CreateConnection(__ctFirebird, 'DBName="D:\BASES\ORE.FDB";
                                            ClientLib=gds32.dll;
                                            User=SYSDBA; Password=mypassword; Names=WIN1251; SqlDialect=3;');
  try
    ibec_UseConnection(DB);
  
    -- Creating target table
    execute statement 'CREATE TABLE A_OKATO (
                           FIELD1 VARCHAR(30),
                           FIELD2 VARCHAR(30),
                           FIELD3 VARCHAR(30),
                           FIELD4 VARCHAR(30),
                           FIELD5 VARCHAR(30),
                           FIELD6 VARCHAR(30),
                           FIELD7 VARCHAR(30),
                           FIELD8 VARCHAR(30),
                           FIELD9 VARCHAR(30),
                           FIELD10 VARCHAR(30),
                           FIELD11 VARCHAR(30),
                           FIELD12 VARCHAR(30),
                           FIELD13 VARCHAR(30),
                           FIELD14 VARCHAR(30),
                           FIELD15 VARCHAR(30))';
    commit;
  
    Res = ibec_ImportData(DB, 'A_OKATO', __impText, 'K:\WORK\ОКАТО\1bOKT27715.txt', '',
                          'RowFirst=1; RowLast=200;
                           DateOrder=DMY; DateSeparator="."; TimeSeparator=":"; DecimalSeparator=","; TrimStrings;
                           CSVDelimiter=">"; StringQualifier=DoubleQuote; RecordSeparator=CRLF;', '', cbb);
  
    if (Res is not null) then
      ibec_ShowMessage(Res || ' records were imported successfully.');
  finally
    ibec_CloseConnection(DB);
  end;

end