Repository.Xfmea.AddXfmeaCause Method: Difference between revisions
Jump to navigation
Jump to search
Kate Racaza (talk | contribs) mNo edit summary |
Kate Racaza (talk | contribs) No edit summary |
||
| (2 intermediate revisions by the same user not shown) | |||
| Line 9: | Line 9: | ||
===Parameters=== | ===Parameters=== | ||
''Cause'' | ''Cause'' | ||
:Required. The [[XfmeaCause Class|XfmeaCause]] object to be added. | :Required. The [[XfmeaCause Class|XfmeaCause]] object that represents the cause to be added. | ||
''EffectID'' | ''EffectID'' | ||
:Required. Integer. The record ID of the effect | :Required. Integer. The record ID of the parent FMEA effect. | ||
''FailureID'' | ''FailureID'' | ||
:Required. Integer. The record ID of the parent failure | :Required. Integer. The record ID of the parent FMEA failure. | ||
==Example== | ==Example== | ||
| Line 22: | Line 22: | ||
'''VBA''' | '''VBA''' | ||
{{APIComment|' | {{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 | ||
MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr10"}}) | |||
{{APIComment|'Create a new cause. The following code creates a new cause described as "Over pressure in lamp due to no gas."}} | {{APIComment|'Create a new cause. The following code creates a new cause described as "Over pressure in lamp due to no gas."}} | ||
{{APIPrefix|Dim}} ACause {{APIPrefix|As New}} XfmeaCause | |||
ACause.Dsc = {{APIString|"Over pressure in lamp due to no gas"}} | |||
{{APIComment|'Add the new cause to project #1, under effect #2 in failure #1.}} | {{APIComment|'Add the new cause to project #1, under effect #2 in failure #1.}} | ||
MyRepository.Project.SetCurrentProject(1) | |||
{{APIPrefix|Call}} MyRepository.Xfmea.AddXfmeaCause(ACause, 2, 1) | |||
'''VB.NET''' | '''VB.NET''' | ||
{{APIComment|' | {{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 | ||
MyRepository.ConnectToAccessRepository({{APIString|"C:\RSRepository1.rsr10"}})} | |||
{{APIComment|'Create a new cause. The following code creates a new cause described as "Over pressure in lamp due to no gas."}} | {{APIComment|'Create a new cause. The following code creates a new cause described as "Over pressure in lamp due to no gas."}} | ||
{{APIPrefix|Dim}} ACause {{APIPrefix|As New}} XfmeaCause | |||
ACause.Dsc = {{APIString|"Over pressure in lamp due to no gas"}} | |||
{{APIComment|'Add the new cause to project #1, under effect #2 in failure #1.}} | {{APIComment|'Add the new cause to project #1, under effect #2 in failure #1.}} | ||
MyRepository.Project.SetCurrentProject(1) | |||
MyRepository.Xfmea.AddXfmeaCause(ACause, 2, 1) | |||
Latest revision as of 17:50, 9 June 2016
 |
Member of: SynthesisAPI.Repository
Adds a new cause to an effect. Returns a Boolean value; when true, indicates a successful save.
Syntax
.Xfmea.AddXfmeaCause(Cause, EffectID, FailureID)
Parameters
Cause
- Required. The XfmeaCause object that represents the cause to be added.
EffectID
- Required. Integer. The record ID of the parent FMEA effect.
FailureID
- Required. Integer. The record ID of the parent FMEA failure.
Example
This example assumes that FMEAs exist in a repository. It creates a new cause, and then saves it under one of the effects in the FMEA.
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 cause. The following code creates a new cause described as "Over pressure in lamp due to no gas." Dim ACause As New XfmeaCause ACause.Dsc = "Over pressure in lamp due to no gas" 'Add the new cause to project #1, under effect #2 in failure #1. MyRepository.Project.SetCurrentProject(1) Call MyRepository.Xfmea.AddXfmeaCause(ACause, 2, 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 cause. The following code creates a new cause described as "Over pressure in lamp due to no gas." Dim ACause As New XfmeaCause ACause.Dsc = "Over pressure in lamp due to no gas" 'Add the new cause to project #1, under effect #2 in failure #1. MyRepository.Project.SetCurrentProject(1) MyRepository.Xfmea.AddXfmeaCause(ACause, 2, 1)