Repository.Xfmea.AddItemToSystemHierarchy Method

Member of: SynthesisAPI.Repository

Adds a new system hierarchy item to the current project. Returns a Boolean value; when true, indicates a successful save.

Syntax

.Xfmea.AddItemToSystemHierarchy(Item, ParentID)

Parameters

Item

Required. The XfmeaItem object that represents the system hierarchy item to be added.

ParentID

Required. Integer. The record ID of the parent item. The new system hierarchy item 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)