How to use Frx2Any
LOCAL lcDefaultPath
LOCAL lcReportFullName
LOCAL lcReportFile
LOCAL lcExportPath
LOCAL loHTMLFile
lcDefaultPath =JUSTPATH(SYS(16))
SET DEFAULT TO (lcDefaultPath)
lcReportFullName = ADDBS(lcDefaultPath)+"Invoice.Frx" && Path and name
of Frx file
lcReportFile = JUSTSTEM(lcReportFullName)
lcExportPath = ADDBS(JUSTPATH(lcReportFullName))
l*-- Create the object from the App
loHTMLFile = NEWOBJECT('HTMLFile', 'Frx2Any.app', 'Frx2Any.app')
loHTMLFile.cExportFileName = lcReportFile
loHTMLFile.cSaveFolder = lcExportPath
lnSuccess = loHTMLFile.SAVE(lcReportFullName)
&& Save to file
loHTMLFile.Release()
loHTMLFile = .NULL.
*--Launch the HTM file (Will trigger the Program associated to .HTM e.g. Internet Explorer)
DECLARE INTEGER ShellExecute
IN SHELL32.DLL INTEGER nWinHandle, STRING cOperation, STRING cFileName,
STRING cParameters,;
STRING cDirectory, INTEGER nShowWindow
ShellExecute(0, 'Open', lcExportPath + FORCEEXT(lcReportFile, 'HTM') , '',
'', 1)
