Index: BL/Prod/OptiBox/Optimize.cls.xml
===================================================================
diff -u -r29997 -r30106
--- BL/Prod/OptiBox/Optimize.cls.xml	(.../Optimize.cls.xml)	(revision 29997)
+++ BL/Prod/OptiBox/Optimize.cls.xml	(.../Optimize.cls.xml)	(revision 30106)
@@ -89,6 +89,11 @@
 <Type>BL.Prod.OptiBox.BoxReferentieParser</Type>
 </Property>
 
+<Property name="ProcessAPI">
+<Type>TECH.Process.ProcessAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="Instance">
 <Description>
 Deze method is gemaakt om unit tests te kunnen doen op de stateless methods van deze klasse.</Description>
@@ -107,6 +112,7 @@
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..BoxReferentieParser = ##class(BL.Prod.OptiBox.BoxReferentieParser).%New()
+	Set ..ProcessAPI = ##class(TECH.Context).Instance().GeefProcessAPI()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -725,7 +731,7 @@
 	Set oLog=$$$Log("I","O",,,"Send2Optimizer",..oRequest.Customer,..oRequest)
 	Do:..DebugInfo WX^vhDBG(..oRequest,1)
 	Lock +PanOptimizer:2  ;serialize requests to OptiBox server
-	Hang .2
+	do ..ProcessAPI.Sleep(.2)
 	Set Status=wsOptimizer.QueueOptimization(..oRequest)
 	Lock -PanOptimizer	
 	Do:..DebugInfo WX^vhDBG(Status,1)
Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Common/Aansturing/TestBase.cls.xml
===================================================================
diff -u -r30098 -r30106
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Common/Aansturing/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 30098)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Common/Aansturing/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 30106)
@@ -90,6 +90,7 @@
 	do ##class(DOM.PM.Maatwerk.Calc.IoCContainer).Instance().Register("DateTimeAPI",##class(TECH.DateTime.impl.DateTimeAPI).%New())
 	do ##class(vhTest.Fake.TECH.DateTime.DateTimeAPI).Activeer(..#ReferentieDatum)
 	do ##class(vhTest.Fake.TECH.System.SystemAPI).Activeer()
+	do ##class(vhTest.Fake.TECH.Process.ProcessAPI).Activeer()
 	do ##class(vhTest.Integratie.FakeFileNameGenerator).Activeer()
 	
 	set ..VolgendIDBepalerAPI = ##class(vhTest.Fake.TECH.VolgendIDBepaler.VolgendIDBepalerAPI).Activeer()
Index: BL/Prod/OptiBox/Snijden.cls.xml
===================================================================
diff -u -r29992 -r30106
--- BL/Prod/OptiBox/Snijden.cls.xml	(.../Snijden.cls.xml)	(revision 29992)
+++ BL/Prod/OptiBox/Snijden.cls.xml	(.../Snijden.cls.xml)	(revision 30106)
@@ -43,6 +43,19 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
+<Property name="ProcessAPI">
+<Type>TECH.Process.ProcessAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ProcessAPI = ##class(TECH.Context).Instance().GeefProcessAPI()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 /*
@@ -579,8 +592,9 @@
 	$$$LastLogCreate("I","S",,,"Cut2Optimizer",,..oRequest)
 	
 	Lock +PanOptimizer:2 ;serialize requests to OptiBox server
-	Hang .2
 	
+	do ..ProcessAPI.Sleep(.2)
+	
 	If '##class(TECH.Config.ConfigMgr).Instance().GetBoolean("BL.Prod.OptiBox.Snijden_SimuleerIpvUitvoeren")&&'..Simulate {
 		Set Status=wsOptimizer.QueueCutting(..oRequest)
 	} Else {
Index: BL/PPS/WPVerpak.cls.xml
===================================================================
diff -u -r29059 -r30106
--- BL/PPS/WPVerpak.cls.xml	(.../WPVerpak.cls.xml)	(revision 29059)
+++ BL/PPS/WPVerpak.cls.xml	(.../WPVerpak.cls.xml)	(revision 30106)
@@ -44,6 +44,22 @@
 <Type>%Boolean</Type>
 </Property>
 
+<Property name="ProcessAPI">
+<Type>TECH.Process.ProcessAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	set ..ProcessAPI = ##class(TECH.Context).Instance().GeefProcessAPI()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <UDLText name="T">
 <Content><![CDATA[
 /* inherited methods 
@@ -115,10 +131,7 @@
 	Set oQ=##class(DS.PPS.TBX.Queue).%OpenId(QueueID)
 	Quit:'$isObject(oQ) $$$pxStatusErrorEx("Kan queue-object niet openen.","QueueID: "_QueueID)
 	Set oQ.WPVerpak.WPStatus=$$$wsFinished
-	If ..VorigWasSnijOpdracht
-	{
-		Hang 3
-	}
+	do:..VorigWasSnijOpdracht ..ProcessAPI.Sleep(3)
 	Set pxStatus=..Snij(oQ,.Redo)
 	Quit:($$$pxStatusIsERR(pxStatus)) pxStatus
 	Set CacheStatus=oQ.%Save()