In your DLL, you can use an Error method, then call COMRETURNERROR() to get the error message back to the user.


>Thank you for your help. I created a .dll file to handle the crystal reports printing and exporting. Please excuse my inelegant coding and wide format. I used an API call in the .dll to alert users of errors (I'm a News2News.com member and I like their API calls) since the VFP MessageBox won't work in a .dll file. The .dll is registering fine and working fine on our Windows 2000 workstations but won't even register on the &*(*(! Windows 98 machines...
>
>
>
>
>
>
>***************************************************************************************************************
>***************************************************************************************************************
>****** CLASS CrystalRun ***************************************************************************************
>***************************************************************************************************************
>***************************************************************************************************************
>
>DEFINE CLASS CrystalRun as session olepublic
>
>***************************************************************************************************************
>**** ExportToFile *********************************************************************************************
>***************************************************************************************************************
>
> PROCEDURE ExportToFile(tcCrystalReportName as String, ;
> tcDBFName as String, ;
> tnDestinationType as Integer, ;
> tcDownName as String)
>
> #INCLUDE VFPCrystal.h
>
> PUBLIC goCr as CRYSTALRUNTIME.Application
> PUBLIC goCrRpt as CRYSTALRUNTIME.Report
> PUBLIC goCrData as CRYSTALRUNTIME.Database
> PUBLIC goCrTables as CRYSTALRUNTIME.DatabaseTables
> PUBLIC goCrExportOptions as CRYSTALRUNTIME.ExportOptions
> PUBLIC goCrPrintingStatus as CRYSTALRUNTIME.PrintingStatus
>
> IF VARTYPE(tcCrystalReportName) = "C"
> tcCrystalReportName = ALLTRIM(tcCrystalReportName)
> ENDIF VARTYPE(tcCrystalReportName) = "C"
>
> IF VARTYPE(tcDBFName) = "C"
> tcDBFName = ALLTRIM(tcDBFName)
> ENDIF VARTYPE(tcDBFName) = "C"
>
> IF VARTYPE(tcDownName) = "C"
> tcDownName = ALLTRIM(tcDownName)
> ENDIF VARTYPE(tcDownName) = "C"
>
> IF VARTYPE(tcCrystalReportName) # "C" OR EMPTY(ALLTRIM(tcCrystalReportName))
> =NewMsgBox ("No Crystal Report was Defined.", "No Report.",MB_OK + MB_ICONEXCLAMATION + MB_SYSTEMMODAL)
> RETURN
> ENDIF VARTYPE(tcCrystalReportName) # "C" OR EMPTY(ALLTRIM(tcCrystalReportName))
>
> IF NOT ".RPT" $ UPPER(tcCrystalReportName)
> tcCrystalReportName = tcCrystalReportName + ".RPT"
> ENDIF NOT ".RPT" $ UPPER(tcCrystalReportName)
>
> IF NOT FILE(tcCrystalReportName)
> =NewMsgBox ("Unable to Find Report " + tcCrystalReportName, "Not Found",MB_OK + MB_ICONEXCLAMATION + MB_SYSTEMMODAL)
> RETURN
> ENDIF NOT FILE(cCrystalReportName)
>
> IF VARTYPE(tcDBFName) # "C" OR EMPTY(ALLTRIM(tcDBFName))
> =NewMsgBox ("No DBF File was Selected.","No DBF File.",MB_OK + MB_ICONEXCLAMATION + MB_SYSTEMMODAL)
> RETURN
> ENDIF VARTYPE(tcDBFName) # "C" OR EMPTY(ALLTRIM(tcDBFName))
>
> IF NOT ".DBF" $ UPPER(tcDBFName)
> tcDBFName = tcDBFName + ".DBF"
> ENDIF
>
> IF NOT FILE(tcDBFName)
> =NewMsgBox ("Unable to Find DBF " + tcDBFName,"Not Found.",MB_OK + MB_ICONEXCLAMATION + MB_SYSTEMMODAL)
> RETURN
> ENDIF NOT FILE(tcDBFName)
>
> IF VARTYPE(tnDestinationType) # "N" OR NOT PADL(ALLTRIM(STR(tnDestinationType,2,0)),2,"0") $ ;
> "01|02|03|04|05|06|07|08|09|10|11|12|13|14|18|19|20|21|22|24|27|28|29|30|31|32|33|34|35|36"
> =NewMsgBox ("No Valid Export File Type was Selected.","No Export Type.",MB_OK + MB_ICONEXCLAMATION + MB_SYSTEMMODAL)
> RETURN
> ENDIF
>
> IF VARTYPE(tcDownName) # "C" OR EMPTY(ALLTRIM(tcDownName))
> =NewMsgBox ("No Output File was Selected.","No Output File.",MB_OK + MB_ICONEXCLAMATION + MB_SYSTEMMODAL)
> RETURN
> ENDIF VARTYPE(tcDownName) # "C" OR EMPTY(ALLTRIM(tcDownName))
>
> tcDownName = ALLTRIM(ADDBS(JUSTPATH(tcDownName))) + ;
> ALLTRIM(JUSTSTEM(tcDownName)) + ;
> "." + ;
> ALLTRIM(CheckDownExt(tnDestinationType))
>
> * Create the CR Application Object
> goCr = CREATEOBJECT("CrystalRuntime.Application")
> IF VARTYPE(goCr) # "O"
> =NewMsgBox ("Error Creating CrystalRuntime.Application","Creation Error",MB_OK + MB_ICONEXCLAMATION + MB_SYSTEMMODAL)
> RETURN
> ENDIF VARTYPE(goCr) # "O"
>
> goCrRpt = goCr.OpenReport(tcCrystalReportName)
> IF VARTYPE(goCrRpt) # "O"
> =NewMsgBox ("Error Opening " + tcCrystalReportName,"Error Opening Report.",MB_OK + MB_ICONEXCLAMATION + MB_SYSTEMMODAL)
> RETURN
> ENDIF VARTYPE(goCrRpt) # "O"
>
> goCrRpt.UseIndexForSpeed= .F.
> goCrRpt.DiscardSavedData()
> goCrRpt.MorePrintEngineErrorMessages= .T.
> goCrRpt.DisplayProgressDialog= .F.
> goCrRpt.EnableParameterPrompting= .F.
> *** goCrRpt.PaperOrientation
> *** goCrRpt.PaperSize
>
> goCrData = goCrRpt.Database
>
> IF VARTYPE(goCrData) # "O"
> =NewMsgBox ("Error Creating goCrData","Error Creating goCrData",MB_OK + MB_ICONEXCLAMATION + MB_SYSTEMMODAL)
> RETURN
> ENDIF VARTYPE(goCrData) # "O"
>
> goCrTables = goCrData.Tables
>
> IF VARTYPE(goCrTables) # "O"
> =NewMsgBox ("Error Creating goCrTables","Error Creating goCrTables",MB_OK + MB_ICONEXCLAMATION + MB_SYSTEMMODAL)
> RETURN
> ENDIF VARTYPE(goCrTables) # "O"
>
> goCrTables.Item(1).Location = tcDBFName && e.g. "I:\AUTOREP\ACTIVITY.DBF"
>
> llConnected=goCrTables.Item(1).TestConnectivity()
>
> IF NOT llConnected
> =NewMsgBox ("Unable to Connect to Table " + tcDBFName,"Unable to Connect",MB_OK + MB_ICONEXCLAMATION + MB_SYSTEMMODAL)
> RETURN
> ENDIF NOT llConnected
>
> goCrRpt.ReadRecords()
>
> goCrExportOptions = goCrRpt.ExportOptions
> goCrExportOptions.DestinationType= crEDTDiskFile
> goCrExportOptions.FormatType= tnDestinationType && crEFTPortableDocFormat
> goCrExportOptions.PDFExportAllPages= .T.
> goCrExportOptions.DiskFileName= tcDownName && "c:\temp\tammi.pdf"
>
> goCrRpt.Export(.F.)
>
> =TakeOutTheGarbage()
>
> ENDPROC && ExportToFile
>
>***************************************************************************************************************
>**** PrintReport **********************************************************************************************
>***************************************************************************************************************
>
> PROCEDURE PrintReport(tcCrystalReportName as String, ;
> tcDBFName as String)
>
> #INCLUDE VFPCrystal.h
>
> PUBLIC goCr as CRYSTALRUNTIME.Application
> PUBLIC goCrRpt as CRYSTALRUNTIME.Report
> PUBLIC goCrData as CRYSTALRUNTIME.Database
> PUBLIC goCrTables as CRYSTALRUNTIME.DatabaseTables
> PUBLIC goCrExportOptions as CRYSTALRUNTIME.ExportOptions
> PUBLIC goCrPrintingStatus as CRYSTALRUNTIME.PrintingStatus
>
> IF VARTYPE(tcCrystalReportName) = "C"
> tcCrystalReportName = ALLTRIM(tcCrystalReportName)
> ENDIF VARTYPE(tcCrystalReportName) = "C"
>
> IF VARTYPE(tcDBFName) = "C"
> tcDBFName = ALLTRIM(tcDBFName)
> ENDIF VARTYPE(tcDBFName) = "C"
>
> IF VARTYPE(tcCrystalReportName) # "C" OR EMPTY(ALLTRIM(tcCrystalReportName))
> =NewMsgBox ("No Crystal Report was Defined.", "No Report.",MB_OK + MB_ICONEXCLAMATION + MB_SYSTEMMODAL)
> RETURN
> ENDIF VARTYPE(tcCrystalReportName) # "C" OR EMPTY(ALLTRIM(tcCrystalReportName))
>
> IF NOT ".RPT" $ UPPER(tcCrystalReportName)
> tcCrystalReportName = tcCrystalReportName + ".RPT"
> ENDIF NOT ".RPT" $ UPPER(tcCrystalReportName)
>
> IF NOT FILE(tcCrystalReportName)
> =NewMsgBox ("Unable to Find Report " + tcCrystalReportName, "Not Found",MB_OK + MB_ICONEXCLAMATION + MB_SYSTEMMODAL)
> RETURN
> ENDIF NOT FILE(cCrystalReportName)
>
> IF VARTYPE(tcDBFName) # "C" OR EMPTY(ALLTRIM(tcDBFName))
> =NewMsgBox ("No DBF File was Selected.","No DBF File.",MB_OK + MB_ICONEXCLAMATION + MB_SYSTEMMODAL)
> RETURN
> ENDIF VARTYPE(tcDBFName) # "C" OR EMPTY(ALLTRIM(tcDBFName))
>
> IF NOT ".DBF" $ UPPER(tcDBFName)
> tcDBFName = tcDBFName + ".DBF"
> ENDIF
>
> IF NOT FILE(tcDBFName)
> =NewMsgBox ("Unable to Find DBF " + tcDBFName,"Not Found.",MB_OK + MB_ICONEXCLAMATION + MB_SYSTEMMODAL)
> RETURN
> ENDIF NOT FILE(tcDBFName)
>
> * Create the CR Application Object
> goCr = CREATEOBJECT("CrystalRuntime.Application")
> IF VARTYPE(goCr) # "O"
> =NewMsgBox ("Error Creating CrystalRuntime.Application","Creation Error",MB_OK + MB_ICONEXCLAMATION + MB_SYSTEMMODAL)
> RETURN
> ENDIF VARTYPE(goCr) # "O"
>
> goCrRpt = goCr.OpenReport(tcCrystalReportName)
> IF VARTYPE(goCrRpt) # "O"
> =NewMsgBox ("Error Opening " + tcCrystalReportName,"Error Opening Report.",MB_OK + MB_ICONEXCLAMATION + MB_SYSTEMMODAL)
> RETURN
> ENDIF VARTYPE(goCrRpt) # "O"
>
> goCrRpt.UseIndexForSpeed= .F.
> goCrRpt.DiscardSavedData()
> goCrRpt.MorePrintEngineErrorMessages= .T.
> goCrRpt.DisplayProgressDialog= .F.
> goCrRpt.EnableParameterPrompting= .F.
> *** goCrRpt.PaperOrientation
> *** goCrRpt.PaperSize
>
> goCrData = goCrRpt.Database
>
> IF VARTYPE(goCrData) # "O"
> =NewMsgBox ("Error Creating goCrData","Error Creating goCrData",MB_OK + MB_ICONEXCLAMATION + MB_SYSTEMMODAL)
> RETURN
> ENDIF VARTYPE(goCrData) # "O"
>
> goCrTables = goCrData.Tables
>
> IF VARTYPE(goCrTables) # "O"
> =NewMsgBox ("Error Creating goCrTables","Error Creating goCrTables",MB_OK + MB_ICONEXCLAMATION + MB_SYSTEMMODAL)
> RETURN
> ENDIF VARTYPE(goCrTables) # "O"
>
> goCrTables.Item(1).Location = tcDBFName && e.g. "I:\AUTOREP\ACTIVITY.DBF"
>
> llConnected=goCrTables.Item(1).TestConnectivity()
>
> IF NOT llConnected
> =NewMsgBox ("Unable to Connect to Table " + tcDBFName,"Unable to Connect",MB_OK + MB_ICONEXCLAMATION + MB_SYSTEMMODAL)
> RETURN
> ENDIF NOT llConnected
>
> goCrRpt.ReadRecords()
>
> goCrRpt.PrinterSetup(0)
> goCrRpt.PrintOut(.T.)
>
> goCrPrintingStatus = goCrRpt.PrintingStatus
>
> =TakeOutTheGarbage()
>
> ENDPROC && PrintReport
>ENDDEFINE
>
>
>
>
>PROCEDURE CheckDownExt
> LPARAMETERS nDestinationType
>
> #INCLUDE VFPCrystal.h
>
> LOCAL cExtension
>
> DO case
> CASE PADL(ALLTRIM(STR(nDestinationType,2,0)),2,"0") $ "01|33"
> cExtension = "RPT"
> CASE PADL(ALLTRIM(STR(nDestinationType,2,0)),2,"0") $ "02"
> cExtension = "DIF"
> CASE PADL(ALLTRIM(STR(nDestinationType,2,0)),2,"0") $ "03"
> cExtension = "REC"
> CASE PADL(ALLTRIM(STR(nDestinationType,2,0)),2,"0") $ "04|35"
> cExtension = "RTF"
> CASE PADL(ALLTRIM(STR(nDestinationType,2,0)),2,"0") $ "05"
> cExtension = "CSV"
> CASE PADL(ALLTRIM(STR(nDestinationType,2,0)),2,"0") $ "06"
> cExtension = "TSV"
> CASE PADL(ALLTRIM(STR(nDestinationType,2,0)),2,"0") $ "07"
> cExtension = "CHR"
> CASE PADL(ALLTRIM(STR(nDestinationType,2,0)),2,"0") $ "08|10|34"
> cExtension = "TXT"
> CASE PADL(ALLTRIM(STR(nDestinationType,2,0)),2,"0") $ "09"
> cExtension = "TTX"
> CASE PADL(ALLTRIM(STR(nDestinationType,2,0)),2,"0") $ "11"
> cExtension = "WKS"
> CASE PADL(ALLTRIM(STR(nDestinationType,2,0)),2,"0") $ "12"
> cExtension = "WK1"
> CASE PADL(ALLTRIM(STR(nDestinationType,2,0)),2,"0") $ "13"
> cExtension = "WK3"
> CASE PADL(ALLTRIM(STR(nDestinationType,2,0)),2,"0") $ "14"
> cExtension = "DOC"
> CASE PADL(ALLTRIM(STR(nDestinationType,2,0)),2,"0") $ "18|19|20|21|22|27|28|29|30"
> cExtension = "XLS"
> CASE PADL(ALLTRIM(STR(nDestinationType,2,0)),2,"0") $ "24|32"
> cExtension = "HTML"
> CASE PADL(ALLTRIM(STR(nDestinationType,2,0)),2,"0") $ "31"
> cExtension = "PDF"
> CASE PADL(ALLTRIM(STR(nDestinationType,2,0)),2,"0") $ "36"
> cExtension = "XML"
> ENDCASE
>
> RETURN cExtension
>
>ENDPROC
>
>
>PROCEDURE NewMsgBox
> LPARAMETERS tcText, tcCaption, tnType
>
>*** Many Thanks to News2News.com !!! ***
>*** Source: http://www.news2news.com/vfp/
>*** -------------------------------------
>
> LOCAL lnResponse
> lnResponse = 0
>
> IF VARTYPE(tnType) # "N"
> tnType = 0
> ENDIF VARTYPE(tnType) # "N"
>
> DECLARE INTEGER MessageBox IN user32 As MsgBox;
> INTEGER hwnd,;
> STRING lpText,;
> STRING lpCaption,;
> INTEGER wType
>
> DECLARE INTEGER GetActiveWindow IN user32
>
> hwnd = GetActiveWindow()
> lnResponse = MsgBox (0, tcText, tcCaption, tnType)
>
> RETURN lnResponse
>
>ENDPROC
>
>
>PROCEDURE TakeOutTheGarbage
> * Manual garbage collection
>
> goCr = NULL
> goCrRpt = NULL
> goCrData = NULL
> goCrTables = NULL
> goCrExportOptions = NULL
> goCrPrintingStatus = NULL
>
>ENDPROC