Report paper orientation changed through an extender rule

Question

Hello community,&nbsp;
Has anyone used a cube view extender rule to change between the portrait/landscape paper orientation on a PDF report? In our example, we are trying to use a parameter that allows the user to select the column template set needed, and although the idea of calling out the CV column template name sounds logical, I don't think OS has the capability to do this, similar to a column name as shown in the below example. Putting it out there just in case, as I promised our user we will explore different avenues.

&nbsp;

T_Kress · Accepted Answer

Yes, we used a cube view extender BR and based upon the forecast scenario name it would change the orientation from portrait to landscape.&nbsp; Here is our code:
&nbsp;

Namespace OneStream.BusinessRule.CubeViewExtender.CUSTOMER_PageOrientation
	Public Class MainClass
		Public Function Main(ByVal si As SessionInfo, ByVal globals As BRGlobals, ByVal api As Object, ByVal args As CVExtenderArgs) As Object
			Try
				Select Case args.FunctionType
					Case Is = CVExtenderFunctionType.GetReportOptions

Dim cvER As CVExtenderReport = args.Report.CurrentUIItem.Report
						Dim uiItem As CVExtenderReportUIItem = args.Report.CurrentUIItem
						
						If uiItem.UIItemType = XFReportUIItemType.PageFooterPageNumber Then
							uiitem.SetPageNumberDisplayInfo (True,"Page {0} of {1}")
						End If

' --- Option 1: Using native DevExpress report classes , but requires Referenced Assembly to correct version of DevExpress.XtraReports.&lt;version&gt;.dll
						' Dim xtraReport As DevExpress.XtraReports.UI.XtraReport = cver.XRReport
						' xtraReport.Landscape = True
						' --- Option 2: Using System.Reflection to query the DevExpress class through generic objects. Slower to execute, but doesn't require hard-configured Referenced Assembly to the exact server path + version of DevExpress

Dim cvERProperty As System.Reflection.PropertyInfo = cvER.GetType().GetProperty("XRReport")
					   Dim currScenario As String = ScenarioDimHelper.GetNameFromID(si, si.WorkflowClusterPk.ScenarioKey)

If cvERProperty IsNot Nothing Then
						   If CurrScenario.XFContainsIgnoreCase("01") Or CurrScenario.XFContainsIgnoreCase("04") Or CurrScenario.XFContainsIgnoreCase("07") Or CurrScenario.XFContainsIgnoreCase("10") Then    
'				            Return "IsColumnVisible = True,Bold=True"
							Dim xtraReport As Object = cvERProperty.GetValue(cvER)
                            xtraReport.Landscape = True
						Else 
							Dim xtraReport As Object = cvERProperty.GetValue(cvER)
                            xtraReport.Landscape = False
						End If
                       End If

End Select

'                     XFBR(CUSTOMER_XFBRStrings, QTRFcst, CurrScenario = |WFScenario|)

'                       Dim CurrScenario As String = args.NameValuePairs.XFGetValue("CurrScenario")
					   
'                       If CurrScenario.XFContainsIgnoreCase("01") Or CurrScenario.XFContainsIgnoreCase("04") Or CurrScenario.XFContainsIgnoreCase("07") Or CurrScenario.XFContainsIgnoreCase("10") Then    
'				            Return "IsColumnVisible = True,Bold=True"
'		                   'qtr end is extra columns and landscape
'                       Else     
'                           Return "IsColumnVisible = False,Bold=False"
'                           'non qtr end are less columns and potrait
'                       End If  
				Return Nothing
		Catch ex As Exception
			Throw ErrorHandler.LogWrite(si, New XFException(si, ex))
        End Try
        End Function
	End Class
End Namespace
Then in all the cube views where this applied, we added the rule here:

&nbsp;

Forum Discussion

Report paper orientation changed through an extender rule

2 Replies

Related Content

OneStream 9.0 Stage Schema Changes

Dashboard Extender - TXP_SolutionHelper

Cube View Extender - TXP_CV_ParentAccount_Bold

Do you implement Change Control?

Date Format Change in Report Footer via Cube View Extender + Display Username in Report Footer