Repository.Xfmea.UpdateXfmeaCause Method: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
mNo edit summary
No edit summary
Line 2: Line 2:




<onlyinclude>Applies any changes made to an existing cause. Returns a '''Boolean''' value; when true, indicates a successful save.</onlyinclude>   
<onlyinclude>Sends any changes made to an existing cause to the Synthesis repository. Returns a '''Boolean''' value; when true, indicates a successful save.</onlyinclude>   


== Syntax ==
== Syntax ==
Line 17: Line 17:
  '''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|'Get cause #1 from project #1.}}
  {{APIComment|'Get cause #1 from project #1.}}
  {{APIPrefix|Dim}} ACause {{APIPrefix|As}} XfmeaCause
  {{APIPrefix|Dim}} ACause {{APIPrefix|As}} XfmeaCause
  MyRepository.Project.SetCurrentProject(1)
  MyRepository.Project.SetCurrentProject(1)
  {{APIPrefix|Set}} ACause = MyRepository.Xfmea.GetXfmeaCause(1)
  {{APIPrefix|Set}} ACause = MyRepository.Xfmea.GetXfmeaCause(1)
   
   
  {{APIComment|'Change the cause's description to "New_Description."}}
  {{APIComment|'Change the cause's description to "New_Description."}}
  ACause.Dsc = {{APIString|"New_Description"}}
  ACause.Dsc = {{APIString|"New_Description"}}
   
   
  {{APIComment|'Apply the change to the cause. Changes are recorded in the Synthesis repository.}}
  {{APIComment|'Send the change to the Synthesis repository.}}
  {{APIPrefix|Call}} MyRepository.Xfmea.UpdateXfmeaCause(ACause)
  {{APIPrefix|Call}} MyRepository.Xfmea.UpdateXfmeaCause(ACause)


  '''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|'Get cause #1 from project #1.}}
  {{APIComment|'Get cause #1 from project #1.}}
  {{APIPrefix|Dim}} ACause {{APIPrefix|As}} XfmeaCause
  {{APIPrefix|Dim}} ACause {{APIPrefix|As}} XfmeaCause
  MyRepository.Project.SetCurrentProject(1)
  MyRepository.Project.SetCurrentProject(1)
  ACause = MyRepository.Xfmea.GetXfmeaCause(1)
  ACause = MyRepository.Xfmea.GetXfmeaCause(1)
   
   
  {{APIComment|'Change the cause's description to "New_Description."}}
  {{APIComment|'Change the cause's description to "New_Description."}}
  ACause.Dsc = {{APIString|"New_Description"}}
  ACause.Dsc = {{APIString|"New_Description"}}
   
   
  {{APIComment|'Apply the change to the cause. Changes are recorded in the Synthesis repository.}}
  {{APIComment|'Send the change to the Synthesis repository.}}
  MyRepository.Xfmea.UpdateXfmeaCause(ACause)
  MyRepository.Xfmea.UpdateXfmeaCause(ACause)

Revision as of 18:50, 8 April 2016

APIWiki.png


Member of: SynthesisAPI.Repository


Sends any changes made to an existing cause to the Synthesis repository. Returns a Boolean value; when true, indicates a successful save.

Syntax

.Xfmea.UpdateXfmeaCause(Cause)

Parameters

Cause

Required. The XfmeaCause object to be updated.


Example

This example assumes that a cause with ID #1 exists in the first available project of a repository.

VBA

 'Declare a new Repository object and connect to a Synthesis repository. 
  Dim MyRepository As New Repository
  MyRepository.ConnectToAccessRepository("C:\RSRepository1.rsr10")
  
 'Get cause #1 from project #1. 
  Dim ACause As XfmeaCause
  MyRepository.Project.SetCurrentProject(1)
  Set ACause = MyRepository.Xfmea.GetXfmeaCause(1)

 'Change the cause's description to "New_Description." 
  ACause.Dsc = "New_Description"

 'Send the change to the Synthesis repository. 
  Call MyRepository.Xfmea.UpdateXfmeaCause(ACause)
VB.NET

 'Declare a new Repository object and connect to a Synthesis repository. 
  Dim MyRepository As New Repository
  MyRepository.ConnectToAccessRepository("C:\RSRepository1.rsr10")
  
 'Get cause #1 from project #1. 
  Dim ACause As XfmeaCause
  MyRepository.Project.SetCurrentProject(1)
  ACause = MyRepository.Xfmea.GetXfmeaCause(1)

 'Change the cause's description to "New_Description." 
  ACause.Dsc = "New_Description"

 'Send the change to the Synthesis repository. 
  MyRepository.Xfmea.UpdateXfmeaCause(ACause)