Agregar un Conector

Tema

Detalle

public Object

"Agregar un conector y configurar valores.

Sub ConnectorTest

Dim source as object

Dim target as object

Dim con as object

Dim o as object

Dim client as object

Dim supplier as object

''utilizar ElementIDs para cargar rápidamente un elemento en éste ejemplo

''... debe encontrar un ID aceptable en su modelo

source = m_Repository.GetElementByID(129)

target = m_Repository.GetElementByID(169)

con = source.Connectors.AddNew ("test link 2", "Association")

''otra vez- reemplace el ID con uno aceptable de su modelo

con.SupplierID = 169

If not con.Update Then

Console.WriteLine(con.GetLastError)

End If

source.Connectors.Refresh

Console.WriteLine("Connector Created")

o = con.Constraints.AddNew ("constraint2","type")

If not o.Update Then

Console.WriteLine(o.GetLastError)

End If

o = con.TaggedValues.AddNew ("Tag","Value")

If not o.Update Then

Console.WriteLine(o.GetLastError)

End If

''utilice los extremos del cliente y proveedor para configurar

''información adicional

client = con.ClientEnd

client.Visibility = "Private"

client.Role = "m_client"

client.Update

supplier = con.SupplierEnd

supplier.Visibility = "Protected"

supplier.Role = "m_supplier"

supplier.Update

Console.WriteLine("Client and Supplier set")

Console.WriteLine(client.Role)

Console.WriteLine(supplier.Role)

End Sub