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

fixed email notifications on failed calls to obj_WM_IN('Create') and obj_WM_OUT('Create')

Browse Source
This commit is contained in:
Infineon\StieberD
2025-06-18 11:52:52 -07:00
parent b2c9e500f8
commit 0c7a1d55e2
2 changed files with 37 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
LSL2/STPROC/OBJ_WM_IN.txt
View File

@ -20,7 +20,7 @@ DECLARE FUNCTION Get_Status, Msg, Utility, obj_Tables, NextKey, obj_WO_Verify, o
DECLARE FUNCTION Database_Services, obj_RDS2, Logging_Services, Environment_Services, Error_Services DECLARE FUNCTION Database_Services, obj_RDS2, Logging_Services, Environment_Services, Error_Services
DECLARE SUBROUTINE Set_Status, Msg, obj_Tables, Send_Dyn, obj_WO_Step, obj_RDS_Layer, obj_RDS_Test, Update_Index DECLARE SUBROUTINE Set_Status, Msg, obj_Tables, Send_Dyn, obj_WO_Step, obj_RDS_Layer, obj_RDS_Test, Update_Index
DECLARE SUBROUTINE obj_Post_Log, obj_WO_Mat_Log,obj_WO_Wfr, Set_Property, Database_Services, Extract_SI_Keys DECLARE SUBROUTINE obj_Post_Log, obj_WO_Mat_Log,obj_WO_Wfr, Set_Property, Database_Services, Extract_SI_Keys
DECLARE SUBROUTINE Logging_Services DECLARE SUBROUTINE Logging_Services, obj_Notes
$INSERT MSG_EQUATES $INSERT MSG_EQUATES
$INSERT WO_LOG_EQU $INSERT WO_LOG_EQU
@ -140,18 +140,24 @@ Create:
LogData<2> = WMInKey LogData<2> = WMInKey
LogData<3> = WMInRec LogData<3> = WMInRec
LogData<4> = 'Record does not exist after obj_WM_IN("Create") call.' LogData<4> = 'Record does not exist after obj_WM_IN("Create") call.'
Machine = Environment_Services('GetServer') Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$)
If Machine NE 'MESSA01EC' then
EmailAddr = 'dstieber@srpcs.com,6613649828@txt.att.net' // Notify OI_SYSADMIN group
EmailMsg = 'WM_IN record ':WMInKey:' does not exist after obj_WM_IN("Create") call.' Recipients = ''
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$, EmailAddr, EmailMsg) SentFrom = 'SYSTEM'
end else Subject = 'Error Creating WM_IN Record'
Logging_Services('AppendLog', ObjLog, LogData, @RM, @FM, False$) Message = LoggingDTM
end Message<2> = WMInKey
Message<3> = WMInRec
Message<4> = 'Record does not exist after obj_WM_IN("Create") call.'
Swap @FM with \0D0A\ in Message
AttachWindow = ''
AttachKey = ''
SendToGroup = 'OI_SYSADMIN'
Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
obj_Notes('Create',Parms)
end end
* obj_Tables('WriteRec','WM_IN':@RM:WMInKey:@RM:@RM:WMInRec)
RETURN RETURN
@ -936,3 +942,4 @@ RETURN

28
LSL2/STPROC/OBJ_WM_OUT.txt
View File

@ -23,7 +23,7 @@ Declare Function Database_Services
Declare Subroutine Set_Status, Msg, obj_Tables, Send_Dyn, obj_WO_Step, obj_RDS_Layer, obj_RDS_Test, Btree.Extract Declare Subroutine Set_Status, Msg, obj_Tables, Send_Dyn, obj_WO_Step, obj_RDS_Layer, obj_RDS_Test, Btree.Extract
Declare Subroutine Extract_SI_Keys, obj_WM_Out, obj_WO_Mat, obj_Post_Log, obj_WO_Mat_Log, ErrMsg, obj_WO_Wfr Declare Subroutine Extract_SI_Keys, obj_WM_Out, obj_WO_Mat, obj_Post_Log, obj_WO_Mat_Log, ErrMsg, obj_WO_Wfr
Declare Subroutine Logging_Services, Material_Services, Database_Services, Update_Index, Work_Order_Services Declare Subroutine Logging_Services, Material_Services, Database_Services, Update_Index, Work_Order_Services
Declare Subroutine Service_Services Declare Subroutine Service_Services, obj_Notes
$Insert MSG_EQUATES $Insert MSG_EQUATES
$Insert APP_INSERTS $Insert APP_INSERTS
@ -258,14 +258,23 @@ Create:
LogData<2> = WMOutKey LogData<2> = WMOutKey
LogData<3> = WMOutRec LogData<3> = WMOutRec
LogData<4> = 'Record does not exist after obj_WM_OUT("Create") call.' LogData<4> = 'Record does not exist after obj_WM_OUT("Create") call.'
Machine = Environment_Services('GetServer') Logging_Services('AppendLog', objReleaseLog, LogData, @RM, @FM, False$)
If Machine NE 'MESSA01EC' then
EmailAddr = 'dstieber@srpcs.com,6613649828@txt.att.net' // Notify OI_SYSADMIN group
EmailMsg = 'WM_OUT record ':WMOutKey:' does not exist after obj_WM_OUT("Create") call.' Recipients = ''
Logging_Services('AppendLog', objReleaseLog, LogData, @RM, @FM, False$, EmailAddr, EmailMsg) SentFrom = 'SYSTEM'
end else Subject = 'Error Creating WM_OUT Record'
Logging_Services('AppendLog', objReleaseLog, LogData, @RM, @FM, False$) Message = LoggingDTM
end Message<2> = WMOutKey
Message<3> = WMOutRec
Message<4> = 'Record does not exist after obj_WM_OUT("Create") call.'
Swap @FM with \0D0A\ in Message
AttachWindow = ''
AttachKey = ''
SendToGroup = 'OI_SYSADMIN'
Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup
obj_Notes('Create',Parms)
end end
WMOCassNo += 1 WMOCassNo += 1
@ -1953,3 +1962,4 @@ ConvertCleanInsp:
RETURN RETURN