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).