Removed WO_MAT_QA write action block event emails. Removed failure to unlock emails from obj_Tables.

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

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$