Fórum clientdataset.eof dentro do while não funciona corretamente #535115

Boa Noite amigos tenho o seguinte código onde tenho um laço de repetição dentro do outro e depois que passa a primeira vez a propriedade .eof do clientdataset fica sempre true, não entrando assim no outro laço de repetição.

for i:=01 to 05 do
begin
data:=(dia + '/' + mes + '/' + ano);
dsfluxo.DataSet.Insert;
frmdados.cdsFluxo.Open;
frmdados.cdsFluxo.FieldByName('fluxo_dia').AsDateTime:=strtodate(data);
frmdados.sqlPesquisas.Close;
frmdados.cdsPesquisas.Active:=false;
frmdados.cdsPesquisas.Close;
frmdados.sqlPesquisas.Sql.Clear;
frmdados.sqlPesquisas.Sql.Text:='SELECT * FROM CONTASARECEBER WHERE CTRECEB_DATAVENCIMENTO='''+data+'''';
frmdados.sqlPesquisas.Open;
frmdados.cdsPesquisas.Active:=true;
frmdados.cdsPesquisas.Open;
somareceber:=0;
while not frmdados.cdsPesquisas.Eof do
begin
Somareceber:= Somareceber + frmdados.cdsPesquisas.FieldByName('CTRECEB_VALOR').Value;
frmdados.cdsPesquisas.Next;
end;
frmdados.cdsFluxo.FieldByName('fluxo_receber').AsFloat:=somareceber;
frmdados.cdsFluxo.ApplyUpdates(0);
dia:=inttostr(i+01);

Quando o for vale 1 passa blz, quando muda para 2 ele não entra no laço do while porque o clientdataset.eof está true.
Alguém pode me ajudar?

Obrigado!