Como gerar graficos advpl pela consulta sql?

0

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

compartilhar
Anexos
  • grafico.txt
    1. Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
    2. Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
    3. Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
    4. Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
    5. Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

    0 resposta

    Não é a resposta que estava procurando? Procure outras perguntas com as tags advpl ou faça a sua própria pergunta.