Please note : This help page is not for the latest version of Enterprise Architect. The latest help can be found here.

Repository Extras

Topics

Topic

Detail

public Object

 

'' Examples of how to access repository

'' collections for system level information.

 

Sub RepositoryExtras

 

   Dim o as object

   Dim idx as integer

 

   'issues

   o = m_Repository.Issues.AddNew("Problem","Type")

   If(o.Update=false) Then

       Console.WriteLine (o.GetLastError())

   End if

   o = nothing

   m_Repository.Issues.Refresh

   For idx = 0 to m_Repository.Issues.Count-1

       Console.Writeline(m_Repository.Issues.GetAt(idx).Name)

       If(m_Repository.Issues.GetAt(idx).Name = "Problem") then

           m_Repository.Issues.DeleteAt(idx,false)

           Console.WriteLine("Delete Issues")

       End if

   Next

 

   ''tasks

   o = m_Repository.Tasks.AddNew("Task 1","Task type")

   If(o.Update=false) Then

       Console.WriteLine ("error - " + o.GetLastError())

   End if

   o = nothing

   m_Repository.Tasks.Refresh

   For idx = 0 to m_Repository.Tasks.Count-1

       COnsole.Writeline(m_Repository.Tasks.GetAt(idx).Name)

       If(m_Repository.Tasks.GetAt(idx).Name = "Task 1") then

           m_Repository.Tasks.DeleteAt(idx,false)

           Console.WriteLine("Delete Tasks")

       End if

   Next

 

 ''glossary

   o = m_Repository.Terms.AddNew("Term 1","business")

   If(o.Update=false) Then

       Console.WriteLine ("error - " + o.GetLastError())

   End if

   o = nothing

   m_Repository.Terms.Refresh

   For idx = 0 to m_Repository.Terms.Count-1

       COnsole.Writeline(m_Repository.Terms.GetAt(idx).Term)

       If(m_Repository.Terms.GetAt(idx).Term = "Term 1") then

           m_Repository.Terms.DeleteAt(idx,false)

           Console.WriteLine("Delete Terms")

       End if

   Next

 

   'authors

   o = m_Repository.Authors.AddNew("Joe B","Writer")

   If(o.Update=false) Then

       Console.WriteLine (o.GetLastError())

   End if

   o = nothing

   m_Repository.Authors.Refresh

   For idx = 0 to m_Repository.authors.Count-1

       COnsole.Writeline(m_Repository.Authors.GetAt(idx).Name)

       If(m_Repository.authors.GetAt(idx).Name = "Joe B") then

           m_Repository.authors.DeleteAt(idx,false)

           Console.WriteLine("Delete Authors")

       End if

   Next

 

 

   o = m_Repository.Clients.AddNew("Joe Sphere","Client")

   If(o.Update=false) Then

       Console.WriteLine (o.GetLastError())

   End if

   o = nothing

   m_Repository.Clients.Refresh

   For idx = 0 to m_Repository.Clients.Count-1

       COnsole.Writeline(m_Repository.Clients.GetAt(idx).Name)

       If(m_Repository.Clients.GetAt(idx).Name = "Joe Sphere") then

           m_Repository.Clients.DeleteAt(idx,false)

           Console.WriteLine("Delete Clients")

       End if

   Next

 

 

   o = m_Repository.Resources.AddNew("Joe Worker","Resource")

   If(o.Update=false) Then

       Console.WriteLine (o.GetLastError())

   End if

   o = nothing

   m_Repository.Resources.Refresh

   For idx = 0 to m_Repository.Resources.Count-1

       COnsole.Writeline(m_Repository.Resources.GetAt(idx).Name)

       If(m_Repository.Resources.GetAt(idx).Name = "Joe Worker") then

           m_Repository.Resources.DeleteAt(idx,false)

           Console.WriteLine("Delete Resources")

       End if

   Next

 

End Sub