Galera como eu consigo gerar um gráfico através de uma consulta SQL, o gráfico abaixo é o que estou tentando gerar, mais ainda não consegui inserir os campos no gráfico, que é de Dt.Entrada e Vlr.Unt.total
User Function grafico_teste(aSerie)
Local oChart Local oDlg Local aRand := {} Local nItem := 0
DEFINE MSDIALOG oDlg PIXEL FROM 0,0 TO 400,600 oChart := FWChartBar():New() oChart:Init(oDlg, .T., .T. ) oChart:SetTitle("Média Produto", CONTROL_ALIGN_CENTER)
for nItem:=1 to len(aSerie) oChart:addSerie("Jan",123) NEXT nItem
oChart:setLegend( CONTROL_ALIGN_LEFT ) oChart:cPicture := "@E 999,999,999,999,999.99" aAdd(aRand, {"084,120,164", "007,013,017"}) oChart:oFWChartColor:aRandom := aRand oChart:oFWChartColor:SetColor("Random") oChart:Build() ACTIVATE MSDIALOG oDlg CENTERED
return
Atenção: Esta publicação foi transferida automaticamente do fórum antigo, mas os anexos não foram incluídos.
Atenção: Esta publicação foi transferida automaticamente do fórum antigo, mas os anexos não foram incluídos.