Repository.Xfmea.AssignActionToXfmeaCause Method: Difference between revisions
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. | 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
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))