Fórum Vai para o próximo registro sem dar NEXT...é possivel?? #43370

Colegas,

Estou trabalhando com DELPHI7/IB6/DBX/CLIENTDATASET(CDS).

Mas está acontecendo uma coisa inesperada em meu programa. Trabalho com dois CDS´s.

Acontece que numa rotina de While, o registro do 2.o CDS pula para o proximo sem a instrução NEXT.

Isto é possível ?? eu não tenho relacionamento de índices.

Como o registro pode pular para o próximo sem NEXT. Eu usei o DEBUG várias vezes e verifiquei que isso ocorre.

Alguem já viu isso ??

Sou novato no Interbase. Eu trabalhava com PARADOX.

Obrigado,

Airton

PS: Abaixo está a rotina onde o evento ocorre. O registro do CDSProd pula sem que eu passe pela instrução de NEXT. Eu percebi que, quando o registro do 2.o CDS (MovEst) pula, porque eu dei NEXT, o registro do 1.o CDS pula automáticamente. E isto não poderia acontecer.

// calcula preço medio de compra - ENTRADA
dm.CDSProd.First;
while dm.CDSProd.eof = false do // while Prod
begin
dm.CDSMovEst.FindKey([dm.CDSProdCODIGO.AsString]);
if dm.CDSProdCODIGO.AsString <> dm.CDSMovEstCODIGOPROD.AsString then // nao tem movimento
begin
progressbar1.position:=progressbar1.Position + 1;
dm.CDSProd.Next;
end else // achou movimento
begin
while (dm.CDSProdCODIGO.AsString = dm.CDSMovEstCODIGOPROD.AsString) and
(dm.CDSMovEst.eof = false) do // while MovEst
begin
if (dm.CDSMovEstTIPOOPERACAO.AsString = ´ENTRADA´) and
(dm.CDSMovEstPRECOUNIT.ascurrency <> 0) then
begin
wValor := wValor + (dm.CDSMovEstQtdeUM.asfloat * dm.CDSMovEstPRECOUNIT.asfloat);
wQtde := wQtde + dm.CDSMovEstQtdeUM.asfloat;
end;
dm.CDSMovEst.Next;
end; // fim do while MovEst

if wQtde <> 0 then
begin
dm.CDSProd.Edit;
dm.CDSProdPRMEDCOMPRA.ascurrency := wValor / wQtde;
dm.CDSProd.Post;
dm.cdsprod.applyupdates(-1);
end else
begin
dm.CDSProd.Edit;
dm.CDSProdPRMEDCOMPRA.ascurrency := 0;
dm.CDSProd.Post;
dm.cdsprod.applyupdates(-1);
end;
progressbar1.position:=progressbar1.Position + 1;
dm.CDSProd.Next;
wValor := 0;
wQtde := 0;
end;
end; // fim do while Prod