Repository.Xfmea.AssignActionToXfmeaCause Method: Difference between revisions

From ReliaWiki
Jump to navigation Jump to search
No edit summary
No edit summary
Line 19: Line 19:
  {{APIComment|'Declare a new Repository object and connect to a repository.}}
  {{APIComment|'Declare a new Repository object and connect to a repository.}}
   {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository
   {{APIPrefix|Dim}} MyRepository {{APIPrefix|As New}} Repository
   MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr11"}})
   MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr18"}})
    
    
  {{APIComment|'Get a list of actions from project #1.}}
  {{APIComment|'Get a list of actions from project #1.}}

Revision as of 00:03, 2 March 2018

APIWiki.png


Member of: SynthesisAPI.Repository


Assigns an action to a cause. Returns a Boolean value; when true, indicates the action was assigned successfully.

Syntax

.Xfmea.AssignActionToXfmeaCause(ActionID, CauseID)

Parameters

Action ID

Required. The Action ID of the action that is to be assigned to the cause.

Cause ID

Required. The Cause ID of the cause to which the action is to be assigned.

Example

VBA|VB.NET

 'Declare a new Repository object and connect to a repository. 
  Dim MyRepository As New Repository
  MyRepository.ConnectToAccessRepository("C:\RSRepository1.rsr18")
  
 'Get a list of actions from project #1. 
  Dim MyFunction As XfmeaFunction
  Dim Actions() As cAction
  MyRepository.Project.SetCurrentProject(1)
  Set Actions = MyRepository.Action.GetAllActions()
  
 'Get a list of causes for failure #1 from project #1. 
  Dim Causes() As cCause
  Set Causes = MyRepository.Xfmea.GetAllXfmeaCauses(1)

 'Assign the first item in the Actions array to be assigned to the first item in the Causes array. For VB.NET, dictionaries could also be used. 
  Dim bOK As Boolean
  bOK = MyRepository.Xfmea.AssignActionToXfmeaCause(Actions(0), Causes(0))