Index: APPS/Halux/Planning/ResourcePitchingService.cls.xml
===================================================================
diff -u -r71511 -r74076
--- APPS/Halux/Planning/ResourcePitchingService.cls.xml	(.../ResourcePitchingService.cls.xml)	(revision 71511)
+++ APPS/Halux/Planning/ResourcePitchingService.cls.xml	(.../ResourcePitchingService.cls.xml)	(revision 74076)
@@ -52,15 +52,23 @@
 	
 	Do ..ImportCapaciteit()
 	Do ..ImportResourceTijden()
-	Do ..ImportBatchPitching()
 	
 	Do ..BuildProductieOrderToResource()
 	Do ..BuildPitchingFromResourcesAndBatch()
 	Do ..BuildPitchingGroupedByActiviteitAndBatch()
+
+	Do ..UnLock()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkBatchPitching">
+<Implementation><![CDATA[
+	Quit:'..LockBatchPitching()
 	
+	Do ..ImportBatchPitching()	
 	Do ..ExporteerBatchPitchedDataNaarObjective()
 
-	Do ..UnLock()
+	Do ..UnLockBatchPitching()
 ]]></Implementation>
 </Method>
 
@@ -171,6 +179,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="LockBatchPitching">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Lock +ResourcePitchingServiceBatchPitching:0
+	Else  Quit 0
+	Do ##class(APPS.Halux.Planning.impl.ResourceCalcMutex).Enter($zdt(..StartTijdstip,3))
+	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="UnLockBatchPitching">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ##class(APPS.Halux.Planning.impl.ResourceCalcMutex).Exit($zdt($H,3), ..GeefVolgendeStart())
+	Lock -ResourcePitchingServiceBatchPitching
+]]></Implementation>
+</Method>
+
 <Method name="GeefVolgendeStart">
 <Implementation><![CDATA[
 	Set RefDatum=$P(..StartTijdstip,",")