moved procedure call from WO_MAT_ACTIONS to a standalone service to avoid posting too many transactions

LSL2/STPROC/DELETE_RECORD_FROM_SQL.txt

@@ -52,10 +52,11 @@ Main:
 							// Read the record and call the handler
 							If Key NE "" then
 								Ans = Function(@Handler(Connection, Key))
-								If Ans EQ '' then
+								If (Ans EQ '') then
 									If Assigned(pKey) then
-										Delete pTable, pKey else Null
-										Unlock pTable, pKey else Null
+									    If (pKey NE '') then
+									        Delete pTable, pKey else Null
+									    end
 									end
 								end
 							end
@@ -85,7 +86,9 @@ Main:
 			// Always log the result
 
 			If Assigned(pKey) then
-				If (pKey NE '') then 
+				If (pKey NE '') then
+				    // Call unlock here in case an error was encountered above
+				    Unlock pTable, pKey else Null
 					Open 'SQL_LOG' to hLog then
 						If Ans EQ '' then
 							Result = 'PROCESSED'