DEFINE CLASS COMRpt AS Custom OLEPUBLIC cError = "" PROCEDURE Init Cd C:\sandbox\comrpt2 Set Path To C:\sandbox\comrpt2; "C:\Program Files\Microsoft Visual FoxPro 9\Samples\Data" additive _ReportOutput = "C:\PROGRAM FILES\MICROSOFT VISUAL FOXPRO 9\REPORTOUTPUT.APP" _ReportBuilder = "C:\PROGRAM FILES\MICROSOFT VISUAL FOXPRO 9\REPORTBUILDER.APP" _ReportPreview = "C:\PROGRAM FILES\MICROSOFT VISUAL FOXPRO 9\REPORTPREVIEW.APP" Set ReportBehavior 90 Sys(2335,0) ENDPROC Procedure RunReport() Report Form invoice.frx object type 5 EndProc PROCEDURE Error(nError, cMethod, nLine) Text to This.cError NOSHOW TEXTMERGE Error: <<nError>> Method: <<cMethod>> Line: <<nLine>> Message: <<Message()>> EndText ENDPROC ENDDEFINE