Close Database All
CREATE CURSOR chartdata (desc c(25),unit n(8),total n(8),percent n(8,4))
INSERT INTO chartdata (desc,unit,total,percent) VALUES ("Maria Anders",15637,53450,29.2554)
INSERT INTO chartdata (desc,unit,total,percent) VALUES ("Ana Trujillo",11361,53450,21.2554)
INSERT INTO chartdata (desc,unit,total,percent) VALUES ("Elizabeth Lincoln",9292,53450,17.3845)
INSERT INTO chartdata (desc,unit,total,percent) VALUES ("Aria Cruz",9157,53450,17.1319)
INSERT INTO chartdata (desc,unit,total,percent) VALUES ("Pedro Afonso",8003,53450,14.9729)
Select chartdata
GO TOP
Dimension laLabels(Reccount("chartdata"))
Dimension laData(Reccount("chartdata"))
Scan
laLabels(Recno()) = Transform(chartdata.percent,"##.##")+"% "+chartdata.Desc
laData(Recno()) = chartdata.percent
Endscan
loChartSpace = Createobject("OWC11.ChartSpace")
oConst = loChartSpace.Constants
Public loGraph
loGraph = loChartSpace.Charts.Add()
*loGraph.Type = 1
loGraph.Type = 59
loGraph.HasLegend = .T.
loGraph.PlotArea.Interior.Color = "LightYellow"
loChartSpace.HasChartSpaceTitle = .T.
loChartSpace.ChartSpaceTitle.Caption = "PERCENTAGE OF UNITS SALES PER EMPLOYEE"
loChartSpace.ChartSpaceTitle.Font.Bold = .T.
For i=1 To (Reccount("chartdata"))
loGraph.SeriesCollection.Add()
loGraph.SeriesCollection(i-1).Caption = laLabels(i)
Endfor
loGraph.SeriesCollection(0).SetData(oConst.chDimCategories, oConst.chDataLiteral, @laLabels)
loGraph.SeriesCollection(0).SetData(oConst.chDimValues, oConst.chDataLiteral, @laData)
lcFile="owcchart.gif"
loChartSpace.ExportPicture(lcFile,"gif",640,430)
Use In chartdata