Repository.Xfmea.AddXfmeaFailure Method: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
No edit summary
No edit summary
 
Line 27: Line 27:
   AFailure.Dsc = {{APIString|"Lamp shatters"}}
   AFailure.Dsc = {{APIString|"Lamp shatters"}}
   
   
  {{APIComment|'Add the new failure to function #1 located in project #1.}}
  {{APIComment|'Add the new failure to FMEA function #1 located in project #1.}}
   MyRepository.Project.SetCurrentProject(1)
   MyRepository.Project.SetCurrentProject(1)
   {{APIPrefix|Call}} MyRepository.Xfmea.AddXfmeaFailure(AFailure,1)
   {{APIPrefix|Call}} MyRepository.Xfmea.AddXfmeaFailure(AFailure,1)
Line 41: Line 41:
   AFailure.Dsc = {{APIString|"Lamp shatters"}}
   AFailure.Dsc = {{APIString|"Lamp shatters"}}
   
   
  {{APIComment|'Add the new failure to function #1 located in project #1.}}
  {{APIComment|'Add the new failure to FMEA function #1 located in project #1.}}
   MyRepository.Project.SetCurrentProject(1)
   MyRepository.Project.SetCurrentProject(1)
   MyRepository.Xfmea.AddXfmeaFailure(AFailure,1)
   MyRepository.Xfmea.AddXfmeaFailure(AFailure,1)

Latest revision as of 18:53, 22 August 2016

APIWiki.png


Member of: SynthesisAPI.Repository


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

Syntax

.Xfmea.AddXfmeaFailure(failure, FunctionID)

Parameters

failure

Required. The XfmeaFailure object that represents the failure to be added.

FunctionID

Required. Integer. The record ID of parent FMEA function.


Example

This example assumes that FMEAs exist in a repository. It creates a new failure, and then saves it to one of the FMEA functions 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 failure. The following code creates a failure described as "Lamp shatters." 
  Dim AFailure As New XfmeaFailure
  AFailure.Dsc = "Lamp shatters"

 'Add the new failure to FMEA function #1 located in project #1. 
  MyRepository.Project.SetCurrentProject(1)
  Call MyRepository.Xfmea.AddXfmeaFailure(AFailure,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 failure. The following code creates a failure described as "Lamp shatters." 
  Dim AFailure As New XfmeaFailure
  AFailure.Dsc = "Lamp shatters"

 'Add the new failure to FMEA function #1 located in project #1. 
  MyRepository.Project.SetCurrentProject(1)
  MyRepository.Xfmea.AddXfmeaFailure(AFailure,1)