phares3757/open-insight
3
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

added mona ok status call if no emails in queue to send

Browse Source
This commit is contained in:
Infineon\StieberD 2025-03-19 11:42:32 -07:00 committed by Stieber Daniel (CSC FI SPS MESLEO)
parent 175869df7d
commit 61435345ad
1 changed files with 39 additions and 31 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
LSL2/STPROC/OBJ_NOTES.txt
View File

@ -360,10 +360,11 @@ ForwardEMail:
Lock hSysLists, ServiceKeyID then Lock hSysLists, ServiceKeyID then
rv = Set_Status(0) rv = Set_Status(0)
RList('SELECT EMAIL_BOX BY NOTE_KEY', 5, '', '', '') RList('SELECT EMAIL_BOX BY NOTE_KEY', 5, '', '', '')
If @RecCount GT 0 then
Done = False$ Done = False$
LOOP Loop
ReadNext eMailBoxKey else Done = True$ ReadNext eMailBoxKey else Done = True$
UNTIL Done Until Done
mbParms = 'EMAIL_BOX':@RM:eMailBoxKey mbParms = 'EMAIL_BOX':@RM:eMailBoxKey
eMailBoxRec = obj_Tables('ReadRec',mbParms) eMailBoxRec = obj_Tables('ReadRec',mbParms)
If @File_Error EQ '' then If @File_Error EQ '' then
@ -390,7 +391,14 @@ ForwardEMail:
end end
obj_Tables('DeleteRec',mbParms) obj_Tables('DeleteRec',mbParms)
end end
REPEAT Repeat
end else
LogData = ''
LogData<1> = LoggingDtm
LogData<2> = 'No emails to send...'
Logging_Services('AppendLog', objLog, LogData, @RM, @FM)
Mona_Services('SendBufferedStatus', 'OPENINSIGHT_MES_OP_FE', 'Email-Service', 'ok')
end
Unlock hSysLists, ServiceKeyID else Null Unlock hSysLists, ServiceKeyID else Null
end end