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.
