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

pre cutover push

Browse Source
This commit is contained in:
Infineon\StieberD
2024-09-04 20:33:41 -07:00
parent 6ea6969f4b
commit 7762b129af
2072 changed files with 130000 additions and 95295 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
LSL2/STPROC/OBJ_NOTES.txt
View File

@ -15,7 +15,7 @@ COMPILE FUNCTION obj_Notes(Method,Parms)
*/
DECLARE FUNCTION Get_Status, Msg, Utility, obj_Tables, NextKey, SRPSendMail, obj_Calendar, Database_Services, SRP_Send_Mail
DECLARE FUNCTION Get_Status, Msg, Utility, obj_Tables, NextKey, SRP_Send_Mail, obj_Calendar, Database_Services
DECLARE SUBROUTINE Set_Status, Msg, obj_Tables, RList, ErrMsg, obj_Notes_Sent, Btree.Extract, Send_Info, obj_Notes
$INSERT MSG_EQUATES
@ -70,7 +70,6 @@ Inbox:
UserName = Parms[1,@RM]
IF UserName = '' THEN UserName = @USER4
IF UserName = '' THEN UserName = @USERNAME
IF XLATE( 'NOTE_PTRS', UserName, 'NEW_MESSAGES', 'X' ) THEN
NotePtrRec = XLATE( 'NOTE_PTRS', UserName, '', 'X' )
@ -222,8 +221,6 @@ Rebuild:
thisRecipient = Parms[1,@RM]
IF thisRecipient = '' THEN thisRecipient = @USER4
IF thisRecipient = '' THEN thisRecipient = @USERNAME
SelectSent = 'SELECT NOTES WITH SEND_TO "':thisRecipient:'" AND WITH ENTRY_DATE GE ':QUOTE(OCONV(Date()-90,'D4/'))
@ -413,7 +410,7 @@ RETURN
* * * * * * *
ForwardEMail:
* * * * * * *
debug
hSysLists = Database_Services('GetTableHandle', 'SYSLISTS')
ServiceKeyID = 'Obj_Notes*ForwardEMail'
Lock hSysLists, ServiceKeyID then
@ -583,7 +580,7 @@ FOR I = 1 TO RecipCnt
Message<8> = Text ; * Content / Body
Message<9> = '' ; * Attachment(s) (path to file name(s))
MsgSent = SRPSendMail(Message, ConfigFile)
MsgSent = SRP_Send_Mail(Message, ConfigFile)
END
@ -596,3 +593,4 @@ NEXT I ;* End of Recipient Loop
RETURN