Fórum Problema com ClientDataSet em Loop #342821

select BANCO_DES, NUMERO_LOTE_APRES, SEQ_LOTE from PROCESSADOS
order by BANCO_DES,  NUMERO_LOTE_APRES, SEQ_LOTE

function TDMProcessados.RenumeraLotes: Boolean;
var
  iNewLote: integer;
  iSequenciaLote: integer;
  iMenorBanco: integer;
  iOldLote: integer;
begin
  iNewLote := 0;
  iSequenciaLote := 0;
  iNewLote := 401;

  try
    try
      DMPrincipal.conProcessamento.Close;
      cdsRenumeraLotes.Open;
      cdsRenumeraLotes.First;
      iMenorBanco := cdsRenumeraLotes.FieldByName(´BANCO_DES´).AsInteger;
      iOldLote := cdsRenumeraLotes.FieldByName(´NUMERO_LOTE_APRES´).AsInteger;
      while not cdsRenumeraLotes.Eof do
      begin
        if (cdsRenumeraLotes.FieldByName(´BANCO_DES´).AsInteger <> iMenorBanco) or
        (cdsRenumeraLotes.FieldByName(´NUMERO_LOTE_APRES´).AsInteger <> iOldLote) then
        begin
          iNewLote := iNewLote + 1;
          iSequenciaLote := 1;
          iMenorBanco := cdsRenumeraLotes.FieldByName(´BANCO_DES´).AsInteger;
          iOldLote := cdsRenumeraLotes.FieldByName(´NUMERO_LOTE_APRES´).AsInteger;
        end;
        iSequenciaLote := iSequenciaLote + 1;
        cdsRenumeraLotes.Edit;
        cdsRenumeraLotes.FieldByName(´NUMERO_LOTE_APRES´).AsString := FormatFloat(´000´, iNewLote);
        cdsRenumeraLotes.FieldByName(´SEQ_LOTE´).AsString := FormatFloat(´000´, iSequenciaLote);
        cdsRenumeraLotes.Post;
        cdsRenumeraLotes.Next;
      end;
      cdsRenumeraLotes.ApplyUpdates(0);
      Result := True;
    except
      Result := False;
      MessageDlg(´ERRO no metodo: RenumeraLotes´, mtError, [mbOK], 0);
    end;
  finally
    DMPrincipal.conProcessamento.Close;
    cdsRenumeraLotes.Close;
  end;

cdsRenumeraLotes.Next;