Fórum Duvida SQL QuickReport #182762

:?: Com o código abaixo eu pretendo imprimir usando Paradox + Quick Report, os resultados de exames entre o código inicial e código final do exame informados em Edit1 e Edit2 (um por página). Preciso também selecionar o numero do item de exame inicial e final informados em Edit3 e Edit4. Exempo:
Código Inicial: edit1 A edit2
Item Inicial...: edit3 A edit4
O resultado que esta me retornando é o exame posicionado e apenas um item.
Será que alguém pode me ajudar? Agradeço desde já.
Neto
Obrigado

procedure TFrRelResultado.BtnImprimirResultadoClick(Sender: TObject);
begin

// -- Preparação da Query Mestre
QueryMestre.Close;
QueryMestre.Sql.Clear;
QueryMestre.Sql.Add(´Select A.Exe_Caso, A.Exe_DtTst, B.Cli_Nome, B.Cli_Cidade From CadExeB A, CadCli B´);
QueryMestre.Sql.Add(´Where A.Exe_Caso = :CodigoI´);
QueryMestre.Sql.Add(´and A.Exe_Caso <= :CodigoF´);
QueryMestre.ParamByName(´CodigoI´).Value := Edit1.Text ;
QueryMestre.ParamByName(´CodigoF´).Value := Edit2.Text ;

// -- Preparação da Query - Detalhe

QueryDetalhe.Close;
QueryDetalhe.Sql.Clear;
QueryDetalhe.Sql.Add(´Select A.Exe_Caso, A.Item, A.Ani_Cod, A.Ite_B, A.Ite_C, B.Ani_Nome, B.Ani_Reg, B.Ani_Raca, B.Ani_Sexo, C.Exe_Caso From DetExeB A, CadAni B´);
QueryDetalhe.Sql.Add(´Where A.Exe_Caso = :Codigo´) ;
QueryDetalhe.Sql.Add(´and A.Item >= :ItemI´) ;
QueryDetalhe.Sql.Add(´and A.Item <= :ItemF´) ;
QueryDetalhe.ParamByName(´Codigo´).Value := Edit1.Text ;
QueryDetalhe.ParamByName(´ItemI´).Value := StrToInt(Edit3.Text) ;
QueryDetalhe.ParamByName(´ItemF´).Value := StrToInt(Edit4.Text) ;

QueryMestre.Open;
QueryDetalhe.Open;

Application.CreateForm(TFrQrResultado, FrQrResultado);
FrQrResultado.QuickRep1.Preview;
FrQrResultado.Free;

QueryMestre.Close;
QueryMestre.Sql.Clear;

QueryDetalhe.Close;
QueryDetalhe.Sql.Clear;
end;