ActiveDelphi

[kleberibm]

Bom dia pessoal, estou precisando solucionar um pequeno problema usando o laço While.

Bom pessoal, 1º faço um select na tabela, localizo todos os registros que possue no vampo Devolvido o valor = 1, se sim, preciso jogar todos eles em outra tabela. Porem não está dando certo, o Laço não obedece, por favor, quem poder me ajudarem, ficarei muito grato.

segue o código.

with QrMaterialOrcado do
Begin
close;
sql.clear;
sql.add('Select * from MATERIALEMOBRA');
sql.add('where devolvido = ''1''');
open;
end;

IF QrMaterialOrcado.RecordCount > 0 THEN
BEGIN
QrMaterialOrcado.First;
WHILE QrMaterialOrcado.Eof DO
BEGIN
IF QrMaterialOrcado.FieldByName('Devolvido').AsString = '1' THEN
QrMaterialDevolvido.open;
QrMaterialDevolvido.Insert;
QrMaterialDevolvidoDEVOLVIDO_CODIGO.Value := QrObraDevolvidaDEVOLUCAO_CODIGO.Value;
QrMaterialDevolvidoDEVOLVIDO_MOVIMENTO.Value := QrObraOrcadasCODIGO.Value;
QrMaterialDevolvidoDEVOLVIDO_DATA_ORCADO.Value := QrObraOrcadasDATA.Value;
QrMaterialDevolvidoDEVOLVIDO_DATA_DEVOLUCAO.Value := DATE;
QrMaterialDevolvidoDEVOLVIDO_CODMATERIAL.Value := QrMaterialOrcadoCODMATERIAL.Value;
QrMaterialDevolvidoDEVULVIDO_MATERIAL.Value := QrMaterialOrcadoMATERIAL.Value;
QrMaterialDevolvidoDEVOLVIDO_QTDADE_ORCADO.Value := QrMaterialOrcadoQTDADE.Value;
QrMaterialDevolvido.Post;
QrMaterialDevolvido.Next;

END;
QrMaterialOrcado.First;
END;


Por favor quem poder me ajudar ficarei grato com qualquer idéia.

[rvercesi]

tenta trocar:

[imex]

Bom dia

Além da observação do rvercesi, verifique os seguintes pontos:

- não é necessário o if para verificar se o campo Devolvido é igual a 1, pois a instrução SQL já faz esse filtro
- é melhor abrir QMaterialDevolvido antes de começar o looping while
- deve ser executado o Next na query QrMaterialOrcado, não na query QrMaterialDevolvido

Espero que seja útil.

_________________
Assinatura: Imoveis a venda em Suzano

[kleberibm]

[kleberibm]