diff --git a/LSL2/STPROC/OBJ_TABLES.txt b/LSL2/STPROC/OBJ_TABLES.txt index aafb812..68400a6 100644 --- a/LSL2/STPROC/OBJ_TABLES.txt +++ b/LSL2/STPROC/OBJ_TABLES.txt @@ -205,8 +205,6 @@ WriteRec: IF TestRec = '' THEN DELETE TableVar,TableKey ELSE Null - * ErrorMsg = 'Blank table rec with ':QUOTE(TableKey):' on ':QUOTE(TableName):' table.'; *added 4/9/21 for debugging - * Set_FSError() END ELSE Set_Status(0) rv = Get_Status(errCode) @@ -215,7 +213,6 @@ WriteRec: END ELSE ErrorMsg = 'Unable to write ':QUOTE(TableKey):' on ':QUOTE(TableName):' table.' END - END If ( (TableName NE '') and (TableKey NE '') ) then @@ -235,20 +232,9 @@ WriteRec: LogData<7> = 'Record self locked: ':Database_Services('IsKeyIDSelfLocked', TableName, TableKey) LogData<9> = 'Call stack: ':RetStack() Logging_Services('AppendLog', objLog, LogData, @RM, @FM) - - Recipients = '' - SendFrom = 'System' - Subject = 'obj_Tables("WriteRec") failed to release lock' - AttachWindow = TableName - AttachKey = TableKey - SendToGroup = 'FI_SUPPORT' - MessageParms = Recipients:@RM:SendFrom:@RM:Subject:@RM:UnlockError:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup - obj_Notes('Create',MessageParms) - end end end - END RETURN diff --git a/LSL2/STPROC/WO_MAT_QA_ACTIONS.txt b/LSL2/STPROC/WO_MAT_QA_ACTIONS.txt index d844620..7068e3e 100644 --- a/LSL2/STPROC/WO_MAT_QA_ACTIONS.txt +++ b/LSL2/STPROC/WO_MAT_QA_ACTIONS.txt @@ -182,6 +182,7 @@ WRITE_RECORD_PRE: Case Record EQ '' // Unscheduled record write attempt. Block the write and log the event. + // Empty WO_MAT_QA records can cause undesireable issues processing lots. ErrorMessage = 'Empty WO_MAT_QA profile. Unscheduled record write attempt!' Error_Services('Add', 'FS104: ':ErrorMessage) OrigFileError = 104 : @FM : ErrorMessage @@ -200,21 +201,8 @@ WRITE_RECORD_PRE: LogData<4> = Stack LogData<5> = CRLF$:RecordSnapshot:CRLF$ LogData<6> = 'FS104: ':ErrorMessage - - // Sending a null message will send the LogData instead Logging_Services('AppendLog', objLog, LogData, @RM, @FM, '', '', '') - // Send an internal OI message to OI admins - Recipients = Xlate('SEC_GROUPS', 'OI_ADMIN', 'USER', 'X') - SentFrom = 'SYSTEM' - Subject = 'Unscheduled WO_MAT_QA record write attempt.' - Message = ErrorMessage - AttachWindow = '' - AttachKey = '' - SendToGroup = '' - Parms = Recipients:@RM:SentFrom:@RM:Subject:@RM:Message:@RM:AttachWindow:@RM:AttachKey:@RM:SendToGroup - obj_Notes('Create',Parms) - Status = 0 Record = '' ActionFlow = ACTION_STOP$