Fórum QRGroup Expression em modo de execução no QuickReport #332353
30/10/2006
0
Bom dia Colegas do forum!!
Preciso que meu relatório seja agrupado(faça quebras) por Data_Emissao, Data_Vencimento ou Data_Pagamento.
Esses campos vem como parâmetro de um filtro criado com RadioButton.
Então se o usuário informa um período de datas e seleciona o RadioDt_Emissao:
Preciso passar esse valor(o campo Data_Emissao) para a propriedade Expression do QRGrupo para que meu relatorio faça quebras por data de emissão.
O mesmo qdo o usuário selecionar o RadioDt_Vencimento ou o RadioDt_Pagamento.
Essa propriedade recebe uma String, já tentei isso no evento BeforePrint do QRGroup:
if(frmrelar2.rbEmissao.Checked = True)then
QRGroup2.Expression := DateToStr(Query1Dt_Emissao.Value)
else if(frmrelar2.rbVencto.Checked = True)then
QRGroup2.Expression := DateToStr(Query1Dt_Vencimento.Value)
else if(frmrelar2.rbPagto.Checked = True)then
QRGroup2.Expression := DateToStr(Query1Dt_Pagamento.Value);
end;
...mas ele não faz a quebra
Agradeço a atençâo de todos
Denilson
Preciso que meu relatório seja agrupado(faça quebras) por Data_Emissao, Data_Vencimento ou Data_Pagamento.
Esses campos vem como parâmetro de um filtro criado com RadioButton.
Então se o usuário informa um período de datas e seleciona o RadioDt_Emissao:
Preciso passar esse valor(o campo Data_Emissao) para a propriedade Expression do QRGrupo para que meu relatorio faça quebras por data de emissão.
O mesmo qdo o usuário selecionar o RadioDt_Vencimento ou o RadioDt_Pagamento.
Essa propriedade recebe uma String, já tentei isso no evento BeforePrint do QRGroup:
if(frmrelar2.rbEmissao.Checked = True)then
QRGroup2.Expression := DateToStr(Query1Dt_Emissao.Value)
else if(frmrelar2.rbVencto.Checked = True)then
QRGroup2.Expression := DateToStr(Query1Dt_Vencimento.Value)
else if(frmrelar2.rbPagto.Checked = True)then
QRGroup2.Expression := DateToStr(Query1Dt_Pagamento.Value);
end;
...mas ele não faz a quebra
Agradeço a atençâo de todos
Denilson
Decandido21
Curtir tópico
+ 0
Responder
Posts
30/10/2006
Decandido21
Bem eu consegui resolver na gambi aqui.
Coloquei mas 2 QRGroup no relatorio e limpei a propriedade FooterBand de ambos, também configurei a propriedade expression de cada um para:
QRGroup1.Expression cofigurado para Query1.Dt_Emissao
QRGroup2.Expression cofigurado para Query1.Dt_Vencimento
QRGroup3.Expression cofigurado para Query1.Dt_Pagamento
Assim consigui representar meus agrupamentos (com quebras) nesse relatório
No evento BeforPrint do Quick eu testei os checked dos RadioButton que vêem como filtro.
if RadioDt_Emissao.Checked = True then
habilito(Enabled = true) do QRGroup1 e False nos outros. alem de passar o QRBand da quebra para a propriedade FooterBand do QRGroup1
O mesmo se repete para os outros RadioButton(s)
Se alguem tiver uma forma mais elegante de manipular essa situação, poste ae
Abraço
Denilson
Coloquei mas 2 QRGroup no relatorio e limpei a propriedade FooterBand de ambos, também configurei a propriedade expression de cada um para:
QRGroup1.Expression cofigurado para Query1.Dt_Emissao
QRGroup2.Expression cofigurado para Query1.Dt_Vencimento
QRGroup3.Expression cofigurado para Query1.Dt_Pagamento
Assim consigui representar meus agrupamentos (com quebras) nesse relatório
No evento BeforPrint do Quick eu testei os checked dos RadioButton que vêem como filtro.
if RadioDt_Emissao.Checked = True then
habilito(Enabled = true) do QRGroup1 e False nos outros. alem de passar o QRBand da quebra para a propriedade FooterBand do QRGroup1
O mesmo se repete para os outros RadioButton(s)
Se alguem tiver uma forma mais elegante de manipular essa situação, poste ae
Abraço
Denilson
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)