Delete Alarms
Delete alarms passed as parameter
DeleteAlarms(laAlarmInex() As Long) As Long
Parameters
|
In/out |
Name |
Data type |
Description |
|
In |
LaAlarmIndex |
Long |
List of indexes of the alarms to be deleted
|
Description
This function is called in shared cabinet in desktop. It is called to delete the alarms set by The user, list of indexes of all the alarms to be deleted is passed as a parameter to this function.
Return value
|
Name |
Description |
|
NG_SUCCESS |
In case of success |
|
-1 |
Invalid cabinet name |
|
-3 |
Cabinet not connected |
|
-4 |
Invalid Operation |
|
-133 |
User not logged in |
Example
Dim AlarmList() As long
lRetVal As long
AlarmList(0) = 81
AlarmList(1) = 97
RetVal=gPDb(miCurCabId).DeleteAlarms(AlarmList)
If lRetVal <> NG_SUCCESS Then
MsgBox gPDb(miCurCabId).ErrDescription, vbInformation
Screen.MousePointer = vbNormal
Exit Sub
End If