query loop infinito - L�gica errada?

Question

Este meu loop que est� em vermelho, fica em um loop infinito, qdo chega ao final da query o programa trava.A l�gica est� errada? Como posso fazer um loop que ele fa�a alguma coisa at� chegar ao final ...

Rodrigo Ferreira · Answer

Ei coloca nao sei se isto ira funcionar mas, se vc visualizar bem seu codigo vai perceber que eu fiz algumas modificacoes entao copie e execute.

qryVeiculo.First;
while not (qryVeiculo.Eof) do
begin
HoraTH :=0 ; MinTH:=0; MSegTH:=0;
tblTempVeiculo.Insert;
tblTempVeiculoTMCARRO.AsString := qryVeiculoSSCOD.AsString;
tblTempVeiculoTMDATA.AsDateTime := qryVeiculoCSDATA.AsDateTime;
tblTempVeiculoTMTOTALHORA.AsString := qryVeiculoCSHORAS.AsString;
tblTempVeiculo.Post;

if qryVeiculo.FieldByName(�SSCOD�).Value = tblTempVeiculo.FieldByName(�TMCARRO�).Value then
begin
tblTempVeiculo.Edit;
auxiliar := tblTempVeiculoTMTOTALHORA.AsString;
SomaHor := StrToTime(auxiliar) + StrToTime(qryVeiculoCSHORAS.AsString);
tblTempVeiculoTMTOTALHORA.AsString := TimeToStr(SomaHor);
tblTempVeiculo.Post;
end;

qryVeiculo.Next;
end;
:wink:

Schumacher · Answer

D�bora,

Reparei que voc� esta utilizando um loop dentro do outro utilizando a mesma Query. Isso trava o seu sistema, voc� precisa encerrar um loop antes de come�ar o outro.

Exemplo com seu c�digo arrumado:

while not (qryVeiculo.Eof) do begin // copia os registros pra POTMV
HoraTH :=0 ; MinTH:=0; MSegTH:=0;
tblTempVeiculo.Insert;
tblTempVeiculoTMCARRO.AsString := qryVeiculoSSCOD.AsString;
tblTempVeiculoTMDATA.AsDateTime := qryVeiculoCSDATA.AsDateTime;
tblTempVeiculoTMTOTALHORA.AsString := qryVeiculoCSHORAS.AsString;
tblTempVeiculo.Post;
qryVeiculo.Next;
[b:ed9a7891b5]end;[/b:ed9a7891b5] // Faltava este END
// Aqui come�a a segunda Query
while qryVeiculo.FieldByName(�SSCOD�).Value = tblTempVeiculo.FieldByName(�TMCARRO�).Value do begin
tblTempVeiculo.Edit;
auxiliar := tblTempVeiculoTMTOTALHORA.AsString;
SomaHor := StrToTime(auxiliar) + StrToTime(qryVeiculoCSHORAS.AsString);
tblTempVeiculoTMTOTALHORA.AsString := TimeToStr(SomaHor);
tblTempVeiculo.Post;
qryVeiculo.Next;
end;

Rodrigo Ferreira · Answer

Uma pequena correcaoqryVeiculo.First; HoraTH :=0 ; MinTH:=0; MSegTH:=0;while not (qryVeiculo.Eof) do begin tblTempVeiculo.Insert; tblTempVeiculoTMCARRO.AsString := qryVeiculoSSCOD.AsString; tblTempVeiculoTMDATA.AsDateTime := qryVeiculoCSDATA.AsDateTime; tblTempVeiculoTMTOTALHORA.AsString := qryVeiculoCSHORAS.AsString; tblTempVeiculo.Post; if qryVeiculo.FieldByName(�SSCOD�).Value = tblTempVeiculo.FieldByName(�TMCARRO�).Value then begin tblTempVeiculo.Edit; auxiliar := tblTempVeiculoTMTOTALHORA.AsString; SomaHor := StrToTime(auxiliar) + StrToTime(qryVeiculoCSHORAS.AsString); tblTempVeiculoTMTOTALHORA.AsString := TimeToStr(SomaHor); tblTempVeiculo.Post; end; qryVeiculo.Next; end;...