Please note : This help page is for an older version of Enteprise Archtiect. The latest help can be found here.

Element Extras

These are examples of code to access and use element extras, such as scenarios, constraints and requirements.

Sub ElementExtras

     Dim element as object

     Dim o as object

     Dim idx as Integer

     Dim bDel as boolean

     bDel = true

     try

          element = m_Repository.GetElementByID(129)

          'manage constraints for an element

          'demonstrate addnew and delete

          o = element.Constraints.AddNew("Appended","Type")

          If not o.Update Then

               Console.WriteLine("Constraint error:" + o.GetLastError())

          End if

          element.Constraints.Refresh

          For idx = 0 to element.Constraints.Count -1

               o = element.Constraints.GetAt(idx)

               Console.WriteLine(o.Name)

               If(o.Name="Appended") Then

                    If bDel Then element.Constraints.Delete (idx)

               End if

          Next

          'efforts

          o = element.Efforts.AddNew("Appended","Type")

          If not o.Update Then

               Console.WriteLine("Efforts error:" + o.GetLastError())

          End if

          element.Efforts.Refresh

          For idx = 0 to element.Efforts.Count -1

               o = element.Efforts.GetAt(idx)

               Console.WriteLine(o.Name)

               If(o.Name="Appended") Then

                    If bDel Then element.Efforts.Delete (idx)

               End if

          Next

          'Risks

          o = element.Risks.AddNew("Appended","Type")

          If not o.Update Then

               Console.WriteLine("Risks error:" + o.GetLastError())

          End if

          element.Risks.Refresh

          For idx = 0 to element.Risks.Count -1

               o = element.Risks.GetAt(idx)

               Console.WriteLine(o.Name)

               If(o.Name="Appended") Then

                    If bDel Then element.Risks.Delete (idx)

               End if

          Next

          'Metrics

          o = element.Metrics.AddNew("Appended","Change")

          If not o.Update Then

               Console.WriteLine("Metrics error:" + o.GetLastError())

          End if

          element.Metrics.Refresh

          For idx = 0 to element.Metrics.Count -1

               o = element.Metrics.GetAt(idx)

               Console.WriteLine(o.Name)

               If(o.Name="Appended") Then

                    If bDel Then element.Metrics.Delete (idx)

               End if

          Next

          'TaggedValues

          o = element.TaggedValues.AddNew("Appended","Change")

          If not o.Update Then

               Console.WriteLine("TaggedValues error:" + o.GetLastError())

          End if

          element.TaggedValues.Refresh

          For idx = 0 to element.TaggedValues.Count -1

               o = element.TaggedValues.GetAt(idx)

               Console.WriteLine(o.Name)

               If(o.Name="Appended") Then

                    If bDel Then element.TaggedValues.Delete (idx)

               End if

          Next

          'Scenarios

          o = element.Scenarios.AddNew("Appended","Change")

          If not o.Update Then

               Console.WriteLine("Scenarios error:" + o.GetLastError())

          End if

          element.Scenarios.Refresh

          For idx = 0 to element.Scenarios.Count -1

               o = element.Scenarios.GetAt(idx)

               Console.WriteLine(o.Name)

               If(o.Name="Appended") Then

                    If bDel Then element.Scenarios.Delete (idx)

               End if

          Next

          'Files

          o = element.Files.AddNew("MyFile","doc")

          If not o.Update Then

               Console.WriteLine("Files error:" + o.GetLastError())

          End if

          element.Files.Refresh

          For idx = 0 to element.Files.Count -1

               o = element.Files.GetAt(idx)

               Console.WriteLine(o.Name)

               If(o.Name="MyFile") Then

                    If bDel Then element.Files.Delete (idx)

               End if

          Next

          'Tests

          o = element.Tests.AddNew("TestPlan","Load")

          If not o.Update Then

               Console.WriteLine("Tests error:" + o.GetLastError())

          End if

          element.Tests.Refresh

          For idx = 0 to element.Tests.Count -1

               o = element.Tests.GetAt(idx)

               Console.WriteLine(o.Name)

               If(o.Name="TestPlan") Then

                    If bDel Then element.Tests.Delete (idx)

               End if

          Next

          'Defect

          o = element.Issues.AddNew("Broken","Defect")

          If not o.Update Then

               Console.WriteLine("Issues error:" + o.GetLastError())

          End if

          element.Issues.Refresh

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

               o = element.Issues.GetAt(idx)

               Console.WriteLine(o.Name)

               If(o.Name="Broken") Then

                    If bDel Then element.Issues.Delete (idx)

               End if

          Next

          'Change

          o = element.Issues.AddNew("Change","Change")

          If not o.Update Then

               Console.WriteLine("Issues error:" + o.GetLastError())

          End if

          element.Issues.Refresh

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

               o = element.Issues.GetAt(idx)

               Console.WriteLine(o.Name)

               If(o.Name="Change") Then

                    If bDel Then element.Issues.Delete (idx)

               End if

          Next

     catch e as exception

          Console.WriteLine(element.Methods.GetLastError())

          Console.WriteLine(e)

     End try

End Sub