Repository.Xfmea.AddXfmeaFunction Method: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
No edit summary
No edit summary
Line 14: Line 14:


''HID''
''HID''
:Required. Integer. The record ID of the system hierarchy item to add the function to.   
:Required. Integer. The record ID of the parent system hierarchy item.   




Line 21: Line 21:
  '''VBA'''
  '''VBA'''
   
   
  {{APIComment|'Add code to connect to a Synthesis repository.}}
  {{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
  {{APIComment|...}}
  MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr10"}})
 
  {{APIComment|'Create a new function. The following code creates a function described as "New_Function."}}
  {{APIComment|'Create a new function. The following code creates a function described as "New_Function."}}
  {{APIPrefix|Dim}} Function1 {{APIPrefix|As New}} XfmeaFunction
  {{APIPrefix|Dim}} Function1 {{APIPrefix|As New}} XfmeaFunction
  Function1.Dsc = {{APIString|"New_Function"}}
  Function1.Dsc = {{APIString|"New_Function"}}
   
   
  {{APIComment|'Add the new function to system hierarchy item #1 located in project #1.}}
  {{APIComment|'Add the new function to system hierarchy item #1 located in project #1.}}
  MyRepository.Project.SetCurrentProject(1)
  MyRepository.Project.SetCurrentProject(1)
  {{APIPrefix|Call}} MyRepository.Xfmea.AddXfmeaFunction(Function1,1)
  {{APIPrefix|Call}} MyRepository.Xfmea.AddXfmeaFunction(Function1,1)


  '''VB.NET'''
  '''VB.NET'''
   
   
  {{APIComment|'Add code to connect to a Synthesis repository.}}
  {{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
  {{APIComment|...}}
  MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr10"}})
   
   
  {{APIComment|'Create a new function. The following code creates a function described as "New_Function."}}
  {{APIComment|'Create a new function. The following code creates a function described as "New_Function."}}
  {{APIPrefix|Dim}} Function1 {{APIPrefix|As New}} XfmeaFunction
  {{APIPrefix|Dim}} Function1 {{APIPrefix|As New}} XfmeaFunction
  Function1.Dsc = {{APIString|"New_Function"}}
  Function1.Dsc = {{APIString|"New_Function"}}
   
   
  {{APIComment|'Add the new function to system hierarchy item #1 located in project #1.}}
  {{APIComment|'Add the new function to system hierarchy item #1 located in project #1.}}
  MyRepository.Project.SetCurrentProject(1)
  MyRepository.Project.SetCurrentProject(1)
  MyRepository.Xfmea.AddXfmeaFunction(Function1,1)
  MyRepository.Xfmea.AddXfmeaFunction(Function1,1)

Revision as of 16:09, 8 April 2016

APIWiki.png


Member of: SynthesisAPI.Repository


Adds a new FMEA function to a Synthesis repository. Returns a Boolean value; when true, indicates a successful save.

If the system hierarchy item does not already have an FMEA analysis, a new FMEA will be automatically created when you use the API to add a function.

Syntax

.Xfmea.AddXfmeaFunction(func, HID)

Parameters

func

Required. The XfmeaFunction object to be added.

HID

Required. Integer. The record ID of the parent system hierarchy item.


Example

This example assumes that system hierarchy items exist in a repository. It creates a new FMEA function, and then saves it to one of the system hierarchy items in 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 function. The following code creates a function described as "New_Function." 
  Dim Function1 As New XfmeaFunction
  Function1.Dsc = "New_Function"

 'Add the new function to system hierarchy item #1 located in project #1. 
  MyRepository.Project.SetCurrentProject(1)
  Call MyRepository.Xfmea.AddXfmeaFunction(Function1,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 function. The following code creates a function described as "New_Function." 
  Dim Function1 As New XfmeaFunction
  Function1.Dsc = "New_Function"

 'Add the new function to system hierarchy item #1 located in project #1. 
  MyRepository.Project.SetCurrentProject(1)
  MyRepository.Xfmea.AddXfmeaFunction(Function1,1)