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 extremely slow as it does it one by one, so it takes hours.
The same thing with the XML load is a load faster.
  <relationship parent="TOPTOP" child="XXXX" action="Delete" />

Any BR to upload the XML or other clever ideas?

Thanks One Team ! 

Metadata
  • NicolasArgente's avatar
    NicolasArgente
    Valued Contributor
    2 years ago

    OK got it solved using the BR. It runs fast now. I made a mistake... 🙂

    I still would be interested if someone ever load an XML of metadata from a BR. Thanks Team!

    • ckattookaran's avatar
      ckattookaran
      VIP
      2 years ago

      Try using XmlLoadWcf.StartLoadXml, you need to provide either supply the XML content as a string or if it is zipfile then provide the bytes of the zip, then the type of ApplicationXmlFileType.

  • JennyCalvache's avatar
    JennyCalvache
    New Contributor III
    10 months ago

    Hello,

    Do you have any working codes to removeRelationships from an account group such as "Expense"?

    Thanks!

  • 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