Index: vhTest/Integratie/Productie/Planning/ActieveBatches/Common/Aansturing/TestBase.cls.xml
===================================================================
diff -u -r70540 -r70945
--- vhTest/Integratie/Productie/Planning/ActieveBatches/Common/Aansturing/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 70540)
+++ vhTest/Integratie/Productie/Planning/ActieveBatches/Common/Aansturing/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 70945)
@@ -166,11 +166,6 @@
 		Do ..PalletIDBepaler.Reset()
 		Do ..ResetBatch(BatchService)
 	}
-	/*
-	If (..Configuratie.KartonAansturing) {
-		Do ..ProcessOptiBoxRequests()
-	}
-	*/
 	If (..Configuratie.ZaagEtiketten) {
 		Do ..PrintZaagEtiketten()
 	}
@@ -313,48 +308,6 @@
 ]]></Implementation>
 </Method>
 
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Method ProcessOptiBoxRequests() [ Private ]
-{
-	Do ##class(TECH.Config.ConfigMgr).Instance().SetBoolean("APPS.Halux.PPS.Verpakking.KartonEchtSnijden", $$$True, ..#Applicatie)
-	
-	#dim WerkpostIterator As TECH.Iterator = ##class(APPS.Halux.PPS.Verpakking.enu.KartonWerkpost).ValueListIterator()
-	
-	While (WerkpostIterator.HasNext()) {
-		
-		#dim Werkpost As %String = WerkpostIterator.Next()
-		
-		continue:(Werkpost=##class(APPS.Halux.PPS.Verpakking.enu.KartonWerkpost).LosseComponenten())
-	
-		Kill %blPPSTBXSequence ; noodzakelijke kill om de juiste instantie per werkpost type te verkrijgen
-		
-		#dim OptimizeService As vhTest.Fake.APPS.Halux.PPS.Verpakking.RequestsLoggendeOptimizeService = ##class(vhTest.Fake.APPS.Halux.PPS.Verpakking.RequestsLoggendeOptimizeService).%New()
-		#dim VerpakkingAPI As vhTest.Mock.APPS.Halux.PPS.Verpakking.VerpakkingAPI = ##class(vhTest.Mock.APPS.Halux.PPS.Verpakking.VerpakkingAPI).MockInstance()
-		
-		Do VerpakkingAPI.IndienMethodCall("GeefOptimizeService").DanReturn(OptimizeService)
-	
-		#dim SessionID As %String = "2JXxcXRV3oeSK6Fa5FsQ1g==" ; Random existing SessionID
-		#dim OptiServer As WS.Prod.OptiBox.OptiServer = ##class(WS.Prod.OptiBox.OptiServer).%New()
-		#dim QueueDataSet As %XML.DataSet
-		
-		Do OptiServer.GetWPQueueViaBatchID(SessionID, Werkpost, ..#BatchID, .QueueDataSet)
-		
-		While (QueueDataSet.Next()) {
-			#dim ID As %String = QueueDataSet.GetDataByName("ID")
-			#dim ReProcessItemDataSet As %XML.DataSet
-			
-			Do OptiServer.ReProcessItem(SessionID, Werkpost, ..#BatchID, ID, .ReProcessItemDataSet)
-		}
-		
-		Do ..DataExporteerder.ExporteerStream(OptimizeService.GetRequestsAsStream(), "OptiboxRequests_" _ ##class(APPS.Halux.PPS.Verpakking.enu.KartonWerkpost).LogicalToDisplay(Werkpost))
-	}
-}
-*/
-]]></Content>
-</UDLText>
-
 <Method name="PrintZaagEtiketten">
 <Private>1</Private>
 </Method>