Cross Segmentos - TOTVS Backoffice Linha Protheus - ADVPL - FwChartPie com codeblock

Tempo aproximado para leitura: 00:02:00 min

Dúvida
É possível passar um codeblock ao efetuar duplo clique sobre o gráfico?

Ambiente
Cross Segmentos - Backoffice (Linha Protheus) – ADVPL – A partir da versão 11.80

Solução

Utilize a propriedade Bserieaction , exemplo:

#INCLUDE "PROTHEUS.CH"

User Function chartpie()
Local oChart
Local oDlg
Local nVisual:= 1

DEFINE MSDIALOG oDlg PIXEL FROM 10,0 TO 600,600

oChart := FWChartPie():New()
oChart:Init( oDlg , .T. , .T. )
oChart:SetTitle( "STR0120" + If( nVisual == 1, "STR0115" , "STR0121" ) )
oChart:SetColor( "RANDOM" )
oChart:addSerie( "Votos PT", 50 )
oChart:addSerie( "Votos PMDB", 30 )
oChart:addSerie( "Votos PV", 20 )
oChart:setLegend( CONTROL_ALIGN_LEFT )

oChart:bSerieAction := {||Alert("TESTE")}
oChart:Build()
ochart:saveToPng(1,1,300,340,"c:/01/uimagem.bmp")
Activate MsDialog oDlg Center

Return

Saiba Mais
FwChartPie