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:K:\Firebird DataBase\khmeln.fdb";
                                            ClientLib=c:\Program Files\Firebird\Firebird_2_5\bin\fbclient.dll;
                                            User=SYSDBA; Password=masterkey; Names=WIN1251; SqlDialect=3;');
  try
    ibec_UseConnection(DB);
  
    -- Deleting records from the target table
    delete from TAR1;
    commit;
  
    sMappings = '"DATA_TR"="TR1_DATA_T";' + 
                '"DATA_E"="TR1_DATA_E";' + 
                '"DATA_R"="TR1_DATA_R";' + 
                '"MARK"="TR1_MARK";' + 
                '"NUMB"="TR1_NUMB";' + 
                '"TARN"="TR1_TARN";' + 
                '"COD_POSL"="TR1_CODE1";' + 
                '"COD_RIZN"="TR1_CODE2";' + 
                '"NORM_US"="TR1_NORM_U";' + 
                '"NORM_USD"="Field9";' + 
                '"CODE_NN"="TR1_CODE_N";' + 
                '"CODE_NDN"="Field11";' + 
                '"CODE_UNIT"="TR1_CODE_U";' + 
                '"COST_UNIT"="TR1_COST_U";' + 
                '"COST_UN1"="Field14";' + 
                '"COST_UN2"="Field15";' + 
                '"NORM"="TR1_NORM";' + 
                '"NORM_DOP"="TR1_NORM_D";' + 
                '"NORM_MAX"="TR1_NORM_M";' + 
                '"VOL_UN0"="TR1_VOL_UN";' + 
                '"VOL_UN1"="Field20";' + 
                '"OPAL_TIP"="TR1_K_NADL";' + 
                '"CODE_FROG"="TR1_CODE_F"';
  
    Res = ibec_ImportData(DB, 'TAR1', __impDBase, 'D:\Khmeln.she\Dic&Tar\TAR1.DBF', '', 
                          'RowFirst=1;
                           RowLast=2147483647;
                           DateOrder=DMY; DateSeparator=".";
                           TimeSeparator=":";
                           DecimalSeparator=",";
                           OemToAnsi;', :sMappings, cbb);
  
    if (Res is not null) then
      ibec_ShowMessage(Res || ' records were imported successfully.');
    --update tar1
    --set
    --  tar1.data_tr=dateadd( day, -36161,  tar1.data_tr ),
    --  tar1.data_e=dateadd( day, -36161,  tar1.data_e ),
    --  tar1.data_r=dateadd( day, -36161,  tar1.data_r );
    --update tar1 set tar1.data_e=null where tar1.data_e<cast('01/01/1950' as date);
    --commit;

  finally
    ibec_CloseConnection(DB);
  end;
end