Point.ChangeApproval (property, write)

Syntax Point.ChangeApproval = a
Description To set the Change Approval information for a point. Important: Change Approval must be set to an object of type CimChangeApprovalData in order to perform set point operations on a point that requires change approval..
Example 
Sub Main()
   Dim MyPoint As New Point
   Dim obj As New CimChangeApprovalData
'Init Point
 Set MyPoint.Id = "MYPOINT"
'Init CimChangeApprovalData with prompts
 Select Case MyPoint.ChangeApprovalInfo
 Case CP_CHANGEAPPROVALPERFORM   
   obj.PerformerUserid =  AskBox("Performer Userid")
   obj.PerformerPassword = AskPassword("Performer Password")
 Case CP_CHANGEAPPROVALPERFORMVERIFY
   obj.PerformerUserid =  AskBox("Performer Userid")
   obj.PerformerPassword = AskPassword("Performer Password")
   obj.VerifierUserid = AskBox("Verifier Userid")
   obj.VerifierPassword = AskPassword("Verifier Password")
 Case CP_CHANGEAPPROVALNONE
End Select
'Copy our CimChangeApprovalData into the Point's ChangeApproval
   Set MyPoint.ChangeApproval = obj
'Set the point
   MyPoint.SetValue = InputBox("Setpoint")
 
End Sub
See also CimChangeApprovalData (Object), AlarmUpdateCA (Method), PointChangeApprovalInfo (property, read).