CREATING A PARAMEMTER IN SSRS FROM SSAS

Question

function 1
Public Function fBudgetSummaryMDX() As String
Dim sOut As String
Dim iCriteria As Integer = 0
sOut = "SELECT NON EMPTY {[Measures].[Expenditure Amount],[Measures].[Operating Bdgt Amount],"
sOut = sOut & "[Measures].[Encumbrance Amount],[Measures].[Op Bdgt Remaining]} ON COLUMNS, NON EMPTY {"
If Instr(Report.Parameters!pSummary1.Value, "Resp_") > 0 Or Instr(Report.Parameters!pSummary2.Value, "Resp_") > 0 Or Instr(Report.Parameters!pSummary3.Value, "Resp_") > 0 Then
sOut = sOut & fPadMDX("[Responsible Unit].[Org Level FY].[Org Level FY].ALLMEMBERS") & "*"
sOut = sOut & fPadMDX("[Responsible Unit].[Org Level 1].[Org Level 1].ALLMEMBERS") & "*"
sOut = sOut & fPadMDX("[Responsible Unit].[Org Level 2].[Org Level 2].ALLMEMBERS") & "*"
sOut = sOut & fPadMDX("[Responsible Unit].[Org Level 3].[Org Level 3].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Resp_Org_Unit_Description" Or Report.Parameters!pSummary2.Value = "Resp_Org_Unit_Description" Or Report.Parameters!pSummary3.Value = "Resp_Org_Unit_Description" Then
sOut = sOut & fPadMDX("[Responsible Unit].[Org Unit Description].[Org Unit Description].ALLMEMBERS") & "*"
End If
If Instr(Report.Parameters!pSummary1.Value, "Charge_") > 0 Or instr(Report.Parameters!pSummary2.Value, "Charge_") > 0 Or instr(Report.Parameters!pSummary3.Value, "Charge_") > 0 Then
sOut = sOut & fPadMDX("[Charge Unit].[Org Level FY].[Org Level FY].ALLMEMBERS") & "*"
sOut = sOut & fPadMDX("[Charge Unit].[Org Level 1].[Org Level 1].ALLMEMBERS") & "*"
sOut = sOut & fPadMDX("[Charge Unit].[Org Level 2].[Org Level 2].ALLMEMBERS") & "*"
sOut = sOut & fPadMDX("[Charge Unit].[Org Level 3].[Org Level 3].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Charge_Org_Unit_Description" Or Report.Parameters!pSummary2.Value = "Charge_Org_Unit_Description" Or Report.Parameters!pSummary3.Value = "Charge_Org_Unit_Description" Then
sOut = sOut & fPadMDX("[Charge Unit].[Org Unit Description].[Org Unit Description].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Activity_Description" Or Report.Parameters!pSummary2.Value = "Activity_Description" Or Report.Parameters!pSummary3.Value = "Activity_Description" Then
sOut = sOut & fPadMDX("[Activity].[Activity Description].[Activity Description].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Object_Description" Or Report.Parameters!pSummary2.Value = "Object_Description" Or Report.Parameters!pSummary3.Value = "Object_Description" Then
sOut = sOut & fPadMDX("[Object].[Object Description].[Object Description].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Object_Detail_Description" Or Report.Parameters!pSummary2.Value = "Object_Detail_Description" Or Report.Parameters!pSummary3.Value = "Object_Detail_Description" Then
sOut = sOut & fPadMDX("[Object].[Object Detail Description].[Object Detail Description].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Revenue_Source_Description" Or Report.Parameters!pSummary2.Value = "Revenue_Source_Description" Or Report.Parameters!pSummary3.Value = "Revenue_Source_Description" Then
sOut = sOut & fPadMDX("[Revenue Source].[Revenue Source Description].[Revenue Source Description].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Agency_Source_Description" Or Report.Parameters!pSummary2.Value = "Agency_Source_Description" Or Report.Parameters!pSummary3.Value = "Agency_Source_Description" Then
sOut = sOut & fPadMDX("[Revenue Source].[Agency Source Description].[Agency Source Description].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "EA_Description" Or Report.Parameters!pSummary2.Value = "EA_Description" Or Report.Parameters!pSummary3.Value = "EA_Description" Then
sOut = sOut & fPadMDX("[EA].[EA Description].[EA Description].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "EA" Or Report.Parameters!pSummary2.Value = "EA" Or Report.Parameters!pSummary3.Value = "EA" Then
sOut = sOut & fPadMDX("[EA].[EA].[EA].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "EA_Subjob" Or Report.Parameters!pSummary2.Value = "EA_Subjob" Or Report.Parameters!pSummary3.Value = "EA_Subjob" Then
sOut = sOut & fPadMDX("[EA].[EA Subjob].[EA Subjob].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Fund_No_Description" Or Report.Parameters!pSummary2.Value = "Fund_No_Description" Or Report.Parameters!pSummary3.Value = "Fund_No_Description" Then
sOut = sOut & fPadMDX("[Fund].[Fund No Description].[Fund No Description].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Fund_Source_Description" Or Report.Parameters!pSummary2.Value = "Fund_Source_Description" Or Report.Parameters!pSummary3.Value = "Fund_Source_Description" Then
sOut = sOut & fPadMDX("[Fund].[Fund Source Description].[Fund Source Description].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Fund_Type_Description" Or Report.Parameters!pSummary2.Value = "Fund_Type_Description" Or Report.Parameters!pSummary3.Value = "Fund_Type_Description" Then
sOut = sOut & fPadMDX("[Fund].[Fund Type Description].[Fund Type Description].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Fund_Detl" Or Report.Parameters!pSummary2.Value = "Fund_Detl" Or Report.Parameters!pSummary3.Value = "Fund_Detl" Then
sOut = sOut & fPadMDX("[Fund].[Fund Detl].[Fund Detl].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Fund_Detail_Description" Or Report.Parameters!pSummary2.Value = "Fund_Detail_Description" Or Report.Parameters!pSummary3.Value = "Fund_Detail_Description" Then
sOut = sOut & fPadMDX("[Fund].[Fund Detail Description].[Fund Detail Description].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "EA_Class" Or Report.Parameters!pSummary2.Value = "EA_Class" Or Report.Parameters!pSummary3.Value = "EA_Class" Then
sOut = sOut & fPadMDX("[EA].[Report Class].[Report Class].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Rel_EA_Subjob" Or Report.Parameters!pSummary2.Value = "Rel_EA_Subjob" Or Report.Parameters!pSummary3.Value = "Rel_EA_Subjob" Or Report.Parameters!pSummary1.Value = "Rel_EA" Or Report.Parameters!pSummary2.Value = "Rel_EA" Or Report.Parameters!pSummary3.Value = "Rel_EA" Then
sOut = sOut & fPadMDX("[EA].[Rel EA Subjob].[Rel EA Subjob].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Rel_EA" Or Report.Parameters!pSummary2.Value = "Rel_EA" Or Report.Parameters!pSummary3.Value = "Rel_EA" Then
sOut = sOut & fPadMDX("[EA].[Rel EA].[Rel EA].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Trans_Code" Or Report.Parameters!pSummary2.Value = "Trans_Code" Or Report.Parameters!pSummary3.Value = "Trans_Code" Then
sOut = sOut & fPadMDX("[Transaction Codes].[Trans Cd].[Trans Cd].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Trans_Code_Description" Or Report.Parameters!pSummary2.Value = "Trans_Code_Description" Or Report.Parameters!pSummary3.Value = "Trans_Code_Description" Then
sOut = sOut & fPadMDX("[Transaction Codes].[Trans Code Description].[Trans Code Description].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Trans_Group" Or Report.Parameters!pSummary2.Value = "Trans_Group" Or Report.Parameters!pSummary3.Value = "Trans_Group" Then
sOut = sOut & fPadMDX("[Transaction Codes].[Trans Group].[Trans Group].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Trans_Group_Description" Or Report.Parameters!pSummary2.Value = "Trans_Group_Description" Or Report.Parameters!pSummary3.Value = "Trans_Group_Description" Then
sOut = sOut & fPadMDX("[Transaction Codes].[Trans Group Description].[Trans Group Description].ALLMEMBERS") & "*"
End If
sOut = sOut & fPadMDX("[Biennium].[Biennium Hierarchy].[Fiscal Month].ALLMEMBERS") & "*"
sOut = sOut & fPadMDX("[Biennium].[Bien Month].[Bien Month].ALLMEMBERS") & "*"
sOut = sOut & fPadMDX("[Appropriation].[Appn Symbol Description].[Appn Symbol Description].ALLMEMBERS") & "*"
sOut = sOut & fPadMDX("[Object].[Category Description].[Category Description].ALLMEMBERS") & "*"
sOut = sOut & fPadMDX("[Process Date].[Calendar Year].[Calendar Year].ALLMEMBERS") & "*"
sOut = sOut & fPadMDX("[Process Date].[Calendar Month].[Calendar Month].ALLMEMBERS")
' Exclude capital construction costs here
If (Report.Parameters!pCapExpenses.Value = False) Then
sOut = sOut & "*UNION({[Fund].[Fund Type].&[CP]} * {[Fund].[Fund No].&[435]}"
sOut = sOut & ", EXCEPT([Fund].[Fund Type].[All].CHILDREN,[Fund].[Fund Type].&[CP])"
sOut = sOut & "*[Fund].[Fund No].[All].CHILDREN) "
' This commented out section would restrict to JUST capital construction costs
' else
' sOut = sOut & "*{[Fund].[Fund Type].&[CP]}"
' sOut = sOut & "*EXCEPT([Fund].[Fund No].[All].CHILDREN,[Fund].[Fund No].&[435])"
End If
sOut = sOut & "} DIMENSION PROPERTIES MEMBER_CAPTION, MEMBER_UNIQUE_NAME ON ROWS "
If (Report.Parameters!pLastCompletedPeriod.Value = "Month") And (Report.Parameters!BienniumBienniumHierarchy.Value = fReturnBienMDX(Now())) Then
sOut = sOut & "FROM (SELECT StrToMember('" & Report.Parameters!pFirstDayOfBiennium.Value & "', constrained):StrToMember('"
sOut = sOut & Report.Parameters!pLastFullMonthMDX.Value & "', constrained) ON COLUMNS "
iCriteria = iCriteria + 1
End If
If Not (instr(join(Report.Parameters!OrgLevel1.Value, ","), "All") > 0) Then
sOut = sOut & "FROM (SELECT StrToSet('{" & replace(Join(Report.Parameters!OrgLevel1.Value, ","), chr(39), chr(39) & chr(39)) & "}', constrained) ON COLUMNS "
iCriteria = iCriteria + 1
End If
If Not (instr(join(Report.Parameters!OrgLevel2.Value, ","), "All") > 0) Then
sOut = sOut & "FROM (SELECT StrToSet('{" & replace(Join(Report.Parameters!OrgLevel2.Value, ","), chr(39), chr(39) & chr(39)) & "}', constrained) ON COLUMNS "
iCriteria = iCriteria + 1
End If
If Not (instr(join(Report.Parameters!OrgLevel3.Value, ","), "All") > 0) Then
sOut = sOut & "FROM (SELECT StrToSet('{" & replace(Join(Report.Parameters!OrgLevel3.Value, ","), chr(39), chr(39) & chr(39)) & "}', constrained) ON COLUMNS "
iCriteria = iCriteria + 1
End If
If Not (instr(join(Report.Parameters!OrgUnitDescription.Value, ","), "All") > 0) Then
sOut = sOut & "FROM (SELECT StrToSet('{" & replace(Join(Report.Parameters!OrgUnitDescription.Value, ","), chr(39), chr(39) & chr(39)) & "}', constrained) ON COLUMNS "
iCriteria = iCriteria + 1
End If
If Not (instr(Report.Parameters!BienniumBienniumHierarchy.Value, "All") > 0) Then
sOut = sOut & "FROM (SELECT StrToSet('{" & Report.Parameters!BienniumBienniumHierarchy.Value & "}',CONSTRAINED) ON COLUMNS "
iCriteria = iCriteria + 1
End If
If Not (instr(join(Report.Parameters!Appropriation.Value, ","), "All") > 0) Then
sOut = sOut & "FROM (SELECT StrToSet('{" & join(Report.Parameters!Appropriation.Value, ",") & "}',CONSTRAINED) ON COLUMNS "
iCriteria = iCriteria + 1
End If
sOut = sOut & "FROM [HMI Finance]" & fStringClone(")", iCriteria)
sOut = sOut & " CELL PROPERTIES VALUE, BACK_COLOR, FORE_COLOR, FORMATTED_VALUE, FORMAT_STRING, FONT_NAME, FONT_SIZE, FONT_FLAGS;"
Return sOut
End Function
function 2
Private Function fPadMDX(ByVal sMember as string) as string
' Originally used this function to eliminate empty rows, but it caused
' other problems, so now we just return the member
' 04/02/2013 JC uncommented out the filtering due to empty members showing up
dim sOut as string
sOut = "Filter(nonempty(" & sMember
sOut = sOut & "),[Measures].[Op Bdgt Remaining]<>0 OR [Measures].[Encumbrance Amount]<>0 "
sOut = sOut & "OR [Measures].[Expenditure Amount]<>0 OR [Measures].[Operating Bdgt Amount]<>0)"
sOut = sMember
return sOut
end function
The parameter that I have added is shown below.
WITH MEMBER [Measures].[ParameterCaption] AS [Expenditure Group].[Expenditure Hierarchy].CURRENTMEMBER.MEMBER_CAPTION MEMBER [Measures].[ParameterValue] AS [Expenditure Group].[Expenditure Hierarchy].CURRENTMEMBER.UNIQUENAME MEMBER [Measures].[ParameterLevel]
AS [Expenditure Group].[Expenditure Hierarchy].CURRENTMEMBER.LEVEL.ORDINAL SELECT {[Measures].[ParameterCaption], [Measures].[ParameterValue], [Measures].[ParameterLevel]} ON COLUMNS , [Expenditure Group].[Expenditure Hierarchy].ALLMEMBERS ON ROWS FROM [HMI
Finance]
I am looking for a way to adjust function 1 to accomodate parameter Expenditure Group to return values.Right now it is only acting like a dummy variable.

Answer 1

function 1
Public Function fBudgetSummaryMDX() As String
Dim sOut As String
Dim iCriteria As Integer = 0
sOut = "SELECT NON EMPTY {[Measures].[Expenditure Amount],[Measures].[Operating Bdgt Amount],"
sOut = sOut & "[Measures].[Encumbrance Amount],[Measures].[Op Bdgt Remaining]} ON COLUMNS, NON EMPTY {"
If Instr(Report.Parameters!pSummary1.Value, "Resp_") > 0 Or Instr(Report.Parameters!pSummary2.Value, "Resp_") > 0 Or Instr(Report.Parameters!pSummary3.Value, "Resp_") > 0 Then
sOut = sOut & fPadMDX("[Responsible Unit].[Org Level FY].[Org Level FY].ALLMEMBERS") & "*"
sOut = sOut & fPadMDX("[Responsible Unit].[Org Level 1].[Org Level 1].ALLMEMBERS") & "*"
sOut = sOut & fPadMDX("[Responsible Unit].[Org Level 2].[Org Level 2].ALLMEMBERS") & "*"
sOut = sOut & fPadMDX("[Responsible Unit].[Org Level 3].[Org Level 3].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Resp_Org_Unit_Description" Or Report.Parameters!pSummary2.Value = "Resp_Org_Unit_Description" Or Report.Parameters!pSummary3.Value = "Resp_Org_Unit_Description" Then
sOut = sOut & fPadMDX("[Responsible Unit].[Org Unit Description].[Org Unit Description].ALLMEMBERS") & "*"
End If
If Instr(Report.Parameters!pSummary1.Value, "Charge_") > 0 Or instr(Report.Parameters!pSummary2.Value, "Charge_") > 0 Or instr(Report.Parameters!pSummary3.Value, "Charge_") > 0 Then
sOut = sOut & fPadMDX("[Charge Unit].[Org Level FY].[Org Level FY].ALLMEMBERS") & "*"
sOut = sOut & fPadMDX("[Charge Unit].[Org Level 1].[Org Level 1].ALLMEMBERS") & "*"
sOut = sOut & fPadMDX("[Charge Unit].[Org Level 2].[Org Level 2].ALLMEMBERS") & "*"
sOut = sOut & fPadMDX("[Charge Unit].[Org Level 3].[Org Level 3].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Charge_Org_Unit_Description" Or Report.Parameters!pSummary2.Value = "Charge_Org_Unit_Description" Or Report.Parameters!pSummary3.Value = "Charge_Org_Unit_Description" Then
sOut = sOut & fPadMDX("[Charge Unit].[Org Unit Description].[Org Unit Description].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Activity_Description" Or Report.Parameters!pSummary2.Value = "Activity_Description" Or Report.Parameters!pSummary3.Value = "Activity_Description" Then
sOut = sOut & fPadMDX("[Activity].[Activity Description].[Activity Description].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Object_Description" Or Report.Parameters!pSummary2.Value = "Object_Description" Or Report.Parameters!pSummary3.Value = "Object_Description" Then
sOut = sOut & fPadMDX("[Object].[Object Description].[Object Description].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Object_Detail_Description" Or Report.Parameters!pSummary2.Value = "Object_Detail_Description" Or Report.Parameters!pSummary3.Value = "Object_Detail_Description" Then
sOut = sOut & fPadMDX("[Object].[Object Detail Description].[Object Detail Description].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Revenue_Source_Description" Or Report.Parameters!pSummary2.Value = "Revenue_Source_Description" Or Report.Parameters!pSummary3.Value = "Revenue_Source_Description" Then
sOut = sOut & fPadMDX("[Revenue Source].[Revenue Source Description].[Revenue Source Description].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Agency_Source_Description" Or Report.Parameters!pSummary2.Value = "Agency_Source_Description" Or Report.Parameters!pSummary3.Value = "Agency_Source_Description" Then
sOut = sOut & fPadMDX("[Revenue Source].[Agency Source Description].[Agency Source Description].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "EA_Description" Or Report.Parameters!pSummary2.Value = "EA_Description" Or Report.Parameters!pSummary3.Value = "EA_Description" Then
sOut = sOut & fPadMDX("[EA].[EA Description].[EA Description].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "EA" Or Report.Parameters!pSummary2.Value = "EA" Or Report.Parameters!pSummary3.Value = "EA" Then
sOut = sOut & fPadMDX("[EA].[EA].[EA].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "EA_Subjob" Or Report.Parameters!pSummary2.Value = "EA_Subjob" Or Report.Parameters!pSummary3.Value = "EA_Subjob" Then
sOut = sOut & fPadMDX("[EA].[EA Subjob].[EA Subjob].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Fund_No_Description" Or Report.Parameters!pSummary2.Value = "Fund_No_Description" Or Report.Parameters!pSummary3.Value = "Fund_No_Description" Then
sOut = sOut & fPadMDX("[Fund].[Fund No Description].[Fund No Description].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Fund_Source_Description" Or Report.Parameters!pSummary2.Value = "Fund_Source_Description" Or Report.Parameters!pSummary3.Value = "Fund_Source_Description" Then
sOut = sOut & fPadMDX("[Fund].[Fund Source Description].[Fund Source Description].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Fund_Type_Description" Or Report.Parameters!pSummary2.Value = "Fund_Type_Description" Or Report.Parameters!pSummary3.Value = "Fund_Type_Description" Then
sOut = sOut & fPadMDX("[Fund].[Fund Type Description].[Fund Type Description].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Fund_Detl" Or Report.Parameters!pSummary2.Value = "Fund_Detl" Or Report.Parameters!pSummary3.Value = "Fund_Detl" Then
sOut = sOut & fPadMDX("[Fund].[Fund Detl].[Fund Detl].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Fund_Detail_Description" Or Report.Parameters!pSummary2.Value = "Fund_Detail_Description" Or Report.Parameters!pSummary3.Value = "Fund_Detail_Description" Then
sOut = sOut & fPadMDX("[Fund].[Fund Detail Description].[Fund Detail Description].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "EA_Class" Or Report.Parameters!pSummary2.Value = "EA_Class" Or Report.Parameters!pSummary3.Value = "EA_Class" Then
sOut = sOut & fPadMDX("[EA].[Report Class].[Report Class].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Rel_EA_Subjob" Or Report.Parameters!pSummary2.Value = "Rel_EA_Subjob" Or Report.Parameters!pSummary3.Value = "Rel_EA_Subjob" Or Report.Parameters!pSummary1.Value = "Rel_EA" Or Report.Parameters!pSummary2.Value = "Rel_EA" Or Report.Parameters!pSummary3.Value = "Rel_EA" Then
sOut = sOut & fPadMDX("[EA].[Rel EA Subjob].[Rel EA Subjob].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Rel_EA" Or Report.Parameters!pSummary2.Value = "Rel_EA" Or Report.Parameters!pSummary3.Value = "Rel_EA" Then
sOut = sOut & fPadMDX("[EA].[Rel EA].[Rel EA].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Trans_Code" Or Report.Parameters!pSummary2.Value = "Trans_Code" Or Report.Parameters!pSummary3.Value = "Trans_Code" Then
sOut = sOut & fPadMDX("[Transaction Codes].[Trans Cd].[Trans Cd].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Trans_Code_Description" Or Report.Parameters!pSummary2.Value = "Trans_Code_Description" Or Report.Parameters!pSummary3.Value = "Trans_Code_Description" Then
sOut = sOut & fPadMDX("[Transaction Codes].[Trans Code Description].[Trans Code Description].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Trans_Group" Or Report.Parameters!pSummary2.Value = "Trans_Group" Or Report.Parameters!pSummary3.Value = "Trans_Group" Then
sOut = sOut & fPadMDX("[Transaction Codes].[Trans Group].[Trans Group].ALLMEMBERS") & "*"
End If
If Report.Parameters!pSummary1.Value = "Trans_Group_Description" Or Report.Parameters!pSummary2.Value = "Trans_Group_Description" Or Report.Parameters!pSummary3.Value = "Trans_Group_Description" Then
sOut = sOut & fPadMDX("[Transaction Codes].[Trans Group Description].[Trans Group Description].ALLMEMBERS") & "*"
End If
sOut = sOut & fPadMDX("[Biennium].[Biennium Hierarchy].[Fiscal Month].ALLMEMBERS") & "*"
sOut = sOut & fPadMDX("[Biennium].[Bien Month].[Bien Month].ALLMEMBERS") & "*"
sOut = sOut & fPadMDX("[Appropriation].[Appn Symbol Description].[Appn Symbol Description].ALLMEMBERS") & "*"
sOut = sOut & fPadMDX("[Object].[Category Description].[Category Description].ALLMEMBERS") & "*"
sOut = sOut & fPadMDX("[Process Date].[Calendar Year].[Calendar Year].ALLMEMBERS") & "*"
sOut = sOut & fPadMDX("[Process Date].[Calendar Month].[Calendar Month].ALLMEMBERS")
' Exclude capital construction costs here
If (Report.Parameters!pCapExpenses.Value = False) Then
sOut = sOut & "*UNION({[Fund].[Fund Type].&[CP]} * {[Fund].[Fund No].&[435]}"
sOut = sOut & ", EXCEPT([Fund].[Fund Type].[All].CHILDREN,[Fund].[Fund Type].&[CP])"
sOut = sOut & "*[Fund].[Fund No].[All].CHILDREN) "
' This commented out section would restrict to JUST capital construction costs
' else
' sOut = sOut & "*{[Fund].[Fund Type].&[CP]}"
' sOut = sOut & "*EXCEPT([Fund].[Fund No].[All].CHILDREN,[Fund].[Fund No].&[435])"
End If
sOut = sOut & "} DIMENSION PROPERTIES MEMBER_CAPTION, MEMBER_UNIQUE_NAME ON ROWS "
If (Report.Parameters!pLastCompletedPeriod.Value = "Month") And (Report.Parameters!BienniumBienniumHierarchy.Value = fReturnBienMDX(Now())) Then
sOut = sOut & "FROM (SELECT StrToMember('" & Report.Parameters!pFirstDayOfBiennium.Value & "', constrained):StrToMember('"
sOut = sOut & Report.Parameters!pLastFullMonthMDX.Value & "', constrained) ON COLUMNS "
iCriteria = iCriteria + 1
End If
If Not (instr(join(Report.Parameters!OrgLevel1.Value, ","), "All") > 0) Then
sOut = sOut & "FROM (SELECT StrToSet('{" & replace(Join(Report.Parameters!OrgLevel1.Value, ","), chr(39), chr(39) & chr(39)) & "}', constrained) ON COLUMNS "
iCriteria = iCriteria + 1
End If
If Not (instr(join(Report.Parameters!OrgLevel2.Value, ","), "All") > 0) Then
sOut = sOut & "FROM (SELECT StrToSet('{" & replace(Join(Report.Parameters!OrgLevel2.Value, ","), chr(39), chr(39) & chr(39)) & "}', constrained) ON COLUMNS "
iCriteria = iCriteria + 1
End If
If Not (instr(join(Report.Parameters!OrgLevel3.Value, ","), "All") > 0) Then
sOut = sOut & "FROM (SELECT StrToSet('{" & replace(Join(Report.Parameters!OrgLevel3.Value, ","), chr(39), chr(39) & chr(39)) & "}', constrained) ON COLUMNS "
iCriteria = iCriteria + 1
End If
If Not (instr(join(Report.Parameters!OrgUnitDescription.Value, ","), "All") > 0) Then
sOut = sOut & "FROM (SELECT StrToSet('{" & replace(Join(Report.Parameters!OrgUnitDescription.Value, ","), chr(39), chr(39) & chr(39)) & "}', constrained) ON COLUMNS "
iCriteria = iCriteria + 1
End If
If Not (instr(Report.Parameters!BienniumBienniumHierarchy.Value, "All") > 0) Then
sOut = sOut & "FROM (SELECT StrToSet('{" & Report.Parameters!BienniumBienniumHierarchy.Value & "}',CONSTRAINED) ON COLUMNS "
iCriteria = iCriteria + 1
End If
If Not (instr(join(Report.Parameters!Appropriation.Value, ","), "All") > 0) Then
sOut = sOut & "FROM (SELECT StrToSet('{" & join(Report.Parameters!Appropriation.Value, ",") & "}',CONSTRAINED) ON COLUMNS "
iCriteria = iCriteria + 1
End If
sOut = sOut & "FROM [HMI Finance]" & fStringClone(")", iCriteria)
sOut = sOut & " CELL PROPERTIES VALUE, BACK_COLOR, FORE_COLOR, FORMATTED_VALUE, FORMAT_STRING, FONT_NAME, FONT_SIZE, FONT_FLAGS;"
Return sOut
End Function
function 2
Private Function fPadMDX(ByVal sMember as string) as string
' Originally used this function to eliminate empty rows, but it caused
' other problems, so now we just return the member
' 04/02/2013 JC uncommented out the filtering due to empty members showing up
dim sOut as string
sOut = "Filter(nonempty(" & sMember
sOut = sOut & "),[Measures].[Op Bdgt Remaining]<>0 OR [Measures].[Encumbrance Amount]<>0 "
sOut = sOut & "OR [Measures].[Expenditure Amount]<>0 OR [Measures].[Operating Bdgt Amount]<>0)"
sOut = sMember
return sOut
end function
The parameter I am suppose to add and I have added already is
WITH MEMBER [Measures].[ParameterCaption] AS [Expenditure Group].[Expenditure Hierarchy].CURRENTMEMBER.MEMBER_CAPTION MEMBER [Measures].[ParameterValue] AS [Expenditure Group].[Expenditure Hierarchy].CURRENTMEMBER.UNIQUENAME MEMBER [Measures].[ParameterLevel]
AS [Expenditure Group].[Expenditure Hierarchy].CURRENTMEMBER.LEVEL.ORDINAL SELECT {[Measures].[ParameterCaption], [Measures].[ParameterValue], [Measures].[ParameterLevel]} ON COLUMNS , [Expenditure Group].[Expenditure Hierarchy].ALLMEMBERS ON ROWS FROM [HMI
Finance]
I am trying to figure out a way to accomodate the parameter values into function 1 to return values.