ActiveDelphi

[fabio.cgms]

boa tarde colegas,
eu fiquei um tempo sem trabalhar com programação agora retornei.
estou criando um relatório mestre-detalhe com query, porque existe a necessidade de passagem de parametros pelo usuario, tanto da query mestre com da query detalhe.

para relatórios usando table não tenho probleamas mas quando o assunto é query e passagem de parametros opcionais pelo usuario a coisa ja complica.

1) a chamada do relatorio:

DMRelatorio.QRLocacao.close;
DMRelatorio.QRLocacao.ParamByName('PCodImo').value := LookupImovel.keyvalue;
DMRelatorio.QRLocacao.ParamByName('PLocate').value := LookupLocat.keyvalue;
DMRelatorio.QRLocacao.open;
//
DMRelatorio.QRLocacaoLan.close;
DMRelatorio.QRLocacaoLan.ParamByName('PPagto1').value := strtodate(EditPagData1.text);
DMRelatorio.QRLocacaoLan.ParamByName('PPagto2').value := strtodate(EditPagData1.text);
DMRelatorio.QRLocacaoLan.open;
//
Application.CreateForm(TFRelLoc,FRelLoc);
FRelLoc.QuickLoc.preview;
FRelLoc.free;

2) quick rep vinculado a query mestre
QRsubDetail vinculado a prop 'master' quickrep1
campos vinculados corretamente

[fabio.cgms]

mais informações:

propriedade sql da query mestre

SELECT * FROM LOCACAO LOC,
IMOVEL IMO, CLIENTE CLI
WHERE LOC.CODLOCAT = CLI.CODCLI
AND LOC.CODIMO = IMO.CODIMOVEL
OR LOC.CODIMO = :PCODIMO
OR LOC.CODLOCAT = :PLOCATE
ORDER BY LOC.REGLOC

propriedade sql da query detalhe

SELECT * FROM LOCACAO LOC, LOCACAOLAN LAN
WHERE
LOC.REGLOC = LAN.NREG
and (LAN.DTPAGTO >= :PPAGTO1 AND LAN.DTPAGTO <= :PPAGTO2)

estou programando primeiro de uma forma simplificada de parametros, mas vou precisar informar outros paremetros depois