ISOrgMember.DeleteEntityId

Example

Delete the entity linked to the organisation node.

sub main

  Dim aFilter
  Dim aOrgMember
  Dim aOrgMembers
  Dim aEntityCollection
  Dim aMessage

  const aEntityIdentifier = "My identifier3"

  Set aFilter = Profile.CreateOrgMembersFilter
  set tr = Profile.StartMapTransaction
  set aOrgMembers = Profile.LoadOrgMembers(aFilter)
  aMessage = "BEFORE" & vbNewLine & GetOrgMembersEntities(aOrgMembers, aEntityIdentifier)

  for each aOrgMember in aOrgMembers
    set aEntityCollection = aOrgMember.GetEntityIdByIdentifier (aEntityIdentifier)
    for each aEntity in aEntityCollection
      aOrgMember.DeleteEntityId aEntity
    next
  next  
  tr.Commit

  set tr = Profile.StartMapTransaction 
  set aOrgMembers = Profile.LoadOrgMembers(aFilter)

  aMessage = aMessage & vbNewLine & vbNewLine &_
    "AFTER" & vbNewLine & GetOrgMembersEntities(aOrgMembers, aEntityIdentifier) 
 
  Profile.MsgBox (aMessage)
end sub

function GetOrgMembersEntities(aOrgMembers, aEntityIdentifier)
  Dim aOrgMember
  Dim aEntityCollection
  Dim aMessage
  
  for each aOrgMember in aOrgMembers
    set aEntityCollection = aOrgMember.GetEntityIdByIdentifier (aEntityIdentifier)
    aMessage = aMessage & vbNewLine & aOrgMember.Name &_
      " has " & aEntityCollection.Count & " linked entities "
  next 
 
  aMessage = _
    "The number of the org nodes is " & aOrgMembers.Count & vbNewLine & aMessage       

  GetOrgMembersEntities = aMessage
end function