Index: APPS/Halux/Planning/Resource/impl/ConvertAll.cls.xml
===================================================================
diff -u -r56901 -r56983
--- APPS/Halux/Planning/Resource/impl/ConvertAll.cls.xml	(.../ConvertAll.cls.xml)	(revision 56901)
+++ APPS/Halux/Planning/Resource/impl/ConvertAll.cls.xml	(.../ConvertAll.cls.xml)	(revision 56983)
@@ -42,6 +42,7 @@
 
 <Method name="Verwerk">
 <Implementation><![CDATA[
+	Lock +ProductieResource:0 Else  Quit
 	;Do ..VerwijderAlles()
 	Set ..itProductieOrder=##class(ProductieOrderIterator).%New()
 	
@@ -60,6 +61,7 @@
 		}
 		;Quit:..Cnt>10000
 	}
+	Lock -ProductieResource
 ]]></Implementation>
 </Method>