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

LSL2/STPROC/COPY_RECORD_TO_SQL.txt

@@ -62,11 +62,10 @@ Main:
 											Open "DICT.":Table to @DICT then null
 											@ID = Key
 											Ans = Function(@Handler(Connection, Key, @RECORD))
-											If Ans EQ '' then
+											If (Ans EQ '') then
 												If Assigned(pKey) then
-													If pKey NE '' then
+													If (pKey NE '') then
 														Delete pTable, pKey else Null
-														Unlock pTable, pKey else Null	
 													end
 												end
 											end
@@ -101,7 +100,9 @@ Main:
 					end
 					
 					If Assigned(pKey) then
-						If (pKey NE '') then 
+						If (pKey NE '') then
+						    // Call unlock here in case we ran into an error above
+						    Unlock pTable, pKey else Null
 							// Always log the result
 							Open 'SQL_LOG' to hLog then
 								If Ans EQ '' then