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

modfied some logging

Browse Source
This commit is contained in:
Infineon\StieberD
2025-04-01 16:50:52 -07:00
parent 07054d0075
commit 5b8ec59e68
3 changed files with 28 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
LSL2/STPROC/WO_LOG_ACTIONS.txt
View File

@ -204,7 +204,7 @@ READONLY_RECORD:
return
WRITE_RECORD_PRE:
OrigQty = OrigRecord<WO_LOG_QTY$>
NewQty = Record<WO_LOG_QTY$>
OrigCassList = OrigRecord<WO_LOG_WO_MAT_KEY$>
@ -238,12 +238,7 @@ WRITE_RECORD:
LogData<2> = Name
LogData<3> = @User4
Message = @User4:' changed WO_HOLD flag for work order ':Name
If Machine _NEC 'MESSA01EC' then
Logging_Services('AppendLog', objHoldLog, LogData, @RM, @FM, '', 'dstieber@srpcs.com,6613649828@txt.att.net', Message)
end else
// EC Server can't send emails
Logging_Services('AppendLog', objHoldLog, LogData, @RM, @FM)
end
Logging_Services('AppendLog', objHoldLog, LogData, @RM, @FM)
end
If ( (OrigRecord<WO_LOG_LAST_CHAR_RUN$> NE '') and (Record<WO_LOG_LAST_CHAR_RUN$> EQ '') and (Machine _NEC 'MESSA01EC') ) then
@ -254,12 +249,7 @@ WRITE_RECORD:
LogData<3> = Stack
Convert @FM to CRLF$ in Stack
Message = 'Last char run erased on work order ':Name:'.':CRLF$:CRLF$:'Call Stack':CRLF$:Stack
If Machine _NEC 'MESSA01EC' then
Logging_Services('AppendLog', objLog, LogData, @RM, @FM, '', 'dstieber@srpcs.com,Francois.Rivard@infineon.com', Message)
end else
// EC Server can't send emails
Logging_Services('AppendLog', objLog, LogData, @RM, @FM, '', '', '')
end
Logging_Services('AppendLog', objLog, LogData, @RM, @FM, '', '', '')
end
OrigQty = OrigRecord<WO_LOG_QTY$>
@ -546,3 +536,4 @@ ClearCursors:
Next counter
return