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