Versions des environnements
Hello SIr,
I did so. Every things runs fine. But when at last I close the report window, I gives an error that "Operator Type Mismatch".
I tried it hard, but not able to trace the source. Is there any bug in FRX2ANY source code.
I am launching FRX2AMY from Custompreview.prg. MY custompreview.prg is as follows....Please Note that the Varible Report_type assumes various values based on my choice of Variable. eg "SUBLEDGER.FRX".
#DEFINE cnPREVIEW_WINDOW_TOOLBAR_NOTDOCKED -1
#DEFINE cnPREVIEW_WINDOW_TOOLBAR_TOP 0
#DEFINE cnPREVIEW_WINDOW_TOOLBAR_LEFT 1
#DEFINE cnPREVIEW_WINDOW_TOOLBAR_RIGHT 2
#DEFINE cnPREVIEW_WINDOW_TOOLBAR_BOTTOM 3
#DEFINE cnPREVIEW_WINDOW_STATE_NORMAL 0
#DEFINE cnPREVIEW_WINDOW_STATE_MIN 1
#DEFINE cnPREVIEW_WINDOW_STATE_MAX 2
LOCAL loFile
LOCAL lcFRX2AnyLibrary
LOCAL lcAlias
lcAlias = JUSTSTEM(Report_type)
SELECT 0
*--- !!! TRIAL.FRX - ia embedded into EXE report (FRX/FRT files)
USE &Report_type AGAIN SHARED ALIAS (lcAlias)
*-- Save compiled FRX in a temporary folder
lcReportFullName = ADDBS(SYS(2023)) + 'TEMP.FRX'
Logofullpath=ADDBS(SYS(2023))+"Logo.gif"
COPY TO &lcReportFullName
COPY FILE Logo.gif TO &logofullpath
USE IN SELECT(lcAlias)
IF !FILE(lcReportFullName)
=MESSAGEBOX('File ' + lcReportFullName + ' does not exist.', 16, 'Error')
ELSE
lcFRX2AnyLibrary = 'FRX2Any'
SET CLASSLIB TO &lcFRX2AnyLibrary
loFile = CREATEOBJ('FRX2Any.PreviewFile')
IF TYPE('loFile') = 'O'
loFile.UNLOCK('xxxxxx-xxxxxx-xxxxxx-xxxxxx-xxxxxx-xxxxxx')
loFile.lToolBarDisplay = .T.
loFile.lToolBarFind = .T.
loFile.lToolBarPrint = .T.
loFile.lToolBarZoom = .T.
loFile.lToolBarFRX2Word = .F.
loFile.lToolBarFRX2Excel = .F.
loFile.lToolBarFRX2RTF = .F.
loFile.lToolBarFRX2HTML = .F.
loFile.lToolBarFRX2IMAGE = .F.
loFile.lToolBarFRX2PDF = .T.
loFile.nToolBarDockType = cnPREVIEW_WINDOW_TOOLBAR_NOTDOCKED
loFile.nToolBarPositionTop = 30
loFile.nToolBarPositionLeft = 5
loFile.cPrintPreviewToolBarTitle = "Tool Bar"
loFile.cPrintPreviewFormTitle = "Report"
loFile.nDefaultPageNumber = 1
loFile.nBackGroundColor = RGB(75, 75, 75)
loFile.nWindowState = cnPREVIEW_WINDOW_STATE_MAX
loFile.lMaxButton = .T.
loFile.lMinButton = .T.
loFile.lDisplayStatus = .T.
loFile.cToolTipTextPrint = 'Custom ToolTipText for Print button'
loFile.cToolTipTextFind = 'Custom ToolTipText for Find button'
loFile.cToolTipTextFRX2Word = 'Custom ToolTipText for FRX2Word button'
loFile.cToolTipTextFRX2RTF = 'Custom ToolTipText for FRX2RTF button'
loFile.cToolTipTextFRX2Excel = 'Custom ToolTipText for FRX2Excel button'
loFile.cToolTipTextFRX2HTML = 'Custom ToolTipText for FRX2HTML button'
loFile.cToolTipTextFRX2IMAGE = 'Custom ToolTipText for FRX2Image button'
loFile.cToolTipTextFRX2PDF = 'Custom ToolTipText for FRX2PDF button'
loFile.cToolTipTextZoom = 'Custom ToolTipText for Zoom combobox'
loFile.cToolTipTextFirstPage = 'Custom ToolTipText for FirstPage button'
loFile.cToolTipTextPrevPage = 'Custom ToolTipText for PrevPage button'
loFile.cToolTipTextNextPage = 'Custom ToolTipText for NextPage button'
loFile.cToolTipTextLastPage = 'Custom ToolTipText for LastPage button'
loFile.cLocalization = 'Localization.DBF'
*-- NOTE: loFile.cExportFileName should not include file extension. For example: loFile.cExportFileName = "ReportOutput"
loFile.cExportFileName = Lcalias
*-- NOTE: loFile.cSaveFolder should contain only path to the output file. For example: loFile.cSaveFolder = "c:\MyApp\MyOutPut\"
loFile.cSaveFolder = "C:\"
loFile.SAVE(lcReportFullName)
loFile.RELEASE()
ENDIF
ENDIF
Return
Précédent
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement