public Object
''Examples of how 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