Context Object Parameters
Parameter Name | Type | Read/Write | Comments |
---|
SourceSupportInstance | VPMInstance |
Read | Selected source support Its reference has a SharedSupportPart type. |
SegmentAtSource | Segment | Read | Segment at source support |
TargetSupportInstance | VPMInstance |
Read | Selected target support |
SegmentAtTarget | Segment |
Read | Segment at target support |
Sample
The following sample illustrates the syntax of the business rule.
/* CATRule signature (do not edit) : (ThisObject : #In Support,
Parameters : #In RuleContext, Validation : #Out Boolean) : #Void */
let SrcSpt(Support)
let SrcSeg(Segment)
let TgtSpt(Support)
let TgtSeg(Segment)
let SrcName(STRING)
let TgtName(STRING)
let SubType(STRING)
set SrcSpt = Parameters.GetAttributeObject("SourceSupportInstance")
set SrcSeg = Parameters.GetAttributeObject("SegmentAtSource")
set TgtSpt = Parameters.GetAttributeObject("TargetSupportInstance")
set TgtSeg = Parameters.GetAttributeObject("SegmentAtTarget")
if((NULL == SrcSpt) or (NULL == TgtSpt) or (NULL == SrcSeg)
or (NULL == TgtSeg))
{
Validation = false
Parameters.Severity = 2
Parameters.Message = "Param NULL"
}
else
{
set SrcName = SrcSpt.Name
set TgtName = TgtSpt.Name
}
{
if (SrcName == TgtName)
{
Validation = false
Parameters.Severity = 2
Parameters.Message = "Not allowed"
}
else
{
if(SrcSeg.Elec_SubType == TgtSeg.Elec_SubType)
{
Validation = true
Parameters.Severity = 0
Parameters.Message = "Copy Allowed - Both segments have same Subtype"
}
else
{
Validation = true
Parameters.Severity = 1
Parameters.Message = "Copy Allowed with warning- Subtypes of the
segments does not match"
}
}