Vb code explanation

Question

' Exclude capital construction expenditures
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) "
'else
' Commented out because if it's true, we don't want to limit any results
' sOut = sOut & "*{[Fund].[Fund Type].&[CP]}"
' sOut = sOut & "*EXCEPT([Fund].[Fund No].[All].CHILDREN,[Fund].[Fund No].&[435])"
I know it is to exclude the capital construction expenditure as explained above but can you explain each line.
Thanks.

Answer 1

I was asked to add a new parameter (Project or Non-Project) to a report. The parameter for the summarized report is a dataset from a cube which is to drill through to an expense journal report. The drill through report whose data source is from a database.
For the previous report before adding the parameter it has been returning result, but after adding my parameter it returns nothing because of 1 of the filter selection FUND_NUMBER IN (ALL) but when I put a real value it returns result.I understand why it
is not returning any result. It is because in the database for that column .All is only applicable in dataset from analysis. My question now is I only added my column to the code. I did not touch anything else that reference that column so how come it
is an issue after I added my parameter since I guess the code has been designed to handle such before.
I have added the vb code both for the Monthly trend and Expense Journal. Please if you are good in vb please assist or if you have a suggestion.
I know the code looks lengthy but it is pretty much the same thing when you get the hand work of  1 line.Thanks
Public Function fMonthlyTrendsMDX() as string
Dim sOut as String
Dim iCriteria as Integer = 0
sOut = "SELECT NON EMPTY {[Measures].[" & Report.Parameters!pRevOrExp.Label & " Amount]} ON COLUMNS, NON EMPTY {"
if Report.Parameters!pSummary1.Value="Category_Description" or Report.Parameters!pSummary2.Value="Category_Description" or Report.Parameters!pSummary3.Value="Category_Description" then
sOut = sOut & fPadMDX("[Object].[Category Description].[Category Description].ALLMEMBERS",Report.Parameters!pRevOrExp.Label) & "*"
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",Report.Parameters!pRevOrExp.Label) & "*"
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",Report.Parameters!pRevOrExp.Label) & "*"
end if
if Report.Parameters!pSummary1.Value="Resp_Unit_Org_Level_1" or Report.Parameters!pSummary2.Value="Resp_Unit_Org_Level_1" or Report.Parameters!pSummary3.Value="Resp_Unit_Org_Level_1" then
sOut = sOut & fPadMDX("[Responsible Unit].[Org Level 1].[Org Level 1].ALLMEMBERS",Report.Parameters!pRevOrExp.Label) & "*"
end if
if Report.Parameters!pSummary1.Value="Resp_Unit_Org_Level_2" or Report.Parameters!pSummary2.Value="Resp_Unit_Org_Level_2" or Report.Parameters!pSummary3.Value="Resp_Unit_Org_Level_2" then
sOut = sOut & fPadMDX("[Responsible Unit].[Org Level 2].[Org Level 2].ALLMEMBERS",Report.Parameters!pRevOrExp.Label) & "*"
end if
if Report.Parameters!pSummary1.Value="Resp_Unit_Org_Level_3" or Report.Parameters!pSummary2.Value="Resp_Unit_Org_Level_3" or Report.Parameters!pSummary3.Value="Resp_Unit_Org_Level_3" then
sOut = sOut & fPadMDX("[Responsible Unit].[Org Level 3].[Org Level 3].ALLMEMBERS",Report.Parameters!pRevOrExp.Label) & "*"
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].[Org Unit].ALLMEMBERS",Report.Parameters!pRevOrExp.Label) & "*"
sOut = sOut & fPadMDX("[Responsible Unit].[Org Unit Description].[Org Unit Description].ALLMEMBERS",Report.Parameters!pRevOrExp.Label) & "*"
end if
if Report.Parameters!pSummary1.Value="Resp_Org_Unit" or Report.Parameters!pSummary2.Value="Resp_Org_Unit" or Report.Parameters!pSummary3.Value="Resp_Org_Unit" then
sOut = sOut & fPadMDX("[Responsible Unit].[Org Unit].[Org Unit].ALLMEMBERS",Report.Parameters!pRevOrExp.Label) & "*"
end if
if Report.Parameters!pSummary1.Value="Charge_Unit_Org_Level_1" or Report.Parameters!pSummary2.Value="Charge_Unit_Org_Level_1" or Report.Parameters!pSummary3.Value="Charge_Unit_Org_Level_1" then
sOut = sOut & fPadMDX("[Charge Unit].[Org Level 1].[Org Level 1].ALLMEMBERS",Report.Parameters!pRevOrExp.Label) & "*"
end if
if Report.Parameters!pSummary1.Value="Charge_Unit_Org_Level_2" or Report.Parameters!pSummary2.Value="Charge_Unit_Org_Level_2" or Report.Parameters!pSummary3.Value="Charge_Unit_Org_Level_2" then
sOut = sOut & fPadMDX("[Charge Unit].[Org Level 2].[Org Level 2].ALLMEMBERS",Report.Parameters!pRevOrExp.Label) & "*"
end if
if Report.Parameters!pSummary1.Value="Charge_Unit_Org_Level_3" or Report.Parameters!pSummary2.Value="Charge_Unit_Org_Level_3" or Report.Parameters!pSummary3.Value="Charge_Unit_Org_Level_3" then
sOut = sOut & fPadMDX("[Charge Unit].[Org Level 3].[Org Level 3].ALLMEMBERS",Report.Parameters!pRevOrExp.Label) & "*"
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].[Org Unit].ALLMEMBERS",Report.Parameters!pRevOrExp.Label) & "*"
sOut = sOut & fPadMDX("[Charge Unit].[Org Unit Description].[Org Unit Description].ALLMEMBERS",Report.Parameters!pRevOrExp.Label) & "*"
end if
if Report.Parameters!pSummary1.Value="Charge_Org_Unit" or Report.Parameters!pSummary2.Value="Charge_Org_Unit" or Report.Parameters!pSummary3.Value="Charge_Org_Unit" then
sOut = sOut & fPadMDX("[Charge Unit].[Org Unit].[Org Unit].ALLMEMBERS",Report.Parameters!pRevOrExp.Label) & "*"
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 & "NonEmpty([Activity].[Activity Description].[Activity Description].ALLMEMBERS)*"
end if
if Report.Parameters!pSummary1.Value="Appn_Symbol_Description" or Report.Parameters!pSummary2.Value="Appn_Symbol_Description" or Report.Parameters!pSummary3.Value="Appn_Symbol_Description" then
sOut = sOut & fPadMDX("[Appropriation].[Appn Symbol Description].[Appn Symbol Description].ALLMEMBERS",Report.Parameters!pRevOrExp.Label) & "*"
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]",Report.Parameters!pRevOrExp.Label) & "*"
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]",Report.Parameters!pRevOrExp.Label) & "*"
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]",Report.Parameters!pRevOrExp.Label) & "*"
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]",Report.Parameters!pRevOrExp.Label) & "*"
end if
if left(Report.Parameters!pSummary1.Value,6)="Rel_EA" or left(Report.Parameters!pSummary2.Value,6)="Rel_EA" or left(Report.Parameters!pSummary3.Value,6)="Rel_EA" then
sOut = sOut & fPadMDX("[EA].[Rel EA Description].[Rel EA Description]",Report.Parameters!pRevOrExp.Label) & "*"
sOut = sOut & fPadMDX("[EA].[Rel EA Subjob].[Rel EA Subjob]",Report.Parameters!pRevOrExp.Label) & "*"
sOut = sOut & fPadMDX("[EA].[Rel EA].[Rel EA]",Report.Parameters!pRevOrExp.Label) & "*"
end if
if Report.Parameters!pSummary1.Value="Fiscal_Year" or Report.Parameters!pSummary2.Value="Fiscal_Year" or Report.Parameters!pSummary3.Value="Fiscal_Year" then
sOut = sOut & fPadMDX("[Biennium].[Fiscal Year].[Fiscal Year].ALLMEMBERS",Report.Parameters!pRevOrExp.Label) & "*"
end if
if Report.Parameters!pSummary1.Value="Fiscal_Month" or Report.Parameters!pSummary2.Value="Fiscal_Month" or Report.Parameters!pSummary3.Value="Fiscal_Month" then
sOut = sOut & fPadMDX("[Biennium].[Fiscal Month].[Fiscal Month].ALLMEMBERS",Report.Parameters!pRevOrExp.Label) & "*"
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",Report.Parameters!pRevOrExp.Label) & "*"
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",Report.Parameters!pRevOrExp.Label) & "*"
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",Report.Parameters!pRevOrExp.Label) & "*"
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",Report.Parameters!pRevOrExp.Label) & "*"
end if
'if Report.Parameters!pSummary1.Value="Fund_Type" or Report.Parameters!pSummary2.Value="Fund_Type" or Report.Parameters!pSummary3.Value="Fund_Type" then
' sOut = sOut & fPadMDX("[Fund].[Fund Type].[Fund Type].ALLMEMBERS",Report.Parameters!pRevOrExp.Label) & "*"
'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",Report.Parameters!pRevOrExp.Label) & "*"
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",Report.Parameters!pRevOrExp.Label) & "*"
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",Report.Parameters!pRevOrExp.Label) & "*"
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",Report.Parameters!pRevOrExp.Label) & "*"
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",Report.Parameters!pRevOrExp.Label) & "*"
end if
sOut = sOut & fPadMDX("[Biennium].[Biennium Hierarchy].[Bien Name].ALLMEMBERS",Report.Parameters!pRevOrExp.Label) & "*"
sOut = sOut & fPadMDX("[" & Report.Parameters!pColumnGrouping.Label & "].[Calendar Year].[Calendar Year].ALLMEMBERS",Report.Parameters!pRevOrExp.Label) & "*"
sOut = sOut & fPadMDX("[" & Report.Parameters!pColumnGrouping.Label & "].[Calendar Month].[Calendar Month].ALLMEMBERS",Report.Parameters!pRevOrExp.Label)
if (Report.Parameters!pCapExpenses.Value=False) then
' Exclude capital construction expenditures
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) "
'else
' Commented out because if it's true, we don't want to limit any results
' 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(0) = 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!ActivityDescription.value,","),"All")>0) then
sOut = sOut & "FROM (SELECT StrToSet('{" & join(Report.Parameters!ActivityDescription.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
if not (instr(join(Report.Parameters!AgencySrcDesc.value,","),"All")>0) then
sOut = sOut & "FROM (SELECT StrToSet('{" & join(Report.Parameters!AgencySrcDesc.value,",") & "}',CONSTRAINED) ON COLUMNS "
iCriteria = iCriteria + 1
end if
if not (instr(join(Report.Parameters!EA.value,","),"All")>0) then
sOut = sOut & "FROM (SELECT StrToSet('{" & join(Report.Parameters!EA.value,",") & "}',CONSTRAINED) ON COLUMNS "
iCriteria = iCriteria + 1
end if
if not (instr(join(Report.Parameters!EAReportClass.value,","),"All")>0) then
sOut = sOut & "FROM (SELECT StrToSet('{" & join(Report.Parameters!EAReportClass.value,",") & "}',CONSTRAINED) ON COLUMNS "
iCriteria = iCriteria + 1
end if
if not (instr(join(Report.Parameters!EASubJob.value,","),"All")>0) then
sOut = sOut & "FROM (SELECT StrToSet('{" & join(Report.Parameters!EASubJob.value,",") & "}',CONSTRAINED) ON COLUMNS "
iCriteria = iCriteria + 1
end if
if not (instr(join(Report.Parameters!EASubjobDesc.value,","),"All")>0) then
sOut = sOut & "FROM (SELECT StrToSet('{" & join(Report.Parameters!EASubjobDesc.value,",") & "}',CONSTRAINED) ON COLUMNS "
iCriteria = iCriteria + 1
end if
if not (instr(join(Report.Parameters!FundNo.value,","),"All")>0) then
sOut = sOut & "FROM (SELECT StrToSet('{" & join(Report.Parameters!FundNo.value,",") & "}',CONSTRAINED) ON COLUMNS "
iCriteria = iCriteria + 1
end if
if not (instr(join(Report.Parameters!FundNoDescription.value,","),"All")>0) then
sOut = sOut & "FROM (SELECT StrToSet('{" & join(Report.Parameters!FundNoDescription.value,",") & "}',CONSTRAINED) ON COLUMNS "
iCriteria = iCriteria + 1
end if
if not (instr(join(Report.Parameters!FundDetailDescription.value,","),"All")>0) then
sOut = sOut & "FROM (SELECT StrToSet('{" & join(Report.Parameters!FundDetailDescription.value,",") & "}',CONSTRAINED) ON COLUMNS "
iCriteria = iCriteria + 1
end if
if not (instr(join(Report.Parameters!FundDetl.value,","),"All")>0) then
sOut = sOut & "FROM (SELECT StrToSet('{" & join(Report.Parameters!FundDetl.value,",") & "}',CONSTRAINED) ON COLUMNS "
iCriteria = iCriteria + 1
end if
if not (instr(join(Report.Parameters!FiscalMonth.value,","),"All")>0) then
sOut = sOut & "FROM (SELECT StrToSet('{" & join(Report.Parameters!FiscalMonth.value,",") & "}',CONSTRAINED) ON COLUMNS "
iCriteria = iCriteria + 1
end if
if not (instr(join(Report.Parameters!FiscalYear.value,","),"All")>0) then
sOut = sOut & "FROM (SELECT StrToSet('{" & join(Report.Parameters!FiscalYear.value,",") & "}',CONSTRAINED) ON COLUMNS "
iCriteria = iCriteria + 1
end if
if not (instr(join(Report.Parameters!FundSrcDesc.value,","),"All")>0) then
sOut = sOut & "FROM (SELECT StrToSet('{" & join(Report.Parameters!FundSrcDesc.value,",") & "}',CONSTRAINED) ON COLUMNS "
iCriteria = iCriteria + 1
end if
if not (instr(join(Report.Parameters!FundType.value,","),"All")>0) then
sOut = sOut & "FROM (SELECT StrToSet('{" & join(Report.Parameters!FundType.value,",") & "}',CONSTRAINED) ON COLUMNS "
iCriteria = iCriteria + 1
end if
if not (instr(join(Report.Parameters!FundTypeDesc.value,","),"All")>0) then
sOut = sOut & "FROM (SELECT StrToSet('{" & join(Report.Parameters!FundTypeDesc.value,",") & "}',CONSTRAINED) ON COLUMNS "
iCriteria = iCriteria + 1
end if
if not (instr(join(Report.Parameters!RelEA.value,","),"All")>0) then
sOut = sOut & "FROM (SELECT StrToSet('{" & join(Report.Parameters!RelEA.value,",") & "}',CONSTRAINED) ON COLUMNS "
iCriteria = iCriteria + 1
end if
if not (instr(join(Report.Parameters!RelEADesc.value,","),"All")>0) then
sOut = sOut & "FROM (SELECT StrToSet('{" & join(Report.Parameters!RelEADesc.value,",") & "}',CONSTRAINED) ON COLUMNS "
iCriteria = iCriteria + 1
end if
if not (instr(join(Report.Parameters!RelEASubjob.value,","),"All")>0) then
sOut = sOut & "FROM (SELECT StrToSet('{" & join(Report.Parameters!RelEASubjob.value,",") & "}',CONSTRAINED) ON COLUMNS "
iCriteria = iCriteria + 1
end if
if not (instr(join(Report.Parameters!RevenueSrcDesc.value,","),"All")>0) then
sOut = sOut & "FROM (SELECT StrToSet('{" & join(Report.Parameters!RevenueSrcDesc.value,",") & "}',CONSTRAINED) ON COLUMNS "
iCriteria = iCriteria + 1
end if
if not (instr(join(Report.Parameters!TransCode.value,","),"All")>0) then
sOut = sOut & "FROM (SELECT StrToSet('{" & join(Report.Parameters!TransCode.value,",") & "}',CONSTRAINED) ON COLUMNS "
iCriteria = iCriteria + 1
end if
if not (instr(join(Report.Parameters!TransCodeDesc.value,","),"All")>0) then
sOut = sOut & "FROM (SELECT StrToSet('{" & join(Report.Parameters!TransCodeDesc.value,",") & "}',CONSTRAINED) ON COLUMNS "
iCriteria = iCriteria + 1
end if
if not (instr(join(Report.Parameters!TransGroup.value,","),"All")>0) then
sOut = sOut & "FROM (SELECT StrToSet('{" & join(Report.Parameters!TransGroup.value,",") & "}',CONSTRAINED) ON COLUMNS "
iCriteria = iCriteria + 1
end if
if not (instr(join(Report.Parameters!TransGroupDesc.value,","),"All")>0) then
sOut = sOut & "FROM (SELECT StrToSet('{" & join(Report.Parameters!TransGroupDesc.value,",") & "}',CONSTRAINED) ON COLUMNS "
iCriteria = iCriteria + 1
end if
if not (instr(join(Report.Parameters!ObjectCategoryDescription.value,","),"All")>0) then
sOut = sOut & "FROM (SELECT StrToSet('{" & join(Report.Parameters!ObjectCategoryDescription.value,",") & "}',CONSTRAINED) ON COLUMNS "
iCriteria = iCriteria + 1
end if
if not (instr(join(Report.Parameters!ObjectObjectDescription.value,","),"All")>0) then
sOut = sOut & "FROM (SELECT StrToSet('{" & join(Report.Parameters!ObjectObjectDescription.value,",") & "}',CONSTRAINED) ON COLUMNS "
iCriteria = iCriteria + 1
end if
if not (instr(join(Report.Parameters!ObjectDetailDescription.value,","),"All")>0) then
sOut = sOut & "FROM (SELECT StrToSet('{" & join(Report.Parameters!ObjectDetailDescription.value,",") & "}',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(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!BienniumBienniumHierarchy.value,","),"All")>0) then
sOut = sOut & "FROM (SELECT StrToSet('{" & join(Report.Parameters!BienniumBienniumHierarchy.value,",") & "}',CONSTRAINED) ON COLUMNS "
iCriteria = iCriteria + 1
end if
if Report.Parameters!pRevOrExp.Label = "Expenditure" then
sOut = sOut & "from (select ([Transaction Codes].[Trans Group].&[3500]) on columns "
sOut = sOut & "from (select except([Object].[Category Description].members, {[Object].[Category Description].&[9]}) on 0 "
iCriteria = iCriteria + 2
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
Public Function fGenAuditTrailQuery() as String
' For any Summary or column parms that have EASJ as the value, this is a calculated
' column made up of the EA and SUBJOB columns. Due to this, we need to detect
' when the EASJ value has been selected so we get the EA and SUBJOB columns to use
' in the calculation
' Same with VENDOR_NO_SFX -- calculated column, so we need to grab the appropriate
' columns to create it (VENDOR_NO and VENDOR_SFX)
Dim sOut as String
' Limit results to the pRecordsLimit parameter if it is populated
if Report.Parameters!pRecordsLimit.Value IsNot Nothing then
sOut = "SELECT top " & Report.Parameters!pRecordsLimit.Value & " "
else
sOut = "SELECT "
end if
' Column1 select
if Report.Parameters!pColumn1.Value = "EASJ" then
sOut = sOut & "EA, SUBJOB, "
elseif Report.Parameters!pColumn1.Value = "REL_EASJ" then
sOut = sOut & "REL_EA, REL_SUBJOB, "
elseif LEFT(Report.Parameters!pColumn1.Value,8) = "VENDOR_N" then
sOut = sOut & "VENDOR_NO, VENDOR_SFX, VENDOR_NAME, "
else
sOut = sOut & Report.Parameters!pColumn1.Value & ", "
end if
' Column2 select
if Report.Parameters!pColumn2.Value = "EASJ" then
sOut = sOut & "EA, SUBJOB, "
elseif Report.Parameters!pColumn2.Value = "REL_EASJ" then
sOut = sOut & "REL_EA, REL_SUBJOB, "
elseif LEFT(Report.Parameters!pColumn2.Value,8) = "VENDOR_N" then
sOut = sOut & "VENDOR_NO, VENDOR_SFX, VENDOR_NAME, "
else
sOut = sOut & Report.Parameters!pColumn2.Value & ", "
end if
' Column3 through Column6 select
sOut = sOut & Report.Parameters!pColumn3.Value & ", "
sOut = sOut & Report.Parameters!pColumn4.Value & ", "
sOut = sOut & Report.Parameters!pColumn5.Value & ", "
sOut = sOut & Report.Parameters!pColumn6.Value & ", "
' Column7 select
if Report.Parameters!pColumn7.Value = "EASJ" then
sOut = sOut & "EA, SUBJOB, "
elseif Report.Parameters!pColumn7.Value = "REL_EASJ" then
sOut = sOut & "REL_EA, REL_SUBJOB, "
elseif LEFT(Report.Parameters!pColumn7.Value,8) = "VENDOR_N" then
sOut = sOut & "VENDOR_NO, VENDOR_SFX, VENDOR_NAME, "
else
sOut = sOut & Report.Parameters!pColumn7.Value & ", "
end if
' Column8 select
if Report.Parameters!pColumn8.Value = "EASJ" then
sOut = sOut & "EA, SUBJOB, "
elseif Report.Parameters!pColumn8.Value = "REL_EASJ" then
sOut = sOut & "REL_EA, REL_SUBJOB, "
elseif LEFT(Report.Parameters!pColumn8.Value,8) = "VENDOR_N" then
sOut = sOut & "VENDOR_NO, VENDOR_SFX, VENDOR_NAME, "
else
sOut = sOut & Report.Parameters!pColumn8.Value & ", "
end if
' Column9 select
if Report.Parameters!pColumn9.Value = "EASJ" then
sOut = sOut & "EA, SUBJOB, "
elseif Report.Parameters!pColumn9.Value = "REL_EASJ" then
sOut = sOut & "REL_EA, REL_SUBJOB, "
elseif LEFT(Report.Parameters!pColumn9.Value,8) = "VENDOR_N" then
sOut = sOut & "VENDOR_NO, VENDOR_SFX, VENDOR_NAME, "
else
sOut = sOut & Report.Parameters!pColumn9.Value & ", "
end if
' Include columns if they were used to groupby
if Report.Parameters!pSummary1.Value = "EASJ" then
sOut = sOut & "EA, SUBJOB, "
elseif Report.Parameters!pSummary1.Value = "VENDOR_NO_SFX" then
sOut = sOut & "VENDOR_NO, VENDOR_SFX, "
elseif Report.Parameters!pSummary1.Value="RESPONSIBLE_UNIT" then
sOut = sOut & "RESPONSIBLE_UNIT, "
elseif Report.Parameters!pSummary1.Value="CHRGE_UNIT" then
sOut = sOut & "CHRGE_UNIT, "
elseif Report.Parameters!pSummary1.Value = "REL_EASJ" then
sOut = sOut & "REL_EA, REL_SUBJOB, "
else
sOut = sOut & Report.Parameters!pSummary1.Value & ", "
end if
if Report.Parameters!pSummary2.Value = "EASJ" then
sOut = sOut & "EA, SUBJOB, "
elseif left(Report.Parameters!pSummary2.Value,8) = "VENDOR_N" then
sOut = sOut & "VENDOR_NO, VENDOR_SFX, VENDOR_NAME, "
elseif Report.Parameters!pSummary2.Value="RESPONSIBLE_UNIT" then
sOut = sOut & "RESPONSIBLE_UNIT, "
elseif Report.Parameters!pSummary2.Value="CHRGE_UNIT" then
sOut = sOut & "CHRGE_UNIT, "
elseif Report.Parameters!pSummary2.Value = "REL_EASJ" then
sOut = sOut & "REL_EA, REL_SUBJOB, "
else
sOut = sOut & Report.Parameters!pSummary2.Value & ", "
end if
if Report.Parameters!pSummary3.Value = "EASJ" then
sOut = sOut & "EA, SUBJOB, "
elseif Report.Parameters!pSummary3.Value = "VENDOR_NO_SFX" then
sOut = sOut & "VENDOR_NO, VENDOR_SFX, "
elseif Report.Parameters!pSummary3.Value="RESPONSIBLE_UNIT" then
sOut = sOut & "RESPONSIBLE_UNIT, "
elseif Report.Parameters!pSummary3.Value="CHRGE_UNIT" then
sOut = sOut & "CHRGE_UNIT, "
elseif Report.Parameters!pSummary3.Value = "REL_EASJ" then
sOut = sOut & "REL_EA, REL_SUBJOB, "
else
sOut = sOut & Report.Parameters!pSummary3.Value & ", "
end if
' Always include the following columns
sOut = sOut & " FUND_SPLT_SEQ_NO, DUP_REC_IND, FISCAL_YEAR, FISCAL_MONTH, BATCH_AGENCY, BATCH_DATE, BATCH_TYPE, BATCH_NO, DOC_INDEX, LINE_NO, RECORD_NO, "
sOut = sOut & "ORG_LEVEL, ORG_LEVEL_1, ORG_LEVEL_2, ORG_LEVEL_3, RESP_UNIT_LEVL_1, RESP_UNIT_LEVL_2, RESP_UNIT_LEVL_3,OBJECT, CATEGORY "
' Logic to query the correct audittrail table depends on
' the pBiennium parm and that the audittrail table is named
' appropriately.
' Current biennium should always be STG_FMPROD_V_AUDITTRAIL_CURR
' Previous bienniums are STG_FMPROD_V_AUDITTRAIL_BI_XX
' Someday in the future, this naming schema will have to change
' because the biennium numbering will hit 99, then roll over to 01 again
sOut = sOut & " FROM dbo.STG_FMPROD_V_AUDITTRAIL_"
If Right(fReturnBien(Now()),2) = Right(Report.Parameters!pBiennium.Value, 2) then
' pBiennium value is in the current biennium, use CURR
sOut = sOut & "CURR "
else
' pBiennium value is in a previous biennium, use it
sOut = sOut & "BI_" & Right(Report.Parameters!pBiennium.Value,2) & " "
end if
sOut = sOut & "WHERE"
' We only want expenditures. This could obviously be put into a parm, but for now we just hard coded it
sOut = sOut & " TRANS_CODE IN (SELECT TRANS_CODE FROM STG_FMTMPROD_V_TRANS_DECISION where trans_group = 3500)"
' Per the requirements, we are not including anything from category 9
sOut = sOut & " AND CATEGORY <> '9'"
' Capital expenditures or non-capital expenditures determined here
if (Report.Parameters!pCapExpenses.Value = False) then
' Exclude capital expenditures
sOut = sOut & " AND (FUND_TYPE <> 'CP' or FUND_NUMBER = '435')"
end if
if (Report.Parameters!pDateBegin.Value IsNot Nothing) and (Report.Parameters!pDateEnd.Value IsNot Nothing) Then
sOut = sOut & " AND PROCESS_DATE BETWEEN '" & Report.Parameters!pDateBegin.Value & "'"
sOut = sOut & " AND '" & Report.Parameters!pDateEnd.Value & "'"
end if
if Report.Parameters!RESPONSIBLE_UNIT.Value IsNot Nothing THEN
sOut = sOut & " and RESPONSIBLE_UNIT IN ('" & Replace(Report.Parameters!RESPONSIBLE_UNIT.Value,",","','") & "')"
end if
if Report.Parameters!FISCAL_YEAR.Value IsNot Nothing THEN
sOut = sOut & " and FISCAL_YEAR = '" & Report.Parameters!FISCAL_YEAR.Value & "'"
end if
if Report.Parameters!FISCAL_MONTH.Value IsNot Nothing THEN
sOut = sOut & " and FISCAL_MONTH = '" & Report.Parameters!FISCAL_MONTH.Value & "'"
end if
if Report.Parameters!RESP_UNIT_LEVL_1.Value IsNot Nothing THEN
sOut = sOut & " and RESP_UNIT_LEVL_1 IN ('" & Replace(Report.Parameters!RESP_UNIT_LEVL_1.Value,",","','") & "')"
end if
if Report.Parameters!RESP_UNIT_LEVL_2.Value IsNot Nothing THEN
sOut = sOut & " and RESP_UNIT_LEVL_2 IN ('" & Replace(Report.Parameters!RESP_UNIT_LEVL_2.Value,",","','") & "')"
end if
if Report.Parameters!RESP_UNIT_LEVL_3.Value IsNot Nothing THEN
sOut = sOut & " and RESP_UNIT_LEVL_3 IN ('" & Replace(Report.Parameters!RESP_UNIT_LEVL_3.Value,",","','") & "')"
end if
if Report.Parameters!CHRGE_UNIT.Value IsNot Nothing THEN
sOut = sOut & " and CHRGE_UNIT IN ('" & Replace(Report.Parameters!CHRGE_UNIT.Value,",","','") & "')"
end if
if Report.Parameters!ORG_LEVEL_1.Value IsNot Nothing THEN
sOut = sOut & " and ORG_LEVEL_1 IN ('" & Replace(Report.Parameters!ORG_LEVEL_1.Value,",","','") & "')"
end if
if Report.Parameters!ORG_LEVEL_2.Value IsNot Nothing THEN
sOut = sOut & " and ORG_LEVEL_2 IN ('" & Replace(Report.Parameters!ORG_LEVEL_2.Value, ",","','") & "')"
end if
if Report.Parameters!ORG_LEVEL_3.Value IsNot Nothing THEN
sOut = sOut & " and ORG_LEVEL_3 IN ('" & Replace(Report.Parameters!ORG_LEVEL_3.Value, ",","','") & "')"
end if
if Report.Parameters!CATEGORY.Value IsNot Nothing THEN
sOut = sOut & " and CATEGORY IN ('" & Replace(Report.Parameters!CATEGORY.Value,",","','") & "')"
end if
if Report.Parameters!OBJECT.Value IsNot Nothing THEN
sOut = sOut & " and OBJECT IN ('" & Replace(Report.Parameters!OBJECT.Value, ",","','") & "')"
end if
if Report.Parameters!OBJ_DETL.Value IsNot Nothing THEN
sOut = sOut & " and OBJ_DETL IN ('" & Replace(Report.Parameters!OBJ_DETL.Value, ",","','") & "')"
end if
if Report.Parameters!APPN_SYMBOL.Value IsNot Nothing THEN
sOut = sOut & " and APPN_SYMBOL IN ('" & Replace(Report.Parameters!APPN_SYMBOL.Value,",","','") & "')"
end if
if Report.Parameters!EA.Value IsNot Nothing THEN
' Gotta do some wizardry here in case the EA value contains EA SubJob or EA SubJob Description
sOut = sOut & " and EA IN ('" & Replace(fStripEA(Report.Parameters!EA.Value),",","','") & "')"
if InStr(1, Report.Parameters!EA.Value, " - ")>0 then
' parameter contains subjob, parse that out
sOut = sOut & " and SUBJOB IN ('" & Replace(fStripSJ(Report.Parameters!EA.Value),",","','") & "')"
end if
end if
if Report.Parameters!REL_EA.Value IsNot Nothing THEN
sOut = sOut & " and REL_EA IN ('" & Replace(fStripEA(Report.Parameters!REL_EA.Value),",","','") & "')"
if InStr(1, Report.Parameters!REL_EA.Value, " - ")>0 then
' parameter contains subjob, parse that out
sOut = sOut & " and REL_SUBJOB IN ('" & Replace(fStripSJ(Report.Parameters!REL_EA.Value),",","','") & "')"
end if
end if
if Report.Parameters!ACTIVITY.Value IsNot Nothing THEN
sOut = sOut & " and ACTIVITY IN ('" & Replace(Report.Parameters!ACTIVITY.Value,",","','") & "')"
end if
if Report.Parameters!TRANS_CODE.Value IsNot Nothing THEN
sOut = sOut & " and TRANS_CODE IN ('" & Replace(Report.Parameters!TRANS_CODE.Value,",","','") & "')"
end if
if Report.Parameters!FUND_NUMBER.Value IsNot Nothing THEN
sOut = sOut & " and FUND_NUMBER IN ('" & Replace(Report.Parameters!FUND_NUMBER.Value,",","','") & "')"
end if
if Report.Parameters!FUND_DETAIL.Value IsNot Nothing THEN
sOut = sOut & " and FUND_DETAIL IN ('" & Replace(Report.Parameters!FUND_DETAIL.Value,",","','") & "')"
end if
if Report.Parameters!FUND_SOURCE.Value IsNot Nothing THEN
sOut = sOut & " and FUND_SOURCE IN ('" & Replace(Report.Parameters!FUND_SOURCE.Value,",","','") & "')"
end if
if Report.Parameters!FUND_TYPE.Value IsNot Nothing THEN
sOut = sOut & " and FUND_TYPE IN ('" & Replace(Report.Parameters!FUND_TYPE.Value,",","','") & "')"
end if
sOut = sOut & " ORDER BY PROCESS_DATE DESC"
return sOut
End Function