Index: vhTest/Mock/WS/APPS/Verpakking/Service/MaakSnijRequest.cls.xml
===================================================================
diff -u -r68878 -r69113
--- vhTest/Mock/WS/APPS/Verpakking/Service/MaakSnijRequest.cls.xml	(.../MaakSnijRequest.cls.xml)	(revision 68878)
+++ vhTest/Mock/WS/APPS/Verpakking/Service/MaakSnijRequest.cls.xml	(.../MaakSnijRequest.cls.xml)	(revision 69113)
@@ -9,9 +9,9 @@
 <Inheritance>right</Inheritance>
 
 <Method name="MaakSnijRequest">
-<FormalSpec>OptimaleDoos:APPS.Verpakking.Doos,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie,MachineID:APPS.Verpakking.enu.MachineID,Prioriteit:%String,Aantal:%Integer,WerklijstItemId:%Decimal</FormalSpec>
+<FormalSpec>OptimaleDoos:APPS.Verpakking.Doos,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie,MachineID:APPS.Verpakking.enu.MachineID,Prioriteit:%String,Aantal:%Integer,Referentie:%String</FormalSpec>
 <ReturnType>WS.APPS.Verpakking.SnijDoosRequest</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakSnijRequest",OptimaleDoos,MachineTechnologie,MachineID,Prioriteit,Aantal,WerklijstItemId)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("MaakSnijRequest",OptimaleDoos,MachineTechnologie,MachineID,Prioriteit,Aantal,Referentie)
 ]]></Implementation>
 </Method>
 </Class>
Index: BL/PPS/TBX/OptiBox.cls.xml
===================================================================
diff -u -r68876 -r69113
--- BL/PPS/TBX/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 68876)
+++ BL/PPS/TBX/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 69113)
@@ -428,33 +428,33 @@
 	. . Set OptiID="TBX||V1 LosseOnderdelen"
 	. . Set Params("LOQTY")=Qty
 	. . Set Status=##class(BL.Prod.OptiBox.Optimize).OneBox($$$SplitID(OptiID), .Params, Qty, BaseRef, .PRNr, .CallBack, .SnijPrioriteit, .PPSOutput, .MachineID)
-	. . Do ..GeefDoos(OptiID, .MachineID, .Qty, .Params, .PRNr, .SnijPrioriteit)
+	. . Do ..GeefDoos(OptiID, .MachineID, .Qty, .Params, .PRNr, .SnijPrioriteit, BaseRef, .CallBack)
 	. If $G(Params("BKQTY"))>0 Do
 	. . Set OptiID="TBX||V1 Boxkap Doos"
 	. . Set OptiID="TBX||V1 Boxkap"
 	. . Set Params("BKQTY")=Qty
 	. . Set Status=##class(BL.Prod.OptiBox.Optimize).OneBox($$$SplitID(OptiID), .Params, Qty, BaseRef, .PRNr, .CallBack, .SnijPrioriteit, .PPSOutput, .MachineID)
-	. . Do ..GeefDoos(OptiID, .MachineID, .Qty, .Params, .PRNr, .SnijPrioriteit)
+	. . Do ..GeefDoos(OptiID, .MachineID, .Qty, .Params, .PRNr, .SnijPrioriteit, BaseRef, .CallBack)
 	Else  If Usage="V1" Do
 	. Set Params("LOQTY")=-1
 	. Set Params("BKQTY")=-1
 	. Set Status=##class(BL.Prod.OptiBox.Optimize).OneBox($$$SplitID(OptiID), .Params, Qty, BaseRef, .PRNr, .CallBack, .SnijPrioriteit, .PPSOutput, .MachineID)
-	. Do ..GeefDoos(OptiID, .MachineID, .Qty, .Params, .PRNr, .SnijPrioriteit)
+	. Do ..GeefDoos(OptiID, .MachineID, .Qty, .Params, .PRNr, .SnijPrioriteit, BaseRef, .CallBack)
 	Else  Do
 	. ;k %Params m %Params=Params zw %Params
 	. Set Status=##class(BL.Prod.OptiBox.Optimize).OneBox($$$SplitID(OptiID), .Params, Qty, BaseRef, .PRNr, .CallBack, .SnijPrioriteit, .PPSOutput, .MachineID)
-	. Do ..GeefDoos(OptiID, .MachineID, .Qty, .Params, .PRNr, .SnijPrioriteit)
+	. Do ..GeefDoos(OptiID, .MachineID, .Qty, .Params, .PRNr, .SnijPrioriteit, BaseRef, .CallBack)
 	
 	Quit $G(Status)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefDoos">
-<FormalSpec><![CDATA[OptiID:%String,&MachineID:APPS.Verpakking.enu.MachineID,&Aantal:%Integer,&Params:%String,&PRNr:%String,&Prioriteit:%String="Simulatie"]]></FormalSpec>
+<FormalSpec><![CDATA[OptiID:%String,&MachineID:APPS.Verpakking.enu.MachineID,&Aantal:%Integer,&Params:%String,&PRNr:%String,&Prioriteit:%String="Simulatie",BaseRef:%String,&CallBack:%List]]></FormalSpec>
 <Implementation><![CDATA[
 	Try {
 		Set DoosService = ##class(APPS.Verpakking.DoosService).%New()
-		Do DoosService.GeefDoos($$$SplitID(OptiID), .MachineID, .Aantal, .Params, .PRNr, .Prioriteit,)	
+		Do DoosService.GeefDoos($$$SplitID(OptiID), .MachineID, .Aantal, .Params, .PRNr, .Prioriteit, BaseRef, .CallBack)	
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		#dim Logger = ##class(vhLib.Logger).%New("VH doos service").Debug("GeefDoos", "Er is iets fout gelopen bij het verwerken van GeefDoos. OptiID: '"_OptiID_"', PRNr: '"_ PRNr _"', MachineID: '"_ MachineID _"'."_Exception.GeefOmschrijving())
@@ -1050,7 +1050,7 @@
 	. . Set Params("ZIJHOOGTE") = Params("ZIJHOOGTE") + 20
 	
 	Set:..VoorgesnedenHuls(PRNr) Params("LOQTY")=-1
-	Do ##class(Tools.Wlip).%New(110).String("@@@@@@" _ Params("RUGHOOGTE"))
+	
 	if $$$Not(Params("LOQTY")=-1) set:(LosseOnderdelenDoos.IsStandaardHuls) Params("LOQTY")=-1
 ]]></Implementation>
 </Method>
Index: vhTest/Fake/WS/APPS/Verpakking/Service/MaakSnijRequest.cls.xml
===================================================================
diff -u -r68405 -r69113
--- vhTest/Fake/WS/APPS/Verpakking/Service/MaakSnijRequest.cls.xml	(.../MaakSnijRequest.cls.xml)	(revision 68405)
+++ vhTest/Fake/WS/APPS/Verpakking/Service/MaakSnijRequest.cls.xml	(.../MaakSnijRequest.cls.xml)	(revision 69113)
@@ -8,7 +8,7 @@
 <Super>WS.APPS.Verpakking.Service.MaakSnijRequest</Super>
 
 <Method name="MaakSnijRequest">
-<FormalSpec>OptimaleDoos:APPS.Verpakking.Doos,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie,MachineID:APPS.Verpakking.enu.MachineID,Prioriteit:%String,Aantal:%Integer</FormalSpec>
+<FormalSpec>OptimaleDoos:APPS.Verpakking.Doos,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie,MachineID:APPS.Verpakking.enu.MachineID,Prioriteit:%String,Aantal:%Integer,Referentie:%String</FormalSpec>
 <ReturnType>WS.APPS.Verpakking.SnijDoosRequest</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
Index: APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml
===================================================================
diff -u -r68876 -r69113
--- APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml	(.../DoosLade.cls.xml)	(revision 68876)
+++ APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml	(.../DoosLade.cls.xml)	(revision 69113)
@@ -164,7 +164,7 @@
 		..DoosType = ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).Flatpack(): ..#OptiIDFlatpack,
 		..DoosType = ##class(APPS.Halux.PPS.Verpakking.enu.DoosTypes).VouwErrondDoos(): ..#OptiIDVouwErrondDoos,
 		1: ..#OptiIDDoosMetDeksel)
-		Do DoosService.GeefDoos(..#OptiGroep, OptiID, .MachineID, Qty, .Params, ProductID, .SnijPrioriteit,)	
+		Do DoosService.GeefDoos(..#OptiGroep, OptiID, .MachineID, Qty, .Params, ProductID, .SnijPrioriteit, BaseRef, .CallBack)	
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		#dim Logger = ##class(vhLib.Logger).%New("VH doos service").Debug("GeefDoos", "Er is iets fout gelopen bij het verwerken van GeefDoos. OptiID: '"_..#OptiGroep _" "_ ..#OptiIDDoosMetDeksel_"', PRNr: '"_ ProductID _"', MachineID: '"_ MachineID _"'."_Exception.GeefOmschrijving())
Index: vhUnitTest/APPS/Verpakking/DoosService/Test.cls.xml
===================================================================
diff -u -r68876 -r69113
--- vhUnitTest/APPS/Verpakking/DoosService/Test.cls.xml	(.../Test.cls.xml)	(revision 68876)
+++ vhUnitTest/APPS/Verpakking/DoosService/Test.cls.xml	(.../Test.cls.xml)	(revision 69113)
@@ -10,16 +10,19 @@
 	Set OptimizerMock = ##class(vhTest.Mock.APPS.Verpakking.Optimizer).%New()
 	Set SnijDoosServiceMock = ##class(vhTest.Mock.WS.APPS.Verpakking.SnijDoosService).%New()
 	Set SnijRequestMakerMock = ##class(vhTest.Mock.WS.APPS.Verpakking.Service.MaakSnijRequest).%New()
+	Set ProductApiLadeMock = ##class(vhTest.Mock.DOM.PM.ProductAPI).%New()
 	
-	#dim ProductGroep, ReceptNaam, MachineID, MachineTechnologie, Params, Prioriteit, PRNr As %String
+	#dim ProductGroep, ReceptNaam, MachineID, MachineTechnologie, Params, Prioriteit, PRNr, BaseRef, CallBack As %String
 	#dim Aantal As %Decimal = 1
 	Kill Params
-	Set PRNr = "DummyPRNr"
+	Set PRNr = "3098795"
 	Set Prioriteit = "DummyPrioriteit"
 	Set ProductGroep = "TBX"
 	Set ReceptNaam = "V1 Boxkap doos"
 	Set MachineID = ##class(APPS.Verpakking.enu.MachineID).HALUX()
 	Set MachineTechnologie = ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.Verpakking.MachineTechnologie_HALUX")
+	Set BaseRef = "DummyBaseRef.Test"
+	Set CallBack = "DummyCallBack"
 	Set Params("BREEDTE") = 630
 	Set Params("DIEPTE") = 350
 	Set Params("HOOGTE") = 140
@@ -35,17 +38,19 @@
 	Do DoosFactoryMock.VerwachtMethodCall("MaakDoos", ProductGroep, ReceptNaam).DanReturn(DummyDoos).ExactAantalKeer(1)
 	Do DoosAanvullerMock.VerwachtMethodCall("VulAanBasisInformatieDoos", DummyDoos, .Params, ProductGroep, Prioriteit, MachineTechnologie).DanDoeNiks().ExactAantalKeer(1)
 	Do OptimizerMock.VerwachtMethodCall("Optimize", DummyDoos, ProductGroep).DanReturn(DummyDoos).ExactAantalKeer(1)
-	Do SnijRequestMakerMock.VerwachtMethodCall("MaakSnijRequest", DummyDoos, MachineTechnologie, MachineID, Prioriteit, Aantal, 0).DanReturn(DummyRequest).ExactAantalKeer(1)
+	Do SnijRequestMakerMock.VerwachtMethodCall("MaakSnijRequest", DummyDoos, MachineTechnologie, MachineID, Prioriteit, Aantal, BaseRef).DanReturn(DummyRequest).ExactAantalKeer(1)
 	Do SnijDoosServiceMock.VerwachtMethodCall("SnijDoos", DummyRequest).DanDoeNiks().ExactAantalKeer(1)
+	Do ProductApiLadeMock.VerwachtMethodCall("GeefProduct", DummyRequest).DanDoeNiks().ExactAantalKeer(1)
 	
 	Set DoosService = ##class(APPS.Verpakking.DoosService).%New(DoosFactoryMock, DoosAanvullerMock, OptimizerMock, SnijDoosServiceMock, SnijRequestMakerMock)
-	Do DoosService.GeefDoos(ProductGroep, ReceptNaam, MachineID, Aantal, .Params, PRNr, Prioriteit)
+	Do DoosService.GeefDoos(ProductGroep, ReceptNaam, MachineID, Aantal, .Params, PRNr, Prioriteit, BaseRef, CallBack)
 	
 	Do DoosFactoryMock.Verifieer()
 	Do DoosAanvullerMock.Verifieer()
 	Do OptimizerMock.Verifieer()
 	Do SnijRequestMakerMock.Verifieer()
 	Do SnijDoosServiceMock.Verifieer()
+	Do ProductApiLadeMock.Verifieer()
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Verpakking/DoosService.cls.xml
===================================================================
diff -u -r68876 -r69113
--- APPS/Verpakking/DoosService.cls.xml	(.../DoosService.cls.xml)	(revision 68876)
+++ APPS/Verpakking/DoosService.cls.xml	(.../DoosService.cls.xml)	(revision 69113)
@@ -33,8 +33,18 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DateTimeAPI">
+<Type>TECH.DateTime.impl.DateTimeAPI</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductAPI">
+<Type>DOM.PM.ProductAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>DoosFactory:APPS.Verpakking.DoosFactory="",DoosAanvuller:APPS.Verpakking.DoosAanvuller="",Optimizer:APPS.Verpakking.Optimizer="",SnijDoosService:WS.APPS.Verpakking.SnijDoosService="",SnijRequestMaker:WS.APPS.Verpakking.Service.MaakSnijRequest=""</FormalSpec>
+<FormalSpec>DoosFactory:APPS.Verpakking.DoosFactory="",DoosAanvuller:APPS.Verpakking.DoosAanvuller="",Optimizer:APPS.Verpakking.Optimizer="",SnijDoosService:WS.APPS.Verpakking.SnijDoosService="",SnijRequestMaker:WS.APPS.Verpakking.Service.MaakSnijRequest="",ProductAPI:DOM.PM.ProductAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -45,23 +55,36 @@
 	Set ..Optimizer = $$$Inject(Optimizer, ##class(APPS.Verpakking.Optimizer).%New())
 	Set ..SnijDoosService = $$$Inject(SnijDoosService, ##class(WS.APPS.Verpakking.SnijDoosService).%New())
 	Set ..SnijRequestMaker = $$$Inject(SnijRequestMaker, ##class(WS.APPS.Verpakking.Service.MaakSnijRequest).%New())
+	Set ..ProductAPI = $$$Inject(ProductAPI, ##class(DOM.DomeinContext).Instance().GeefProductAPI())
+	Set ..DateTimeAPI = ##class(TECH.Context).Instance().GeefDateTimeAPI()
 	Set ..Logger = ##class(vhLib.Logger).%New("VH doos service")
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="GeefDoos">
-<FormalSpec><![CDATA[ProductGroep:%String,ReceptNaam:%String,MachineID:APPS.Verpakking.enu.MachineID,Aantal:%Integer,&Params:%String,ProductId:%String,Prioriteit:%String="Simulatie",WerklijstItemId:%Decimal=0]]></FormalSpec>
+<FormalSpec><![CDATA[ProductGroep:%String,ReceptNaam:%String,MachineID:APPS.Verpakking.enu.MachineID,Aantal:%Integer,&Params:%String,ProductId:%String,Prioriteit:%String="-1",BaseRef:%String,&CallBack:%List=""]]></FormalSpec>
 <Implementation><![CDATA[
 	If $$$Not(MachineID = ##class(APPS.Verpakking.enu.MachineID).VH()) {
 		#dim MachineTechnologie As APPS.Verpakking.enu.MachineTechnologie = ..GeefMachineTechnologie(MachineID)
 		#dim Doos As APPS.Verpakking.Doos = ..DoosFactory.MaakDoos(ProductGroep, ReceptNaam)
 		Do ..DoosAanvuller.VulAanBasisInformatieDoos(.Doos, .Params, ProductGroep, Prioriteit, MachineTechnologie)
 		Do ..Optimizer.Optimize(.Doos, ProductGroep)
 		
-		#dim SnijRequest As WS.APPS.Verpakking.SnijDoosRequest = ..SnijRequestMaker.MaakSnijRequest(Doos, MachineTechnologie, MachineID, Prioriteit, Aantal, WerklijstItemId)
+		#dim Product As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductId)
+		
+		#dim OptiData As DS.Prod.OptiBox.OptiData = ..MaakOptiData(Doos, BaseRef, Aantal, Product, MachineID, Prioriteit)
+		#dim SnijData As DS.Prod.OptiBox.SnijData = ..MaakSnijData(Doos, BaseRef, OptiData, Product, MachineID, Prioriteit)
+		#dim SnijDef As DS.Prod.OptiBox.sub.emSnijDef = ..MaakSnijDef(Doos, SnijData)
+		Do SnijData.SnijDefs.SetAt(SnijDef, MachineID)
+		Do SnijData.%Save()
+		
+		#dim OptiboxQueue = ..MaakOptiboxQueue(SnijData, Prioriteit, CallBack)
+		
+		#dim SnijRequest As WS.APPS.Verpakking.SnijDoosRequest = ..SnijRequestMaker.MaakSnijRequest(Doos, MachineTechnologie, MachineID, Prioriteit, Aantal, SnijData.Reference)
 		Do ..LogXmlObject(SnijRequest, "GeefDoos OUT")
+		
 		#dim SnijResponse As WS.APPS.Verpakking.SnijDoosResponse = ..SnijDoosService.SnijDoos(SnijRequest)
 		Do ..LogXmlObject(SnijResponse, "GeefDoos IN")
 		
@@ -73,14 +96,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="HeeftTBXLosseOnderdelendoos">
-<FormalSpec><![CDATA[&Params:%String]]></FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit $Select($D(Params("LOQTY")) = $$$True: Params("LOQTY"), 1:$$$False)
-]]></Implementation>
-</Method>
-
 <Method name="GeefMachineTechnologie">
 <FormalSpec>MachineID:APPS.Verpakking.enu.MachineID</FormalSpec>
 <Private>1</Private>
@@ -113,6 +128,129 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="MaakSnijDef">
+<FormalSpec>Doos:APPS.Verpakking.Doos,MachineID:APPS.Verpakking.enu.MachineID</FormalSpec>
+<Private>1</Private>
+<ReturnType>DS.Prod.OptiBox.sub.emSnijDef</ReturnType>
+<Implementation><![CDATA[
+	Set SnijDef=##class(DS.Prod.OptiBox.sub.emSnijDef).%New()
+	Set SnijDef.CardboardID =Doos.CardBoardID
+	Set SnijDef.Recept = Doos.Recipe
+	Set SnijDef.Swap = Doos.Swap
+	Set SnijDef.Breedte = Doos.Width
+	Set SnijDef.Hoogte = Doos.Height
+	Set SnijDef.Diepte = Doos.Depth
+	Set SnijDef.Aantal = 1
+	
+	#dim Teller As %Integer = 1
+	Set Iterator = ##class(TECH.ListIterator).%New(Doos.Params)
+	While Iterator.HasNext() {
+		#dim Param As APPS.Verpakking.Doos.Param = Iterator.Next()
+		Do SnijDef.Params.SetAt(Param.Value, Teller)
+	}
+	
+	Quit SnijDef
+]]></Implementation>
+</Method>
+
+<Method name="MaakSnijData">
+<FormalSpec>Doos:APPS.Verpakking.Doos,BaseRef:%String,OptiData:DS.Prod.OptiBox.OptiData,Product:DOM.PM.Product,MachineID:APPS.Verpakking.enu.MachineID,Prioriteit:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DS.Prod.OptiBox.SnijData</ReturnType>
+<Implementation><![CDATA[
+	Set SnijData=##class(DS.Prod.OptiBox.SnijData).%New()
+	Set SnijData.Reference = BaseRef_ "." _ OptiData.%Id()
+	Set SnijData.OptiData = OptiData
+	Set SnijData.ObjRef = OptiData.ObjRef
+	Set SnijData.ObjType = OptiData.ObjType
+	//Set SnijData.CallBack = //?? Moet deze w opgevuld?
+	//Set SnijData.BoxData = //?? Moet deze w opgevuld? //Mogelijks niet meer nodig
+	Set SnijData.ProductRef = Product.GeefKorttekst()
+	
+	;Set SnijData.OptiID=OptiID //Mogelijks niet meer nodig omdat we niet meer via optimzer gaan?
+	;Set SnijData.SubRef=pxBox.SubRef
+	;Set SnijData.Weight=pxBox.Weight
+	;Set SnijData.ID=pxBox.ID
+	Set SnijData.BoxSelect = Doos.RecipeName
+	Set SnijData.Diepte = Doos.Depth
+	Set SnijData.Breedte = Doos.Width
+	Set SnijData.Hoogte = Doos.Height
+	;Set SnijData.BoxImage=pxBox.BoxImage
+	;Set SnijData.StapelImage=pxBox.StapelImage
+	;Set SnijData.FilledImage=pxBox.FilledImage
+	;Set SnijData.Sequentie=pxBox.Sequentie
+	;Set SnijData.Rotatie=pxBox.Rotatie
+	Set SnijData.Aantal = 1
+	Set SnijData.CreatieTijdStip = ..GeefHuidigeTimeStamp()
+	Set SnijData.PRNr = Product.GeefPRNr()
+	;Set SnijData.Errors=$TR(pxBox.Errors,$C(0))
+	;If $L(SnijData.Errors) Set SnijData.Status="E"
+	Set SnijData.SnijMachineID = MachineID
+	Set SnijData.Status = "Q"
+	Set SnijData.Simulate = $Select((Prioriteit = -1): $$$True, 1: $$$False)
+	Do SnijData.%Save()
+	
+	//Set SnijData.BoxDeelVan = SnijData.%Id() //wss ook niet van belang
+	//Do SnijData.%Save()
+	
+	Quit SnijData
+]]></Implementation>
+</Method>
+
+<Method name="MaakOptiData">
+<FormalSpec>Doos:APPS.Verpakking.Doos,BaseRef:%String,Aantal:%Integer,Product:DOM.PM.Product,MachineID:APPS.Verpakking.enu.MachineID,Prioriteit:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>DS.Prod.OptiBox.OptiData</ReturnType>
+<Implementation><![CDATA[
+	Set OptiData=##class(DS.Prod.OptiBox.OptiData).%New()
+	
+	Set OptiData.ObjType = $P(BaseRef,".")
+	Set OptiData.ObjRef = $P(BaseRef,".",2)
+	Set OptiData.ProductRef = Product.GeefKorttekst()
+	;Set oOptiData.BoxData=oData //wordt toch eigenlijk nergens gebruikt
+	Set OptiData.PRNr = Product.GeefPRNr()
+	If $L(MachineID) {
+		Set OptiData.MachineID = MachineID
+		Set OptiData.SnijPrioriteit = Prioriteit
+	}
+	Set OptiData.CreatieTijdStip = ..GeefHuidigeTimeStamp()
+	Set OptiData.ProductAantal = 1 // $S(ProdQty>0:ProdQty,1:1) //TBD, wss hardcoderen op 1
+	Set OptiData.DoosAantal = Aantal
+	
+	Set Status=OptiData.%Save()
+	
+	Quit OptiData
+]]></Implementation>
+</Method>
+
+<Method name="MaakOptiboxQueue">
+<FormalSpec>SnijData:DS.Prod.OptiBox.SnijData,Prioriteit:%String,CallBack:%List</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set OptiboxQueue =##class(DS.Prod.OptiBox.Queue).%New()
+	Set OptiboxQueue.Type = "S" //// O: Optimizer, S : Snijden, M : Machine //Optimise niet in tabel zetten? 
+	//Set OptiboxQueue.ID = ID // ID die terugkomt van de snijcall, niet nodig dus
+	Set OptiboxQueue.ObjType = SnijData.ObjType
+	Set OptiboxQueue.ObjRef = SnijData.ObjRef
+	Do:(OptiboxQueue.Type = "S")&&$P(SnijData.Reference,".",3) OptiboxQueue.SnijDataSetObjectId(SnijData.Reference)
+	Set:((Prioriteit = "Simulatie")&&(OptiboxQueue.Type = "S")) OptiboxQueue.SnijSimulatie=1
+	Set OptiboxQueue.CreatieTijdStip = ..GeefHuidigeTimeStamp()
+	Set OptiboxQueue.Status = "Q" //Status for Cutting : Queue, Start, Finish, WrongCardboard,Deleted
+	Set OptiboxQueue.CallBack = $G(CallBack) 
+	Set OptiboxQueue.SnijData = SnijData
+	
+	Set Status = OptiboxQueue.%Save()
+	Quit OptiboxQueue
+]]></Implementation>
+</Method>
+
+<Method name="GeefHuidigeTimeStamp">
+<Private>1</Private>
+<ReturnType>%TimeStamp</ReturnType>
+<Implementation><![CDATA[	Quit ..DateTimeAPI.CurrentTimeStamp()
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml
===================================================================
diff -u -r68929 -r69113
--- APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml	(.../KartonSnijVisitor.cls.xml)	(revision 68929)
+++ APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml	(.../KartonSnijVisitor.cls.xml)	(revision 69113)
@@ -83,7 +83,7 @@
 	
 	Try {
 		Set DoosService = ##class(APPS.Verpakking.DoosService).%New()
-		Do DoosService.GeefDoos(UitvoeringInfo.DoosGroep, UitvoeringInfo.DoosNaam, UitvoeringInfo.MachineID, UitvoeringInfo.AantalDozen, .Params, UitvoeringInfo.ProductID, $S(UitvoeringInfo.IsRework: 7, 1: UitvoeringInfo.SnijPrioriteit), UitvoeringInfo.WerklijstItemID)	
+		Do DoosService.GeefDoos(UitvoeringInfo.DoosGroep, UitvoeringInfo.DoosNaam, UitvoeringInfo.MachineID, UitvoeringInfo.AantalDozen, .Params, UitvoeringInfo.ProductID, $S(UitvoeringInfo.IsRework: 7, 1: UitvoeringInfo.SnijPrioriteit), "T." _ UitvoeringInfo.ToeleveringID, CallBack)	
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		#dim Logger = ##class(vhLib.Logger).%New("VH doos service").Debug("GeefDoos", "Er is iets fout gelopen bij het verwerken van GeefDoos. Doosgroep: '"_UitvoeringInfo.DoosGroep_"', DoosNaam: '"_ UitvoeringInfo.DoosNaam _", PRNr: '"_ UitvoeringInfo.ProductID _"', MachineID: '"_ UitvoeringInfo.MachineID _"'."_Exception.GeefOmschrijving())
Index: APPS/Verpakking/DoosAanvuller.cls.xml
===================================================================
diff -u -r68851 -r69113
--- APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 68851)
+++ APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 69113)
@@ -27,7 +27,7 @@
 	Set BasisDoos.Width = ##class(TECH.Math).Round(BasisDoos.Width,0)
 	
 	If (MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Kraft()) {
-		If (Prioriteit = "Simulatie") {
+		If (Prioriteit = "-1") {
 			Set BasisDoos.Priority = "Simulation"
 		} ElseIf (Prioriteit <= 7) {
 			Set BasisDoos.Priority = 8				//Niet dringend
Index: WS/APPS/Verpakking/SnijDoosRequest.cls.xml
===================================================================
diff -u -r68876 -r69113
--- WS/APPS/Verpakking/SnijDoosRequest.cls.xml	(.../SnijDoosRequest.cls.xml)	(revision 68876)
+++ WS/APPS/Verpakking/SnijDoosRequest.cls.xml	(.../SnijDoosRequest.cls.xml)	(revision 69113)
@@ -56,9 +56,9 @@
 <Parameter name="XMLNAME" value="CUTID"/>
 </Property>
 
-<Property name="WerklijstItemId">
+<Property name="Reference">
 <Type>%Decimal</Type>
-<Parameter name="XMLNAME" value="WERKLIJSTITEMID"/>
+<Parameter name="XMLNAME" value="REFERENCE"/>
 </Property>
 </Class>
 
Index: BL/PPS/KAD/OptiBox.cls.xml
===================================================================
diff -u -r68876 -r69113
--- BL/PPS/KAD/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 68876)
+++ BL/PPS/KAD/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 69113)
@@ -144,7 +144,7 @@
 	
 	Try {
 		Set DoosService = ##class(APPS.Verpakking.DoosService).%New()
-		Do DoosService.GeefDoos($$$SplitID(OptiID), .MachineID, .Qty, .Params, .PRNr, .SnijPrioriteit,)	
+		Do DoosService.GeefDoos($$$SplitID(OptiID), .MachineID, .Qty, .Params, .PRNr, .SnijPrioriteit, BaseRef, .CallBack)	
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		#dim Logger = ##class(vhLib.Logger).%New("VH doos service").Debug("GeefDoos", "Er is iets fout gelopen bij het verwerken van GeefDoos. OptiID: '"_OptiID_"', PRNr: '"_ PRNr _"', MachineID: '"_ MachineID _"'."_Exception.GeefOmschrijving())
Index: APPS/Halux/PPS/Verpakking/impl/DoosLosseOnderdelen.cls.xml
===================================================================
diff -u -r68876 -r69113
--- APPS/Halux/PPS/Verpakking/impl/DoosLosseOnderdelen.cls.xml	(.../DoosLosseOnderdelen.cls.xml)	(revision 68876)
+++ APPS/Halux/PPS/Verpakking/impl/DoosLosseOnderdelen.cls.xml	(.../DoosLosseOnderdelen.cls.xml)	(revision 69113)
@@ -94,7 +94,7 @@
 	
 	Try {
 		Set DoosService = ##class(APPS.Verpakking.DoosService).%New()
-		Do DoosService.GeefDoos(..#OptiGroep, ..#OptiIDLosseOnderdelen, .MachineID, .Qty, .Params, ProductID, .SnijPrioriteit,)	
+		Do DoosService.GeefDoos(..#OptiGroep, ..#OptiIDLosseOnderdelen, .MachineID, .Qty, .Params, ProductID, .SnijPrioriteit, BaseRef, .CallBack)	
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		#dim Logger = ##class(vhLib.Logger).%New("VH doos service").Debug("GeefDoos", "Er is iets fout gelopen bij het verwerken van GeefDoos. OptiID: '"_..#OptiGroep_ " "_..#OptiIDLosseOnderdelen_"', PRNr: '"_ ProductID _"', MachineID: '"_ MachineID _"'."_Exception.GeefOmschrijving())
Index: WS/APPS/Verpakking/Service/MaakSnijRequest.cls.xml
===================================================================
diff -u -r68876 -r69113
--- WS/APPS/Verpakking/Service/MaakSnijRequest.cls.xml	(.../MaakSnijRequest.cls.xml)	(revision 68876)
+++ WS/APPS/Verpakking/Service/MaakSnijRequest.cls.xml	(.../MaakSnijRequest.cls.xml)	(revision 69113)
@@ -4,7 +4,7 @@
 <Super>TECH.Mockable</Super>
 
 <Method name="MaakSnijRequest">
-<FormalSpec>OptimaleDoos:APPS.Verpakking.Doos,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie,MachineID:APPS.Verpakking.enu.MachineID,Prioriteit:%String,Aantal:%Integer,WerklijstItemId:%Decimal</FormalSpec>
+<FormalSpec>OptimaleDoos:APPS.Verpakking.Doos,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie,MachineID:APPS.Verpakking.enu.MachineID,Prioriteit:%String,Aantal:%Integer,Referentie:%String</FormalSpec>
 <ReturnType>WS.APPS.Verpakking.SnijDoosRequest</ReturnType>
 <Implementation><![CDATA[
 	Set SnijRequest = ##class(WS.APPS.Verpakking.SnijDoosRequest).%New()
@@ -16,7 +16,7 @@
 	Set SnijRequest.Priority = Prioriteit
 	Set SnijRequest.Technology = MachineTechnologie
 	Set SnijRequest.Server = $$$Server
-	Set SnijRequest.WerklijstItemId = WerklijstItemId
+	Set SnijRequest.Reference = Referentie
 	
 	Quit SnijRequest
 ]]></Implementation>