Fórum Automatizar #475115
03/04/2014
0
Para os moderadores de plantão, acredito que será bem fácil...
Tenho uma certa quantidade de relatórios que possuem cabeçalho com os dados da empresa. No momento, utilizo o QuickReport para gera-los. Na Band rbPageHeader existem sete QRabels, que representam respectivamente: EMPRESA, ENDEREÇO, BAIRRO, CIDADE, UF, TELEFONE e CNPJ e, no evento onBeforePrint eu coloquei o código:
LB_Empresa.Caption := dm_.ZQryDadosClienteempresa.text;
LB_Endereco.Caption := dm_.ZQryDadosClienteendereco.text;
LB_Compto.Caption := dm_.ZQryDadosClientebairro.text;
LB_CIDADE.Caption := dm_.ZQryDadosClientecidade.text;
LB_TELEFONES.Caption := dm_.ZQryDadosClienteuf.text;
LB_CNPJ.Caption := dm_.ZQryDadosClientetelefone.text;
LB_OPERADOR.Caption := dm_.ZQryDadosClientecnpj.text;
Funciona perfeitamente, porém, sei que dá pra deixar isso mais prático, atribuindo os dados que estão nas tabelas para variáveis globais... mas não sei como fazer isso.
Conto com a ajuda de todos...
Obrigado!
Tenho uma certa quantidade de relatórios que possuem cabeçalho com os dados da empresa. No momento, utilizo o QuickReport para gera-los. Na Band rbPageHeader existem sete QRabels, que representam respectivamente: EMPRESA, ENDEREÇO, BAIRRO, CIDADE, UF, TELEFONE e CNPJ e, no evento onBeforePrint eu coloquei o código:
LB_Empresa.Caption := dm_.ZQryDadosClienteempresa.text;
LB_Endereco.Caption := dm_.ZQryDadosClienteendereco.text;
LB_Compto.Caption := dm_.ZQryDadosClientebairro.text;
LB_CIDADE.Caption := dm_.ZQryDadosClientecidade.text;
LB_TELEFONES.Caption := dm_.ZQryDadosClienteuf.text;
LB_CNPJ.Caption := dm_.ZQryDadosClientetelefone.text;
LB_OPERADOR.Caption := dm_.ZQryDadosClientecnpj.text;
Funciona perfeitamente, porém, sei que dá pra deixar isso mais prático, atribuindo os dados que estão nas tabelas para variáveis globais... mas não sei como fazer isso.
Conto com a ajuda de todos...
Obrigado!
Aloisio Santos
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)