Index: BL/Prod/OptiBox/Diverse.cls.xml
===================================================================
diff -u -r68682 -r69845
--- BL/Prod/OptiBox/Diverse.cls.xml	(.../Diverse.cls.xml)	(revision 68682)
+++ BL/Prod/OptiBox/Diverse.cls.xml	(.../Diverse.cls.xml)	(revision 69845)
@@ -105,9 +105,9 @@
  	. Set Aantal=$P(Aantallen,",",I)
     . Quit:Aantal<1
 	. 
-	. If Type="OPTI" Do 
-	. . Set pxStatus=##class(BL.Prod.OptiBox.Optimize).OneBox($$$bdgProduct, PRNr, , Aantal, BasisRef , PRNr,.CallBack,SnijPrioriteit,PPSOutput,MachineID)
-	. . Set Logger = ##class(vhLib.Logger).%New("VH doos service").Debug("GeefDoos", "Hier is nog geen implementatie, checken hoe vaak we hier komen: OneBox OPTI. PRNr: "_PRNr)
+	. If Type="OPTI" Do
+	. . Set DoosService = ##class(APPS.Verpakking.DoosService).%New()
+	. . Do DoosService.GeefDoos($$$bdgProduct, "", MachineID, Aantal, "", PRNr, SnijPrioriteit, BasisRef, .CallBack, "")
  	.
  	. If Type="KAD" Do
  	. . Set pxStatus=##class(BL.PPS.KAD.OptiBox).%New().SnijOne(PRNr, Aantal , 1, BasisRef, .CallBack, SnijPrioriteit, PPSOutput, MachineID)