Forum Discussion

osanalyst's avatar
osanalyst
New Contributor
2 years ago

GetDataCell in cube views of members based on criteria Text

Hi, there is a way to get the sum of the values of all the members that I filter with the text3? for example text3='Austria' In this case in Row1, I have E#Entity.Base.Where(Text3 = 'Austria'), whic...
Cube View
Parameters
Reports
osanalyst's avatar
osanalyst
New Contributor

I tried to use this business rule XFBR string but it doesn't work

Namespace OneStream.BusinessRule.DashboardStringFunction.CubeViewLists
Public Class MainClass
Public Function Main(ByVal si As SessionInfo, ByVal globals As BRGlobals, ByVal api As Object, ByVal args As DashboardStringFunctionArgs) As Object
Try
'-- Example Usage XFBR(CubeViewLists,GetSumMemberFormula,DimName=[|WFEntityDim|],MemberFilter=[])
If args.FunctionName.XFEqualsIgnoreCase("GetSumMemberFormula") Then
Dim strMbrFilter As String = args.NameValuePairs("MemberFilter")
Dim strDimName As String = args.NameValuePairs("DimName")

Dim dpk As DimPk = BRApi.Finance.Dim.GetDimPk(si, strDimName)
If dpk Is Nothing Then
Throw New XFException(si, "Error, specified dimension does not exist", strDimName)
Else
Dim lstMI As List(Of MemberInfo) = brapi.Finance.Members.GetMembersUsingFilter(si, dpk, strMbrFilter, True )

Dim strList As String = String.Join(" + ", (From l In lstMI Select "E#[" & l.Member.Name & "]").ToArray())
Return strList
End If

End If

Return Nothing
Catch ex As Exception
Throw ErrorHandler.LogWrite(si, New XFException(si, ex))
End Try
End Function
End Class
End Namespace

RobSnelson's avatar
RobSnelson
New Contributor III
2 years ago

What error are you getting?

This code should work, it includes the GetDataCell and Name as an additional argument:

Namespace OneStream.BusinessRule.DashboardStringFunction.CubeViewLists
Public Class MainClass
Public Function Main(ByVal si As SessionInfo, ByVal globals As BRGlobals, ByVal api As Object, ByVal args As DashboardStringFunctionArgs) As Object
Try
                If args.FunctionName.XFEqualsIgnoreCase("GetSumMemberFormula") Then
                    Dim strMbrFilter As String = args.NameValuePairs("MemberFilter")
                    Dim strDimName As String = args.NameValuePairs("DimName")
                    Dim strName As String = args.NameValuePairs("Name")
 
                    Dim dpk As DimPk = BRApi.Finance.Dim.GetDimPk(si, strDimName)
                    If dpk Is Nothing Then
                        Throw New XFException(si, "Error, specified dimension does not exist", strDimName)
                    Else
                        Dim lstMI As List(Of MemberInfo) = BRApi.Finance.Members.GetMembersUsingFilter(si, dpk, strMbrFilter, True)
 
                        Dim strList As String = String.Join(" + ", (From l In lstMI Select "E#[" & l.Member.Name & "]").ToArray())
 
'XFBR(CubeViewLists,GetSumMemberFormula,DimName=[MainEntityDim],MemberFilter=[E#Legal_Consol.Base.Where(Text1 = 'Test')],Name=[Total])
                        Return $"GetDataCell({strList}):Name({strName})"
                    End If
                End If
 
Return Nothing
Catch ex As Exception
Throw ErrorHandler.LogWrite(si, New XFException(si, ex))
End Try
End Function
End Class
End Namespace
  • osanalyst's avatar
    osanalyst
    New Contributor
    2 years ago

    When I first tried it, it worked. Now when I try to reopen the report it doesn't give me any errors, but I don't have the sum