Index: BL/PPS/TBX/OptiBox.cls.xml
===================================================================
diff -u -r68844 -r68876
--- BL/PPS/TBX/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 68844)
+++ BL/PPS/TBX/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 68876)
@@ -454,7 +454,7 @@
 <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,)	
 	} 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/Verpakking/DoosService.cls.xml
===================================================================
diff -u -r68841 -r68876
--- APPS/Verpakking/DoosService.cls.xml	(.../DoosService.cls.xml)	(revision 68841)
+++ APPS/Verpakking/DoosService.cls.xml	(.../DoosService.cls.xml)	(revision 68876)
@@ -52,15 +52,15 @@
 </Method>
 
 <Method name="GeefDoos">
-<FormalSpec><![CDATA[ProductGroep:%String,ReceptNaam:%String,MachineID:APPS.Verpakking.enu.MachineID,Aantal:%Integer,&Params:%String,ProductId:%String,Prioriteit:%String="Simulatie"]]></FormalSpec>
+<FormalSpec><![CDATA[ProductGroep:%String,ReceptNaam:%String,MachineID:APPS.Verpakking.enu.MachineID,Aantal:%Integer,&Params:%String,ProductId:%String,Prioriteit:%String="Simulatie",WerklijstItemId:%Decimal=0]]></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)
+		#dim SnijRequest As WS.APPS.Verpakking.SnijDoosRequest = ..SnijRequestMaker.MaakSnijRequest(Doos, MachineTechnologie, MachineID, Prioriteit, Aantal, WerklijstItemId)
 		Do ..LogXmlObject(SnijRequest, "GeefDoos OUT")
 		#dim SnijResponse As WS.APPS.Verpakking.SnijDoosResponse = ..SnijDoosService.SnijDoos(SnijRequest)
 		Do ..LogXmlObject(SnijResponse, "GeefDoos IN")
Index: APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml
===================================================================
diff -u -r68841 -r68876
--- APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml	(.../DoosLade.cls.xml)	(revision 68841)
+++ APPS/Halux/PPS/TAORVerpakking/impl/DoosLade.cls.xml	(.../DoosLade.cls.xml)	(revision 68876)
@@ -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,)	
 	} 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: WS/APPS/Verpakking/SnijDoosRequest.cls.xml
===================================================================
diff -u -r68229 -r68876
--- WS/APPS/Verpakking/SnijDoosRequest.cls.xml	(.../SnijDoosRequest.cls.xml)	(revision 68229)
+++ WS/APPS/Verpakking/SnijDoosRequest.cls.xml	(.../SnijDoosRequest.cls.xml)	(revision 68876)
@@ -3,7 +3,7 @@
 <Class name="WS.APPS.Verpakking.SnijDoosRequest">
 <ClassType/>
 <ProcedureBlock>0</ProcedureBlock>
-<Super>%RegisteredObject,%XML.Adaptor</Super>
+<Super>TECH.DataTransferObject</Super>
 <Inheritance>right</Inheritance>
 
 <Parameter name="ELEMENTQUALIFIED">
@@ -50,6 +50,16 @@
 <Type>%String</Type>
 <Parameter name="XMLNAME" value="SERVER"/>
 </Property>
+
+<Property name="CutId">
+<Type>%Decimal</Type>
+<Parameter name="XMLNAME" value="CUTID"/>
+</Property>
+
+<Property name="WerklijstItemId">
+<Type>%Decimal</Type>
+<Parameter name="XMLNAME" value="WERKLIJSTITEMID"/>
+</Property>
 </Class>
 
 
Index: APPS/Halux/PPS/Verpakking/impl/DoosLosseOnderdelen.cls.xml
===================================================================
diff -u -r68738 -r68876
--- APPS/Halux/PPS/Verpakking/impl/DoosLosseOnderdelen.cls.xml	(.../DoosLosseOnderdelen.cls.xml)	(revision 68738)
+++ APPS/Halux/PPS/Verpakking/impl/DoosLosseOnderdelen.cls.xml	(.../DoosLosseOnderdelen.cls.xml)	(revision 68876)
@@ -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,)	
 	} 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: vhUnitTest/APPS/Verpakking/DoosService/Test.cls.xml
===================================================================
diff -u -r68740 -r68876
--- vhUnitTest/APPS/Verpakking/DoosService/Test.cls.xml	(.../Test.cls.xml)	(revision 68740)
+++ vhUnitTest/APPS/Verpakking/DoosService/Test.cls.xml	(.../Test.cls.xml)	(revision 68876)
@@ -35,7 +35,7 @@
 	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).DanReturn(DummyRequest).ExactAantalKeer(1)
+	Do SnijRequestMakerMock.VerwachtMethodCall("MaakSnijRequest", DummyDoos, MachineTechnologie, MachineID, Prioriteit, Aantal, 0).DanReturn(DummyRequest).ExactAantalKeer(1)
 	Do SnijDoosServiceMock.VerwachtMethodCall("SnijDoos", DummyRequest).DanDoeNiks().ExactAantalKeer(1)
 	
 	Set DoosService = ##class(APPS.Verpakking.DoosService).%New(DoosFactoryMock, DoosAanvullerMock, OptimizerMock, SnijDoosServiceMock, SnijRequestMakerMock)
Index: WS/APPS/Verpakking/Service/MaakSnijRequest.cls.xml
===================================================================
diff -u -r68405 -r68876
--- WS/APPS/Verpakking/Service/MaakSnijRequest.cls.xml	(.../MaakSnijRequest.cls.xml)	(revision 68405)
+++ WS/APPS/Verpakking/Service/MaakSnijRequest.cls.xml	(.../MaakSnijRequest.cls.xml)	(revision 68876)
@@ -4,17 +4,19 @@
 <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</FormalSpec>
+<FormalSpec>OptimaleDoos:APPS.Verpakking.Doos,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie,MachineID:APPS.Verpakking.enu.MachineID,Prioriteit:%String,Aantal:%Integer,WerklijstItemId:%Decimal</FormalSpec>
 <ReturnType>WS.APPS.Verpakking.SnijDoosRequest</ReturnType>
 <Implementation><![CDATA[
 	Set SnijRequest = ##class(WS.APPS.Verpakking.SnijDoosRequest).%New()
 	
 	Set SnijRequest.Quantity = Aantal
 	Set SnijRequest.Box = OptimaleDoos
 	Set SnijRequest.CutMachine = MachineID
+	Set SnijRequest.CutId = $Increment(^UniekeKartonRequestId)
 	Set SnijRequest.Priority = Prioriteit
 	Set SnijRequest.Technology = MachineTechnologie
 	Set SnijRequest.Server = $$$Server
+	Set SnijRequest.WerklijstItemId = WerklijstItemId
 	
 	Quit SnijRequest
 ]]></Implementation>
Index: APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml
===================================================================
diff -u -r68824 -r68876
--- APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml	(.../KartonSnijVisitor.cls.xml)	(revision 68824)
+++ APPS/Halux/PPS/Verpakking/impl/KartonSnijVisitor.cls.xml	(.../KartonSnijVisitor.cls.xml)	(revision 68876)
@@ -100,7 +100,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))	
+		Do DoosService.GeefDoos(UitvoeringInfo.DoosGroep, UitvoeringInfo.DoosNaam, UitvoeringInfo.MachineID, UitvoeringInfo.AantalDozen, .Params, UitvoeringInfo.ProductID, $S(UitvoeringInfo.IsRework: 7, 1: UitvoeringInfo.SnijPrioriteit), UitvoeringInfo.WerklijstItemID)	
 	} 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: BL/PPS/KAD/OptiBox.cls.xml
===================================================================
diff -u -r68738 -r68876
--- BL/PPS/KAD/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 68738)
+++ BL/PPS/KAD/OptiBox.cls.xml	(.../OptiBox.cls.xml)	(revision 68876)
@@ -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,)	
 	} 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())