Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Function EA_QueryAvailableCompartments(ByVal Repository As EA.Repository) As Object
EA_QueryAvailableCompartments = "deployed artifacts"
End Function
Function EA_GetCompartmentData(ByVal Repository As EA.Repository, ByVal sCompartment As String, ByVal sGUID As String, ByVal oType As EA.ObjectType) As Object
If Repository Is Nothing Then
EA_GetCompartmentData = ""
Exit Function
End If
Dim el As EA.Element
el = Repository.GetElementByGuid(sGUID)
Dim sData As String = ""
Dim sCompartmentData As String = ""
If el.Type = "Node" Then
Dim con As EA.Connector
For Each con In el.Connectors
If con.SupplierID = el.ElementID Then
If (sCompartment = "deployed artifacts" And con.Type = "Deployment") Then
Dim art As EA.Element
art = Repository.GetElementByID(con.ClientID)
If art.Type = "Artifact" Then
sData = sData + "Data&_eq_^" + art.Name + "&_sc_^"
sData = sData + "GUID&_eq_^" + art.ElementGUID + "&_sc_^,"
End If
End If
End If
Next
If sData <> "" Then
sCompartmentData = sCompartmentData + "Name=" + sCompartment + ";"
sCompartmentData = sCompartmentData + "OwnerGUID=" + sGUID + ";"
sCompartmentData = sCompartmentData + "Options=SkipIfOnDiagram&_eq_^1&_sc_^"
sCompartmentData = sCompartmentData + "CompartmentData=" + sData + ";"
End If
End If
EA_GetCompartmentData = sCompartmentData
End Function
