Grafica simple...no he podido

[D.Fernandez]

Amigos:
Tengo 12 meses (enero a Dic.) y 12 datos numéricos sacados de una base de datos.
La BD consta de 13 campos, 1 es el año y los otros doce representan al mes y contienen números.
Esto es lo que pretendo mostrar, pero no he podido.
Si me muestran algún código, sería muy bueno.

Gracias, saludos

Ruben Dario Fernandez

[armando.lagunas]

un ejemplo como se define

Code: Select all  Expand view  RUN

...
...
                  REDEFINE GRAPH oGraph ID 20 OF oPag[2]:aDialogs[1] TYPE  1 DEFAULT

                           oGraph:AddSerie( {0} ,  "Trad "+STR( YEAR(oApp:dFecEnd)   ,4), nRGB(159,255,159) )
                           oGraph:AddSerie( {0} ,  "Org. "+STR( YEAR(oApp:dFecEnd)   ,4), nRGB(255,127, 39) )
                           oGraph:AddSerie( {0} ,  "Año " +STR((YEAR(oApp:dFecEnd)-1),4), nRGB(130,192,255) )
                           oGraph:SetYVals( {"---"} )
                           oGraph:cTitle             := "RECEPCION GENERAL PLANTA"
                           oGraph:cTitY              := "ESPECIES"
                           oGraph:cTitX              := "TONELADAS"
                           oGraph:cPicture           := "@E 99,999.9"
...
...
 

ejemplo como llenar los datos recorriendo una tabla

Code: Select all  Expand view  RUN

...
...
   oGrapp:aData         :=  {}
   oGrapp:aSeries       := {}
   oGrapp:nType         :=   1   //  Barras
   aKil                       := {}
   aDat                     :=  {}

   DO WHILE !EOF()
      AADD( aKil, PA22->TOTA / 1000 )
      AADD( aDat, "." )
      SKIP
   ENDDO
   oGrapp:AddSerie( ASORT( aKil ,,, { |x,y|  x > y }  ) ,   "Ranking ", nRGB(127,128,130))
   oGrapp:SetYVals(  aDat  )
   oGrapp:Refresh()
...
...
 

ejemplo de resultado



hecha un vistazo en este link : http://forums.fivetechsupport.com/viewtopic.php?f=6&t=32275


Saludos

[D.Fernandez]

Impresionante Armando. Pruebo y aviso. La verdad que esta espectacular.

Gracias.
Saludos.
Ruben Dario Fernandez