Forum Discussion

NicolasArgente's avatar
NicolasArgente
Valued Contributor
2 years ago

How to delete all relationships of a TOP dimension member? (or orphans all members below a TOP mb)

Hi there, I have a dimension with 10 000 members under a TOP member. I can delete all of the relationships below TOP running :   BRApi.Finance.MemberAdmin.RemoveRelationships However, it is extr...
Metadata
JennyCalvache's avatar
JennyCalvache
New Contributor III
10 months ago

I think I figure it out.

Dim ParentGroup As String = args.NameValuePairs.XFGetValue("ParentGroup")
 
Dim osAccountMember As Member = BRApi.Finance.Members.GetMember(si, dimtypeid.Account, ParentGroup)
Dim actDimPk As DimPk = BRApi.Finance.Dim.GetDimPk(si, "ST_Accounts")
Dim osBaseList As list(Of Member) = BRApi.Finance.Members.GetChildren(si, actDimPk, osAccountMember.MemberId)
For Each baseMember As Member In osBaseList'osBaseList
'===Remove first====
Dim PId As Integer = BRApi.Finance.Members.GetMemberId(si, dimTypeId.Account, osAccountMember.Name)
Dim myId As Integer = BRApi.Finance.Members.GetMemberId(si, dimTypeId.Account, baseMember.Name)
Dim relationshipPks As New List(Of RelationshipPk)
Dim RelPk As New RelationshipPk(actDimPk.DimTypeId, PId, myId)
relationshipPks.Add(RelPk)
 
BRApi.Finance.MemberAdmin.RemoveRelationships(si, actDimPk, relationshipPks, True)
 
Next