Fórum While não esta pegando todos os registros ! #263707

Caro programadores,

Estou fazendo uma rotina para baixar uns documentos onde são mostradas no grid vias Query (bde, paradox) . O cliente vai clicando via checkbox só que por algum motivo ele não esta pegando todos os arquivos marcados.

Veja como estou fazendo:

frmbaixa.qryduplicata.First;
while not frmbaixa.qryduplicata.Eof do
begin
if frmbaixa.qryduplicatabaixa.Value = true then
begin
frmbaixa.qryduplicata.Edit;
frmbaixa.qryduplicataDataliq.Value := date;
frmbaixa.qryduplicataValorpag.Value := frmbaixa.qryduplicataValordup.Value;
frmbaixa.qryduplicataLiq.Value := true;
frmbaixa.qryduplicata.Post;
inc(contador);
end;
frmbaixa.qryduplicata.Next;
end;

Se alguém puder me ajudar agradeço


Hugo Fabrício



:arrow: [color=red:5eabbcc9a3]Bloqueado pelo Moderador oTTo.[/color:5eabbcc9a3]