ISExternalProvider.DeleteEntityId

Example

Delete the entity linked to the external provider.

sub main

  Dim aExtProvider 
  Dim aCode
  Dim aTr
  Dim aEntityCollection, aEntity
  Dim aMessage

  const aEntityIdentifier = "My identifier3"

  aCode = "1"
  Set aTr = Profile.StartMapTransaction
  set aExtProvider = Profile.LoadExternalProvider(aCode)
  aMessage = "BEFORE" & GetExtProvidersEntities(aExtProvider, aEntityIdentifier)

  set aEntityCollection = aExtProvider.GetEntityIdByIdentifier (aEntityIdentifier)
  for each aEntity in aEntityCollection
    aExtProvider.DeleteEntityId aEntity
  next
  aExtProvider.Save
 
  aTr.Commit

  set aTr = Profile.StartMapTransaction 
  Set aExtProvider = Profile.LoadExternalProvider(aCode) 

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

function GetExtProvidersEntities(aExtProvider, aEntityIdentifier)
  Dim aEntityCollection
  Dim aMessage
  
    set aEntityCollection = aExtProvider.GetEntityIdByIdentifier(aEntityIdentifier)
    aMessage = aMessage & vbNewLine & aExtProvider.FullName &_
      " has " & aEntityCollection.Count & " linked entities " &_
      " with identifier '" & aEntityIdentifier & "'" 

  GetExtProvidersEntities = aMessage
end function