xsharp.eu

Code: Select all

CLASS RP3Report

PROTECT _Report AS ReportPro3.rpReport

CONSTRUCTOR()

METHOD PrintReport(pOwnerWindow AS VO.ShellWindow, sqlConnection AS VO.SQLConnection, reportFormPath AS STRING, reportFormCaption AS STRING, reportFormPrintMessage AS STRING, sqlFilter AS STRING, sqlOrder AS STRING, reportFormHeader AS STRING, parameters AS ARRAY)

	LOCAL app AS classmate.cApp
	LOCAL ownerWindow AS classmate.cWindow

	LOCAL nSection AS LONGINT
	LOCAL cTableName AS STRING
	LOCAL nSections	AS LONGINT
	LOCAL nLen AS INT
	LOCAL nLp AS INT
	
	LOCAL errorMessage AS STRING
	
	errorMessage := ""
	
	TRY
		
		IF !File(reportFormPath)
			
			THROW Exception{"Error - "+reportFormPath+" does not exist."}
	      
		ENDIF
	    
	    ownerWindow := classmate.cWindow{pOwnerWindow:Handle()}
	    
    	app := classmate.cApp{}
		app:AppName := ownerWindow:Caption		
	    
		cmGUIDLLInit(app)
		ReportProInit()
	
		IF !Empty(pOwnerWindow)
			
			UpdateWindow(pOwnerWindow:Handle(0))
			
			SELF:_Report := ReportPro3.rpReport{ownerWindow}
		    
		ELSE
			
			THROW Exception{"Owner window can't be null."}
		   
		ENDIF

		SELF:_Report:LoadReport(reportFormPath)
	
		IF SELF:_Report:IsValid

			SELF:_Report:SetReportStringAttribute(RP_PRINT_ATTR_PREVIEW_CAPTION, reportFormCaption)
			SELF:_Report:SetReportStringAttribute(RP_PRINT_ATTR_PRINT_MESSAGE1, reportFormPrintMessage)

//not sure how modal is supposed to work since modal attribute is a logic type, but none of these actually do anything anyway
//?			SELF:_Report:SetReportIntAttribute(RP_PRINT_ATTR_PREVIEW_MODAL, 1)
//?			SELF:_Report:SetReportStringAttribute(RP_PRINT_ATTR_PREVIEW_MODAL, "TRUE")
//?			SELF:_Report:Printer:PreviewModal := TRUE
	
			//...
			<setting section attributes and variables code goes here>
			//...
	        
			SELF:_Report:Preview()
	
		ENDIF
	
	CATCH Ex AS XSharp.Internal.WrappedException
		
		errorMessage += Ex:Value:ToString():Substring(0, Ex:Value:ToString():IndexOf(Chr(13)+Chr(10))) 
		errorMessage += Chr(13)+Chr(10)+Chr(13)+Chr(10)

	CATCH Ex AS Exception
		
		errorMessage += Ex:Message
		errorMessage += Chr(13)+Chr(10)+Chr(13)+Chr(10)
		errorMessage += Ex:StackTrace
	
	FINALLY
		
//this cleanup doesn't work if an exception is thrown, the ReportPro3 preview stays hanging and can't be closed unless forcefully terminated
//if SELF:_Report:Close() and/or SELF:_Report:ClosePreview() is called, the entire program freezes up
		SELF:_Report := NULL
		ownerWindow := NULL
		app := NULL
        
        ReportProUnInit()
		cmGUIDLLUnInit()
		
	END TRY

//there seems to be no reason to close the report from withing the code, since we require user interaction to finish the printing or aborting the process	
//	SELF:_Report:Close()
	
	IF !Empty(errorMessage)
		
		THROW Exception{errorMessage}
		
	ENDIF

RETURN NULL

END CLASS

Code: Select all

//sqlOrder := "sqlexception"