*-- Before you integrate FRX2Any into your VFP application you should realize that FRX2Any
*-- requires GDIPlus.DLL which is freely available and can be installed on Win98 and higher.
*-- If you have not installed WinXP or .NET framework then you can download this DLL from
*-- http://www.microsoft.com/downloads/release.asp?releaseid=32738
*-- or
*-- http://www.dll-files.com/dllindex/dll-files.shtml?gdiplus


#DEFINE cnOUTPUT_SCREEN			         		 1 
#DEFINE cnOUTPUT_PRINT			         		 2 
#DEFINE cnOUTPUT_EMAIL			         		 3 
#DEFINE cnOUTPUT_FILE		 	         		 4 


#DEFINE cnRTF_OUTPUT_OBJECT 				 1 
#DEFINE cnRTF_OUTPUT_PLAIN 				 2 


LOCAL loFile
LOCAL lcReportFullName
LOCAL lcOutPutFileName
LOCAL lcOutPutFilePath
LOCAL lcFRX2AnyLibrary

CD LEFT(SYS( 16 , 0 ), RAT('\', SYS( 16 , 0 )))

lcReportFullName = FULLPATH('..\Reports\ReportContents.FRX')

IF !FILE(lcReportFullName)
	=MESSAGEBOX('File ' + lcReportFullName + ' does not exist.',  16 , 'Error')

ELSE

	lcOutPutFileName = JUSTSTEM(lcReportFullName)
	lcOutPutFilePath = JUSTPATH(SYS( 16 , 0 )) + "\OutPut\"


	SET PATH TO  ..\..\

	lcFRX2AnyLibrary = 'FRX2Any'	 
	SET CLASSLIB TO &lcFRX2AnyLibrary IN FRX2Any.APP ALIAS FRX2Any		

	loFile = CREATEOBJ('FRX2Any.RTFFile')

	IF TYPE('loFile') = 'O'
*-- Unlock FRX2Any
		loFile.UNLOCK('xxxxxx-xxxxxx-xxxxxx-xxxxxx-xxxxxx-xxxxxx')
		
*-- NOTE: loFile.cExportFileName should not include file extension. For example: loFile.cExportFileName = "ReportOutput"
		loFile.cExportFileName = lcOutPutFileName

*-- NOTE: loFile.cSaveFolder should contain only path to the output file. For example: loFile.cSaveFolder = "c:\MyApp\MyOutPut\"
		loFile.cSaveFolder     = lcOutPutFilePath
		
*-- Force FRX2Any to display conversion process status
		loFile.lDisplayStatus  = .T.

*-- Specifies that output file will be displayed after creation
		loFile.nOutPutType = cnOUTPUT_SCREEN
		
		loFile.nRTFOutPutType = cnRTF_OUTPUT_PLAIN		
		
*-- Specify a Code Page. 
		loFile.nCodePage =  1252 

		loFile.SAVE(lcReportFullName)

		loFile.RELEASE()
	ENDIF

ENDIF