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