CREATE TABLE RJ_NEW (
    CODE    INTEGER,
    FMONTH  INTEGER,
    FYEAR   INTEGER,
    RASH    VARCHAR(15),
    NUMB    BIGINT,
    DAT1    DATE,
    DAT2    DATE,
    SM1     DECIMAL(9,2),
    SM2     DECIMAL(9,2),
    SM3     DECIMAL(9,2),
    SM4     DECIMAL(9,2),
    SM5     DECIMAL(9,2),
    SM6     DECIMAL(9,2),
    SM7     DECIMAL(9,2),
    SM8     DECIMAL(9,2),
    SUMMA   DECIMAL(9,2)
);
CREATE INDEX IDX_RJ_NEW ON RJ_NEW (CODE, NUMB);

Procedure TFMain.LoadFromOLD;
var
  FlIni:TIniFile;
  FlInCount, i, j, c:Integer;
  InPath:String;
begin
  MemoRep.Lines.Add('Початок читання OLD: '+TimeToStr(Time));
  if not fbDBPerelik.Connected then fbDBPerelik.Connected:=True;
  PrBarAll.Position:=0;
  c:=0;
  FileListBox:=TStringList.Create();
  FlIni:=TIniFile.Create(ExtractFileDir(paramstr(0))+'\Options.ini');
  FlInCount:=FlIni.ReadInteger('PERELIK_OLD','count',0);
  if FlInCount=0 then Exit;
  fbScript.Script.Clear;
  fbScript.Script.Add('delete from rj_old;');
  fbScript.Script.Add('commit;');
  fbScript.ExecuteScript();
  fbQOld.Transaction.StartTransaction;
  for i:=1 to FlInCount do
    begin {FlInCount}
      InPath:=FlIni.ReadString('PERELIK_OLD','FilePath'+inttostr(i),'');
      if copy(InPath,length(InPath),1)='\'
        then InPath:=copy(InPath,1,length(InPath)-1);
      GetAllFiles(InPath+'\',FileListBox);
      TInDBF.FilePath:=InPath;
      PrBarAll.Max:=FileListBox.Count-1;
      for j:=0 to FileListBox.Count-1 do
        begin {FileListBox.Count}
          PrBarAll.Position:=PrBarAll.Position+1;
          if UpperCase(ExtractFileExt(FileListBox.Strings[j]))=UpperCase('.dbf')
            then
              begin {Check extention}
                TInDBF.TableName:=FileListBox.Strings[j];
                TInDBF.Open;
                PrBarFiles.Position:=0;
                PrBarFiles.Max:=TInDBF.RecordCount;
                while not TInDBF.Eof do
                  begin {while not TInDBF.Eof do}
                    PrBarFiles.Position:=PrBarFiles.Position+1;
                    Application.ProcessMessages;
                    fbQOld.ParamByName('code').Value:=
                                 (StrToInt(copy(TInDBF.TableName,1,4)));
                    fbQOld.ParamByName('fmonth').Value:=
                                 (StrToInt(copy(TInDBF.TableName,5,2)));
                    fbQOld.ParamByName('fyear').Value:=
                                 (StrToInt(copy(TInDBF.TableName,7,2)));
                    fbQOld.ParamByName('rash').Value:=
                                            TInDBF.FieldByName('RASH').AsString;
                    fbQOld.ParamByName('numb').Value:=
                                            TInDBF.FieldByName('NUMB').AsInteger;
                    fbQOld.ParamByName('dat1').Value:=
                               DateToStr(TInDBF.FieldByName('DAT1').AsDateTime);
                    fbQOld.ParamByName('dat2').Value:=
                               DateToStr(TInDBF.FieldByName('DAT2').AsDateTime);

                    if (length(TInDBF.FieldByName('SM1').AsString)=0)
                       or(TInDBF.FieldByName('SM1').AsString=' ')
                      then fbQOld.ParamByName('sm1').Value:=0
                      else fbQOld.ParamByName('sm1').Value:=
                                  (TInDBF.FieldByName('SM1').AsFloat);

                    if (length(TInDBF.FieldByName('SM2').AsString)=0)
                       or(TInDBF.FieldByName('SM2').AsString=' ')
                      then fbQOld.ParamByName('sm2').Value:=0
                      else fbQOld.ParamByName('sm2').Value:=
                                 (TInDBF.FieldByName('SM2').AsFloat);

                    if (length(TInDBF.FieldByName('SM3').AsString)=0)
                       or(TInDBF.FieldByName('SM3').AsString=' ')
                      then fbQOld.ParamByName('sm3').Value:=0
                      else fbQOld.ParamByName('sm3').Value:=
                                            (TInDBF.FieldByName('SM3').AsFloat);

                    if (length(TInDBF.FieldByName('SM4').AsString)=0)
                       or(TInDBF.FieldByName('SM4').AsString=' ')
                      then fbQOld.ParamByName('sm4').Value:=0
                      else fbQOld.ParamByName('sm4').Value:=
                                           (TInDBF.FieldByName('SM4').AsFloat);

                    if (length(TInDBF.FieldByName('SM5').AsString)=0)
                       or(TInDBF.FieldByName('SM5').AsString=' ')
                      then fbQOld.ParamByName('sm5').Value:=0
                      else fbQOld.ParamByName('sm5').Value:=
                                            (TInDBF.FieldByName('SM5').AsFloat);

                    if (length(TInDBF.FieldByName('SM6').AsString)=0)
                       or(TInDBF.FieldByName('SM6').AsString=' ')
                      then fbQOld.ParamByName('sm6').Value:=0
                      else fbQOld.ParamByName('sm6').Value:=
                                            (TInDBF.FieldByName('SM6').AsFloat);

                    if (length(TInDBF.FieldByName('SM7').AsString)=0)
                       or(TInDBF.FieldByName('SM7').AsString=' ')
                      then fbQOld.ParamByName('sm7').Value:=0
                      else fbQOld.ParamByName('sm7').Value:=
                                        (TInDBF.FieldByName('SM7').AsFloat);

                    if (length(TInDBF.FieldByName('SM8').AsString)=0)
                       or(TInDBF.FieldByName('SM8').AsString=' ')
                      then fbQOld.ParamByName('sm8').Value:=0
                      else fbQOld.ParamByName('sm8').Value:=
                                           (TInDBF.FieldByName('SM8').AsFloat);

                    if (length(TInDBF.FieldByName('SUMMA').AsString)=0)
                       or(TInDBF.FieldByName('SUMMA').AsString=' ')
                      then fbQOld.ParamByName('summa').Value:=0
                      else fbQOld.ParamByName('summa').Value:=
                                     (TInDBF.FieldByName('SUMMA').AsFloat);
                    fbQOld.ExecQuery;
                    c:=c+1;
                    if c mod 50000=0 then fbQOld.Transaction.CommitRetaining;
                    TInDBF.Next;
                  end; {while not TInDBF.Eof do}
                 TInDBF.Close;
              end; {Check extention}
        end;  {filelistbox.count}
    end; {filecount}
  fbQOld.Transaction.Commit;
  fbQOld.Close;
  FlIni.Free;
  FileListBox.Free;
  if fbDBPerelik.Connected then fbDBPerelik.Connected:=False;
  MemoRep.Lines.Add('Завершили читання OLD: '+TimeToStr(Time));
  MemoRep.Lines.Add('Кількість записів OLD: '+IntToStr(c));
  MemoRep.Lines.Add('');
end;