Como le hago para que FoxCharts me grafique esto...?

[Julio Cesar Vente Ruiz]

Cordial saludo, acudo a ustedes comunidad para que me ayuden por favor, necesito poder graficar la tabla que esta en la imagen y no tengo idea que parametros son los que debo configurar en FoxCharts para que lo haga de forma correcta,   si debo estructurar los datos de dorma diferente.

De antemano gracias..

--


Julio Cesar Vente Ruiz

[Marcelo Barberis]

Estimado amigo te paso esto, lo puedes hacer en el evento init, donde primero debes crear el cursor primero, o si tienes la tabla debes cargarla primero antes de cargar las propiedades para la creacion del grafico.
Debes insertar el objeto de foxchart, esto del init es si el grafico es cuando se abre el formulario, ahora si tienes un boton que ejecuta el grafico, create todo esto en un metodo de formulario y despues lo llamas, yo te aconsejo que tengas un metodo que definas la creacion del cursor o abrir la tabla y otro donde crees el grafico.

With Thisform.PageFrame1.Page4.Foxcharts1 As FoxCharts Of "FoxCharts.vcx"

    * Numeric, Type of brush used to fill the chart: ***1 = Solid Colors; 2 = Gradient Colors; 3 = Monochrome Hatch brush
    .BrushType = 2
    .GradientLevel = -5
    .GradientPosition = 0

    * Numeric, type of chart: ***1 = Pie ; 2 = Doughnut ; 3 = Unspec ; 4 = Point ; 5 = Line ;  6 = Area ; 7 = Simple Bar ; 8 = Multiple Bars ; 9 = Stacked Bars; 10 = Stacked Area; 11 = Bars in 3D; 12 = Horiz Bars; 13 = Horiz Multi-Bars; 14 = Horiz Stacked Ba
    .ChartType = 2 && tipo de grafico, si deseas otro fijate en la tablita de arriba tenes los numeros para los graficos

    * Numeric, the type of colors: 0 = Basic Colors   1 = Custom (default)   2 = Random   3 = Scale of Gradients
    .ColorType = 9
   
    .Depth = 35

    * Indicate how many columns with data will be used
    * Four data series
    .ChartsCount = 1 && Aqui cuantas columnas con valores piensas utilizar "3"

    * The alias of the cursor or table containing the chart data
    .SourceAlias = "informacion" && Aqui pones el nombre de tu tabla o tu cursor
    .FieldAxis2 =  'meses' && aqui la columna con los nombre de los registros "Detalle"
    .FieldLegend = 'meses' && Nombre de la Leyenda "Detalle"
*    .FieldDetachSlice =

    * .Fields is a collection, one element for each column of data && defines las columnas de valores como pusiste 3 debes repetir 3 veces los mismo
    With .Fields(1)
        .FieldValue = "_201001"
        .Legend     = "Enero 2010"
    Endwith

    * Specify the chart type and chart and axis captions.
    .TITLE.CAPTION         = 'Grafico de Movimientos' && titulo del grafico es el principal
    .SUBTITLE.CAPTION      = prodx && secundario
    .XAxis.CAPTION         = 'Meses Procesados'
    .YAxis.CAPTION         = 'Cantidad de Movimientos'
    .AxisLegend2.ROTATION = -45
    .AxisLegend2.ALIGNMENT = 1 && Right
    .ScaleLegend.FORMAT    = '@$ 9,999,999.99'

    .ShapeLegend.ForeColor = RGB(255,255,255)
    .PieEnhancedDrawing = .T.
    .PieShowPercent = .T.
    .ShowValuesOnShapes = .T.
    .ShapeLegendExpression = "TRANSFORM(This.CurrValue) + CHR(13) + CHR(10) + This.CurrLegend"

    * Create the chart
    .DrawChart()

Endwith

Espero te sirva