Este artigo fornece um exemplo funcional de como utilizar o método PrintGraphic com a classe TREPORT em Protheus. A classe TREPORT é uma ferramenta poderosa para gerar relatórios personalizados em Protheus, e o método PrintGraphic permite imprimir esses relatórios em formato gráfico.
Introdução ao Método PrintGraphic
O método PrintGraphic é uma função da classe TREPORT que permite imprimir relatórios em formato gráfico. Isso é útil quando você precisa visualizar dados em um formato mais amigável e fácil de entender.
Exemplo de Implementação
Abaixo, você encontrará um exemplo de como implementar o método PrintGraphic com a classe TREPORT:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 |
#INCLUDE "PROTHEUS.CH" user Function PRINTGRAPH() Local oReport as Object Local oSection as Object //Classe TREPORT oReport := TReport():New('EXEMPLO', "Clientes por UF", /*cPerg*/, {|oReport| ReportPrint(oReport, oSection)}) //Seção 1 oSection := TRSection():New(oReport, 'Clientes') //Definição das colunas de impressão da seção 1 TRCell():New(oSection, "A1_COD", "TRB", "Código", /*Picture*/, /*Tamanho*/, /*lPixel*/, /*{|| code-block de impressao }*/) TRCell():New(oSection, "A1_NOME", "TRB", "Razão", /*Picture*/, /*Tamanho*/, /*lPixel*/, /*{|| code-block de impressao }*/) TRCell():New(oSection, "A1_EST", "TRB", "UF", /*Picture*/, /*Tamanho*/, /*lPixel*/, /*{|| code-block de impressao }*) //Definição da collection oColl := TRCollection():New("TOTAL UF", "COUNT", /*oBreak*/, "Total POR UF", /*cPicture*/, /*uFormula*/, oSection:Cell("A1_COD"), /*.lEndSection.*/, .F., /*.lEndReport.*/, .T., /*oParent*/, oSection, /*bCondition*/, /*uContent*/, oSection:Cell("A1_EST")) oReport:PrintGraphic() oReport:PrintDialog() Return Static Function ReportPrint(oReport, oSection) #IFDEF TOP Local cAlias := "TRB" BEGIN REPORT QUERY oSection BeginSql alias cAlias SELECT A1_COD, A1_NOME, A1_EST FROM %table:SA1% ORDER BY A1_FILIAL, A1_EST EndSql END REPORT QUERY oSection oSection:aCollection[1]:SetGraphic(4, "UF") oSection:PrintGraphic() oSection:Print() #ENDIF return |
Resultado de Impressão
O resultado de impressão será um relatório em formato gráfico, com as colunas definidas na seção 1 e o gráfico correspondente.
Referências adicionais
Para mais informações sobre a classe TREPORT e o método PrintGraphic, você pode consultar as seguintes referências:
* Classe TReport
* Método TRCollection
Esperamos que este exemplo tenha sido útil para você. Se tiver alguma dúvida ou precisar de mais ajuda, não hesite em entrar em contato conosco.
Fernando Bueno
Atuando desde 2005 no mercado de tecnologia, desenvolvendo e implantando e sistemas gerenciais, sistemas e sites web e ecommerce.
Siga-me no Linked In
