Repository.Xfmea.AddItemToSystemHierarchy Method: Difference between revisions
Jump to navigation
Jump to search
Kate Racaza (talk | contribs) mNo edit summary |
Kate Racaza (talk | contribs) No edit summary |
||
| Line 2: | Line 2: | ||
<onlyinclude>Adds a new system hierarchy item to a | <onlyinclude>Adds a new system hierarchy item to a project. Returns a '''Boolean''' value; when true, indicates a successful save.</onlyinclude> | ||
== Syntax == | == Syntax == | ||
| Line 19: | Line 19: | ||
'''VBA''' | '''VBA''' | ||
{{APIComment|' | {{APIComment|'Declare a new Repository object and connect to a Synthesis repository.}} | ||
{{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository | {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository | ||
MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr10"}}) | |||
{{APIComment|'Create a new system hierarchy item. The following example creates an item called "NewSubsystem."}} | {{APIComment|'Create a new system hierarchy item. The following example creates an item called "NewSubsystem."}} | ||
{{APIPrefix|Dim}} NewItem {{APIPrefix|As New}} XfmeaItem | |||
NewItem.Nm = {{APIString|"NewSubSystem"}} | |||
{{APIComment|'Add the new item to project #1 and position it under system hierarchy item #1.}} | {{APIComment|'Add the new item to project #1 and position it under system hierarchy item #1.}} | ||
MyRepository.Project.SetCurrentProject(1) | |||
{{APIPrefix|Call}} MyRepository.Xfmea.AddItemToSystemHierarchy(NewItem,1) | |||
'''VB.NET''' | '''VB.NET''' | ||
{{APIComment|' | {{APIComment|'Declare a new Repository object and connect to a Synthesis repository.}} | ||
{{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository | {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository | ||
MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr10"}}) | |||
{{APIComment|'Create a new system hierarchy item. The following example creates an item called "NewSubsystem."}} | {{APIComment|'Create a new system hierarchy item. The following example creates an item called "NewSubsystem."}} | ||
{{APIPrefix|Dim}} NewItem {{APIPrefix|As New}} XfmeaItem | |||
NewItem.Nm = {{APIString|"NewSubSystem"}} | |||
{{APIComment|'Add the new item to project #1 and position it under system hierarchy item #1.}} | {{APIComment|'Add the new item to project #1 and position it under system hierarchy item #1.}} | ||
MyRepository.Project.SetCurrentProject(1) | |||
MyRepository.Xfmea.AddItemToSystemHierarchy(NewItem,1) | |||
Revision as of 16:02, 8 April 2016
 |
Member of: SynthesisAPI.Repository
Adds a new system hierarchy item to a project. Returns a Boolean value; when true, indicates a successful save.
Syntax
.Xfmea.AddItemToSystemHierarchy(Item, ParentID)
Parameters
Item
- Required. The XfmeaItem object to be added.
ParentID
- Required. Integer. The record ID of the parent item. The object will be saved as a next level item under the parent item.
Example
This example assumes that system hierarchy items exist in the first available project of repository. The code creates a new system hierarchy item, and then saves it to the repository.
VBA 'Declare a new Repository object and connect to a Synthesis repository. Dim MyRepository As New Repository MyRepository.ConnectToAccessRepository("C:\RSRepository1.rsr10") 'Create a new system hierarchy item. The following example creates an item called "NewSubsystem." Dim NewItem As New XfmeaItem NewItem.Nm = "NewSubSystem" 'Add the new item to project #1 and position it under system hierarchy item #1. MyRepository.Project.SetCurrentProject(1) Call MyRepository.Xfmea.AddItemToSystemHierarchy(NewItem,1)
VB.NET 'Declare a new Repository object and connect to a Synthesis repository. Dim MyRepository As New Repository MyRepository.ConnectToAccessRepository("C:\RSRepository1.rsr10") 'Create a new system hierarchy item. The following example creates an item called "NewSubsystem." Dim NewItem As New XfmeaItem NewItem.Nm = "NewSubSystem" 'Add the new item to project #1 and position it under system hierarchy item #1. MyRepository.Project.SetCurrentProject(1) MyRepository.Xfmea.AddItemToSystemHierarchy(NewItem,1)