procedure TFUpdate.sButton1Click(Sender: TObject);

var AXMLData: TXMLDocument;
    AXML: TStringStream;
    RootNode, ValNode: IXMLNode;
    i, ACurID, ACldID: Integer;
    AName, ACodeNum, ACodeLet: string;
    AValue: Double;
    ADate, CDate, LastDate: TDateTime;
begin
  //1.Проверка существования даты в календаре
  FDataModule.FDQueryRead.Close;
  FDataModule.FDQueryRead.SQL.Text:='select max(CLD_DATE) from CALENDAR';
  FDataModule.FDQueryRead.Open;
  LastDate:=FDataModule.FDQueryRead.FieldByName('MAX').AsDateTime;
  while LastDate<=Date do
  begin
    FDataModule.FDTransactionWrite.StartTransaction;
    try
      FDataModule.FDQueryWrite.Close;
      FDataModule.FDQueryWrite.SQL.Text:='update or insert into CALENDAR (CLD_DATE) values (:CurDate) matching(CLD_DATE)';
      FDataModule.FDQueryWrite.Params.ParamByName('CurDate').AsDate:=LastDate;
      FDataModule.FDQueryWrite.ExecSQL;
      FDataModule.FDTransactionWrite.Commit;
    except
      FDataModule.FDTransactionWrite.Rollback;
    raise;
    end;
    LastDate:=LastDate+1;
  end;
  //2.Загрузка курсов валют с ЦБ
  FDataModule.FDQueryRead.Close;
  FDataModule.FDQueryRead.SQL.Text:='select min(CLD_DATE) from CURRENCY_RATE_VIEW join CURRENCY on CUR_ID=CURRAT_CUR_ID where CUR_INTERNET=TRUE';
  FDataModule.FDQueryRead.Open;
  CDate:=FDataModule.FDQueryRead.FieldByName('MIN').AsDateTime;
  while CDate<=Date do
  begin
    AXML:=TStringStream.Create('', TEncoding.UTF8);
    try
      IdHTTP1.Get(CUR_URL_CBR+DateToStr(CDate), AXML);
      AXMLData:=TXMLDocument.Create(Application);
      try
        AXMLData.LoadFromStream(AXML);
        RootNode:=nil;
        RootNode:=AXMLData.ChildNodes.FindNode('ValCurs');
        if Assigned(RootNode) then
        begin
          ADate:=StrToDate(RootNode.Attributes['Date']);
          if ADate<>CDate then ADate:=CDate;
          for i := 0 to Pred(RootNode.ChildNodes.Count) do
          begin
            ValNode:=RootNode.ChildNodes.Get(i);
            AName:=ValNode.ChildValues['Name'];
            ACodeNum:=ValNode.ChildValues['NumCode'];
            ACodeLet:=ValNode.ChildValues['CharCode'];
            AValue:=ValNode.ChildValues['Value'];
            FDataModule.FDQueryRead.SQL.Text:='select CLD_ID from CALENDAR where CLD_DATE=:CurDate';
            FDataModule.FDQueryRead.Params.ParamByName('CurDate').AsDate:=ADate;
            FDataModule.FDQueryRead.Open;
            ACldID:=FDataModule.FDQueryRead.FieldByName('CLD_ID').AsInteger;
            FDataModule.FDQueryRead.Close;
            FDataModule.FDQueryRead.SQL.Text:='select CUR_ID from CURRENCY where CUR_CODE_LET=:CodeLet and CUR_INTERNET=TRUE';
            FDataModule.FDQueryRead.Params.ParamByName('CodeLet').AsString:=ACodeLet;
            FDataModule.FDQueryRead.Open;
            ACurID:=FDataModule.FDQueryRead.FieldByName('CUR_ID').AsInteger;
            FDataModule.FDQueryRead.Close;
            if ACurID<>0 then
            begin
              FDataModule.FDTransactionWrite.StartTransaction;
              try
                FDataModule.FDQueryWrite.Close;
                FDataModule.FDQueryWrite.SQL.Text:='update or insert into CURRENCY_RATE (CURRAT_CUR_ID, CURRAT_CLD_ID, CURRAT_RATE) values (:CurID, :CurDate, :CurRate) matching(CURRAT_CUR_ID, CURRAT_CLD_ID)';
                FDataModule.FDQueryWrite.Params.ParamByName('CurID').AsInteger:=ACurID;
                FDataModule.FDQueryWrite.Params.ParamByName('CurDate').AsInteger:=ACldID;
                FDataModule.FDQueryWrite.Params.ParamByName('CurRate').AsFloat:=AValue;
                FDataModule.FDQueryWrite.ExecSQL;
                FDataModule.FDTransactionWrite.Commit;
              except
                FDataModule.FDTransactionWrite.Rollback;
              raise;
              end;
            end;
          end;
        end;
      finally
        FreeAndNil(AXMLData)
      end;
    finally
      FreeAndNil(AXML)
    end;
    CDate:=CDate+1;
  end;
end;