Index: BL/PPS/OL/OptiBox.cls.xml
===================================================================
diff -u -r68682 -r72243
--- BL/PPS/OL/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 68682)
+++ BL/PPS/OL/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 72243)
@@ -127,11 +127,21 @@
 	Set KLNr=$P(^KU1(BONNr,"F"),"\")
  	Set FakSoort=$S($P(^KU1(BONNr,"F"),"\",2):"G",1:"F") ; Reeds gefactureerd
 
-	Set oBL=..Instantiate(BONNr) ; Creeert OptimizeRequest en Pallet
-	Do oBL.AddBon(oBL.oRequest,BONNr)
-	Set Status=%blProdOptiBoxOptimize.Send2Optimizer()
-	Kill %blProdOptiBoxOptimize
-	Do oBL.Close()
+	If (0) {
+		#dim BackgroundProcessStarter As TECH.impl.BackgroundProcessStarter = ##class(TECH.Context).Instance().GeefBackgroundJobAPI().GeefBackgroundProcessStarter()
+		Set DataBuilder = ##class(TECH.BackgroundProcess.impl.DataBuilder).%New()
+		Do DataBuilder.SetClassName(##class(APPS.Verpakking.OrgaluxBonOptimizer).%ClassName(1))
+		Do DataBuilder.SetMethodName("OptimizeAsync")
+		Do DataBuilder.VoegToeDataType(BONNr)
+		
+		Do BackgroundProcessStarter.StartProcess(DataBuilder.GetData())
+	} Else {
+		Set oBL=..Instantiate(BONNr) ; Creeert OptimizeRequest en Pallet
+		Do oBL.AddBon(oBL.oRequest,BONNr)
+		Set Status=%blProdOptiBoxOptimize.Send2Optimizer()
+		Kill %blProdOptiBoxOptimize
+		Do oBL.Close()
+	}
 	Quit
 ]]></Implementation>
 </Method>