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="LOCALHOST:Ib4Debug";
                                            ClientLib=C:\Work\FirebirdBinLnk\fbclient.dll;
                                            User=SYSDBA; Password=masterkey; Names=WIN1251; SqlDialect=3;');
  try
    ibec_UseConnection(DB);
  
    -- Dropping target table if exists
    if (exists(select rdb$relation_name from rdb$relations where rdb$relation_name = 'Err203')) then
    begin
      execute statement 'drop table "Err203"';
      commit;
    end;
  
  
    -- Creating target table
    execute statement 'CREATE TABLE "Err203" (
                           "Field1" VARCHAR(30),
                           "Field2" DOUBLE PRECISION)';
    commit;
  
    sMappings = '"Field1"="A";' + 
                '"Field2"="B"';
  
    Res = ibec_ImportData(DB, '"Err203"', __impExcel, 'C:\Work\ErrorDemos\IbExpert\203\Err203.xlsx', '', 
                          'RowFirst=1; RowLast=2147483647;
                           DateOrder=DMY; DateSeparator="."; TimeSeparator=":"; DecimalSeparator=","; Sheet=0;', :sMappings, cbb);
  
    if (Res is not null) then
      ibec_ShowMessage(Res || ' records were imported successfully.');
  finally
    ibec_CloseConnection(DB);
  end;

end