-----Messaggio Originale-----
Da: "Massimo Belgrano" <[EMAIL PROTECTED]>
A: "Harbour Project Main Developer List." <harbour@harbour-project.org>
Data invio: mercoledì 3 dicembre 2008 11.17
Oggetto: Re: [Harbour] Harbour and crystal report
Is aivable a way for use crystal report 2008?
This is a FWH sample for CR9. I don't know if it works for CR2008 too:
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oCrystal := CREATEOBJECT( "CrystalRuntime.Application" )
LOCAL oReport := oCrystal:OpenReport( "PROVA.RPT" )
LOCAL oWnd, oCRViewer
DEFINE WINDOW oWnd
oCRViewer = TActiveX():New( oWnd, "CRViewer9.CRViewer" )
oCRViewer:SetProp( "ReportSource", oReport )
oCRViewer:Do( "ViewReport" )
oWnd:oClient = oCRViewer
ACTIVATE WINDOW oWnd;
MAXIMIZED
RETURN NIL
EMG
--
EMAG Software Homepage: http://www.emagsoftware.it
The EMG's ZX-Spectrum Page: http://www.emagsoftware.it/spectrum
The Best of Spectrum Games: http://www.emagsoftware.it/tbosg
The EMG Music page: http://www.emagsoftware.it/emgmusic
_______________________________________________
Harbour mailing list
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour
