Raporlarda Resim Kullanımı

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

Local oCharter

oCharter=Createobject('charter')

Select myReportCursor

scan

*oCharter.DrawChartFromCursor(..labelColumn,datacolumn params....)

    oCharter.Copy2Clipboard()

    lcGraphFile = Forcepath(Sys(2015)+".bmp", Sys(2023))

    if ClipBoard2BMP(m.lcGraphFile)

      replace GraphFile with m.lcGraphFile

        endif

EndScan

 

Procedure ClipBoard2BMP

Lparameters tcFileName

Local llResult,lcFileName

*

* Predefined Clipboard Formats

*

#Define CF_DIB              8

 

Declare short IsClipboardFormatAvailable In win32api Integer cbformat

Declare Integer GetClipboardData In win32api Integer uFormat

Declare Integer OpenClipboard In win32Api Integer hWndNewOwner

Declare Integer CloseClipboard In win32Api

Declare Integer SaveDIB In DibAPI32.Dll Integer hBitmap, String @ cFileName

Declare Integer GetSystemPalette In DibAPI32.Dll

Declare Integer GetActiveWindow In win32Api

 

lcFileName = Fullpath(Iif(Empty(m.tcFileName),;

    PUTFILE("Save as Bitmap", 'FromClipBoard', "BMP"), ;

    m.tcFileName))

If !Empty(m.lcFileName) and ( IsClipboardFormatAvailable(CF_DIB) # 0 )

    IF ( OpenClipboard(GetActiveWindow()) != 0 )

        llResult = ( SaveDIB(GetClipboardData( CF_DIB ), @lcFileName) = 0)

        CloseClipboard()

    endif

Endif

Return m.llResult

 

*Charter::Copy2Clipboard()

 Procedure Copy2Clipboard

    With This.Chart

        *!* Select Chart Part 1

        .SelectPart(1,1,1,1,1) && VtChPartTypePlot, index1, index2, index3, index4)

        *!*    Copy the chart to the clipboard in Windows Metafile format.

        .EditCopy

    Endwith

 Endproc