Repository.Xfmea.AddXfmeaFailure Method: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
mNo edit summary
No edit summary
Line 19: Line 19:
  '''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 failure. The following code creates a failure described as "Lamp shatters."}}
  {{APIComment|'Create a new failure. The following code creates a failure described as "Lamp shatters."}}
  {{APIPrefix|Dim}} AFailure {{APIPrefix|As New}} XfmeaFailure
  {{APIPrefix|Dim}} AFailure {{APIPrefix|As New}} XfmeaFailure
  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 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)


  '''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 failure. The following code creates a failure described as "Lamp shatters."}}
  {{APIComment|'Create a new failure. The following code creates a failure described as "Lamp shatters."}}
  {{APIPrefix|Dim}} AFailure {{APIPrefix|As New}} XfmeaFailure
  {{APIPrefix|Dim}} AFailure {{APIPrefix|As New}} XfmeaFailure
  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 function #1 located in project #1.}}
  MyRepository.Project.SetCurrentProject(1)
  MyRepository.Project.SetCurrentProject(1)
  MyRepository.Xfmea.AddXfmeaFailure(AFailure,1)
  MyRepository.Xfmea.AddXfmeaFailure(AFailure,1)

Revision as of 16:06, 8 April 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 to be added.

FunctionID

Required. Integer. The record ID of FMEA function to add the failure to.


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 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 function #1 located in project #1. 
  MyRepository.Project.SetCurrentProject(1)
  MyRepository.Xfmea.AddXfmeaFailure(AFailure,1)