fixed a bug when deleting all messages
This commit is contained in:
@ -95,21 +95,78 @@ $Insert PS_EQUATES
|
||||
* equ REV_CREATE_ENGINE_NO_UI$ to 0x040
|
||||
|
||||
Main:
|
||||
debug
|
||||
Recipients = ''
|
||||
SentFrom = @USER4
|
||||
* debug
|
||||
* LSLUsers = ''
|
||||
* Open 'LSL_USERS' to hUsers then
|
||||
* EOF = False$
|
||||
* Select hUsers
|
||||
* Loop
|
||||
* Readnext UserId else EOF = True$
|
||||
* Until EOF
|
||||
* LSLUsers<-1> = UserId
|
||||
* If Not(RowExists('NOTE_PTRS', UserId)) then
|
||||
*
|
||||
* Database_Services('WriteDataRow', 'NOTE_PTRS', UserId, '', True$, False$, True$)
|
||||
* end
|
||||
* Repeat
|
||||
* end
|
||||
* Ptrs = ''
|
||||
* Open 'NOTE_PTRS' to hPtrs then
|
||||
* EOF = False$
|
||||
* Select hPtrs
|
||||
* Loop
|
||||
* Readnext Ptr else EOF = True$
|
||||
* Until EOF
|
||||
* Ptrs<-1> = Ptr
|
||||
*
|
||||
* Repeat
|
||||
* end
|
||||
*
|
||||
* Diff = SRP_Array('Join', LSLUsers, Ptrs, 'AND', @FM)
|
||||
*
|
||||
* return
|
||||
|
||||
SendToGroup = 'RDS_HOLD' : @VM : 'FI_SUPPORT'
|
||||
|
||||
Subject = 'Testing 2'
|
||||
Message = 'Testing 1234'
|
||||
AttachWindow = ''
|
||||
AttachKey = ''
|
||||
|
||||
Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
|
||||
obj_Notes('Create',Parms)
|
||||
* return
|
||||
* Messaging_Services('SendMessage', 'RunProcedure', 'Request', '', 'All', 'RTP27,ACTIVE_DIRECTORY_SERVICES', '', '', '')
|
||||
Messaging_Services('SendMessage', 'RunProcedure', 'Request', '', 'All', 'RTP27,COMM_NOTE_PTRS', '', '', '')
|
||||
Messaging_Services('SendMessage', 'RunProcedure', 'Request', '', 'All', 'RTP27,NOTE_PTRS_ACTIONS', '', '', '')
|
||||
Messaging_Services('SendMessage', 'RunProcedure', 'Request', '', 'All', 'RTP27,NOTES_SERVICES', '', '', '')
|
||||
* Messaging_Services('SendMessage', 'RunProcedure', 'Request', '', 'All', 'RTP27,DATABASE_SERVICES', '', '', '')
|
||||
* Messaging_Services('SendMessage', 'RunProcedure', 'Request', '', 'All', 'RTP27,LSL_USERS_SERVICES', '', '', '')
|
||||
* Messaging_Services('SendMessage', 'RunProcedure', 'Request', '', 'All', 'RTP27,NDW_AUDIT_REPORT_EVENTS', '', '', '')
|
||||
* Messaging_Services('SendMessage', 'RunProcedure', 'Request', '', 'All', 'RTP27,NDW_MAIN_EVENTS', '', '', '')
|
||||
* Messaging_Services('SendMessage', 'RunProcedure', 'Request', '', 'All', 'RTP27,NDW_SCHEDULE_SEARCH_EVENTS', '', '', '')
|
||||
* Messaging_Services('SendMessage', 'RunProcedure', 'Request', '', 'All', 'RTP27,NOTE_MESSAGE', '', '', '')
|
||||
* Messaging_Services('SendMessage', 'RunProcedure', 'Request', '', 'All', 'RTP27,NOTES_SERVICES', '', '', '')
|
||||
* Messaging_Services('SendMessage', 'RunProcedure', 'Request', '', 'All', 'RTP27,OBJ_NOTE_PTRS', '', '', '')
|
||||
* Messaging_Services('SendMessage', 'RunProcedure', 'Request', '', 'All', 'RTP27,OBJ_NOTES_SENT', '', '', '')
|
||||
* Messaging_Services('SendMessage', 'RunProcedure', 'Request', '', 'All', 'RTP27,OBJ_NOTES', '', '', '')
|
||||
*
|
||||
* Messaging_Services('SendMessage', 'RunProcedure', 'Request', '', 'All', 'RTP27,OBJ_PROD_SPEC', '', '', '')
|
||||
* Messaging_Services('SendMessage', 'RunProcedure', 'Request', '', 'All', 'RTP27,OBJ_REACTOR_LOG', '', '', '')
|
||||
* Messaging_Services('SendMessage', 'RunProcedure', 'Request', '', 'All', 'RTP27,PRINT_WO_MASTER_SCHEDULER', '', '', '')
|
||||
* Messaging_Services('SendMessage', 'RunProcedure', 'Request', '', 'All', 'RTP27,SQL_SERVICES', '', '', '')
|
||||
* Messaging_Services('SendMessage', 'RunProcedure', 'Request', '', 'All', 'RTP27,SVC_SCHEDULER', '', '', '')
|
||||
* Messaging_Services('SendMessage', 'RunProcedure', 'Request', '', 'All', 'RTP27,TOOL_SERVICES', '', '', '')
|
||||
* Messaging_Services('SendMessage', 'RunProcedure', 'Request', '', 'All', 'RTP27,WAFER_COUNTER_SERVICES', '', '', '')
|
||||
* Messaging_Services('SendMessage', 'RunProcedure', 'Request', '', 'All', 'RTP27,WO_SET_SCHEDULE', '', '', '')
|
||||
|
||||
|
||||
* debug
|
||||
* Recipients = ''
|
||||
* SentFrom = @USER4
|
||||
*
|
||||
* SendToGroup = 'RDS_HOLD' : @VM : 'FI_SUPPORT'
|
||||
*
|
||||
* Subject = 'Testing 2'
|
||||
* Message = 'Testing 1234'
|
||||
* AttachWindow = ''
|
||||
* AttachKey = ''
|
||||
*
|
||||
* Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
|
||||
* obj_Notes('Create',Parms)
|
||||
*
|
||||
*
|
||||
return
|
||||
|
||||
* Main:
|
||||
@ -222,3 +279,4 @@ Main2:
|
||||
return
|
||||
|
||||
|
||||
|
||||
|
Reference in New Issue
Block a user