Retrieve Parent property

Philip:

In our instance, we built a DynamicCalc formula in UD8 dimension to get the parent of a UD4 member.

This could be modified to get an Entity’s parent based on its relationship properties such as Parent Sort Order, Text1 to Text 8.

' Derive Industry for selected Entity. 

If      api.View.IsAnnotationType(api.Pov.View.MemberId) _ 
    And api.Members.IsBase(api.Pov.EntityDim.DimPk, _ 
                           api.Members.GetMemberId(api.Pov.Entity.DimTypeId, _ 
                                                   "PLConsMgmt"), _ 
                           api.Pov.Entity.MemberId) _ 
Then 
    
    Dim Result As String = String.Empty 
    
    ' Customer set as Entity Text4 property by Scenario/Time. 
    Dim Customer As String = api.Entity.Text(api.Pov.Entity.MemberId, _ 
                                             4, _ 
                                             api.Pov.Scenario.MemberId, _ 
                                             api.Pov.Time.MemberId) 
    If Not String.IsNullOrEmpty(Customer) Then 
        
        ' Customer is member of Customers UD4 dimension. 
        Dim CustomerId As Integer = api.Members.GetMemberId(DimType.UD4.Id, _ 
                                                            Customer) 
        If Not CustomerId = -1 Then 
            
            ' Get Customer's Parent. 
            Dim oParents As List(Of Member) = api.Members.GetParents(api.Pov.UD4Dim.DimPk, _ 
                                                                     CustomerId, _ 
                                                                     False) 
            If oParents.Count > 0 Then 
                For i As Integer = 0 To oParents.Count - 1 
                    
                    ' Industry is child of UD4 Customers and parent of Customer. 
                    If api.Members.IsChild(api.Pov.UD4Dim.DimPk, _ 
                                           api.Members.GetMemberId(api.Pov.UD4.DimTypeId, _ 
                                                                   "Customers"), _ 
                                           api.Members.GetMemberId(api.Pov.UD4.DimTypeId, _ 
                                                                   oParents.Item(i).Name)) _ 
                    Then 
                        Result = oParents.Item(i).Name 
                        Exit For 
                    Else 
                        If api.Members.IsBase(api.Pov.UD4Dim.DimPk, _ 
                                              api.Members.GetMemberId(api.Pov.UD4.DimTypeId, _ 
                                                                      "Customers"), _ 
                                              CustomerId) _ 
                        Then 
                            
                            ' Customer not assigned to an industry. 
                            Result = "NoIndustry" 
                        Else 
                            
                            ' UD4 member is not a customer. 
                            Return Nothing 
                        End If 
                    End If 
                Next 
            Else 
                
                ' Member has no parents. 
                Result = "#ERROR: Orphaned Customer" 
            End If 
        Else 
            
            ' Entity Text4 property does not identify a valid customer. 
            Result = "#ERROR: Invalid Customer" 
        End If 
    Else 
        
        ' Entity Text4 property is blank. Not assigned to a customer. 
        Result = "NoIndustry" 
    End If 
    
    ' Return result setting cell status as NoData for suppression. 
    Dim oDataCellEx As DataCellEx = New DataCellEx() 
    oDataCellEx.DataCell.CellStatus = New DataCellStatus(False) 
    oDataCellEx.DataCellAnnotation = Result 
    Return oDataCellEx 
End If 

Return Nothing

In a quick view, we are able to list entities with its assigned industry.