Olá Roberto, bom dia !!!
Deixa eu entrar nesta pescaria :-)...
No relatório, crie uma procedure recebendo os parâmetros que você
deseja, como abaixo...
procedure tfmRelatorioQuick.SetaImpressao(sEmp, sNomeEmp : string;
cbLoja : boolean; iLoja :
integer; sLoja : string;
cbVen : boolean; iVen :
integer; sVen : string;
cbPer : boolean; dtIni,
dtFim : string);
begin
// Configuração do Relatório
// qrlabel de cabeçalho do relatório
lbCab.Caption := 'Empresa : ' + sNomeEmp + ' - Loja : ' + sLoja;
// Configuração da Query Principal
qryRel.ParamByName('Emp').AsString := sEmp;
qryRel.ParamByName('Loja').AsInteger := iLoja;
if cbVen then
qryRel.SQL.Strings[5] := ' and V.CodFunc = ' + IntToStr(iVen)
else
qryRel.SQL.Strings[5] := '';
if cbPer then
qryRel.SQL.Strings[4] := 'and V.DtVenda BetWeen ' +
Asp(dtIni) + ' and ' +
Asp(dtFim)
else
qryRel.SQL.Strings[4] := '';
qryRel.Open;
end;
No form de seleção, passe os parâmetros para o formulário do
quickreport, exemplo:
fmRelatorioQuick.SetaImpressao(Empresa.KeyValue, Empresa.Text,
cbLoja.Checked, iLoja, lkLoja.Text,
cbVend.Checked, iVend, lkVend.Text,
cbProd.Checked, edProd.Text, lkProd.Text,
cbPeriodo.Checked, meDtI.Text,
meDtF.Text);
fmRelatorioQuick.QuickRep1.Preview;
Um abraço e boa sorte,
Carlos
--- Em delphi-br@yahoogrupos.com.br, "Roberto Wazen" <[EMAIL PROTECTED]>
escreveu
> Não quero um peixe e sim aprender a pescar!
> Colegas estou sem base teórica para passar parâmetros de um form de
seleção, para a Query do form de impressão com o QuickReport.
> Favor indicar algum lugar (LINK), apostila, texto, ou mesmo algum
exemplo que se possa ficar conhecendo o assunto.
> No google, achei muito pouca coisa.
> Obrigado desde já.
>
> [EMAIL PROTECTED] (RJ)
>
>
>
> [As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
