Index: vhTest/Mock/APPS/Verpakking/DoosAanvuller.cls.xml
===================================================================
diff -u -r70219 -r70225
--- vhTest/Mock/APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 70219)
+++ vhTest/Mock/APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 70225)
@@ -9,8 +9,8 @@
 <Inheritance>right</Inheritance>
 
 <Method name="VulAanBasisInformatieDoos">
-<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.Doos,&Params:%String,ProductGroep:%String,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie,BoxDataID:%String=""]]></FormalSpec>
-<Implementation><![CDATA[	do ..VerwerkMethodCall("VulAanBasisInformatieDoos",.BasisDoos,.Params,ProductGroep,MachineTechnologie,BoxDataID)
+<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.Doos,&Params:%String,ProductGroep:%String,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie,BoxDataID:%String="",MachineId:APPS.Verpakking.enu.MachineID]]></FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VulAanBasisInformatieDoos",.BasisDoos,.Params,ProductGroep,MachineTechnologie,BoxDataID,MachineId)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Verpakking/Optimizer.cls.xml
===================================================================
diff -u -r70219 -r70225
--- APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 70219)
+++ APPS/Verpakking/Optimizer.cls.xml	(.../Optimizer.cls.xml)	(revision 70225)
@@ -61,10 +61,16 @@
 	
 	Set BasisDoos.CardBoardID = ..KartonRepository.GeefKartonID(BasisDoos.CardBoardThickness, ..BreedtePlano, BasisDoos.LogoPrint, ..MachineId)
 	
-	If (MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Kraft()) && (BasisDoos.Swap = 1) {
-		#dim OrigineleWidth As %Decimal = BasisDoos.Width
-		Set BasisDoos.Width = BasisDoos.Depth
-		Set BasisDoos.Depth = OrigineleWidth
+	If (MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Kraft()) {
+		If ((MachineId = ##class(APPS.Verpakking.enu.MachineID).HALUX()) || (MachineId = ##class(APPS.Verpakking.enu.MachineID).TAOR())) {
+			Set BasisDoos.CardBoardThickness = 4 //Kraft kan enkel omgaan met gehele getallen en niet met kommagetallen waarmee wij wel de berekening doen 
+		}
+		
+		If (BasisDoos.Swap = 1) {
+			#dim OrigineleWidth As %Decimal = BasisDoos.Width
+			Set BasisDoos.Width = BasisDoos.Depth
+			Set BasisDoos.Depth = OrigineleWidth
+		}
 	}
 	
 	Set BasisDoos.RecipeName = BasisDoos.RecipeName _ " "_ BasisDoos.Recipe
Index: vhUnitTest/APPS/Verpakking/DoosService/Test.cls.xml
===================================================================
diff -u -r70219 -r70225
--- vhUnitTest/APPS/Verpakking/DoosService/Test.cls.xml	(.../Test.cls.xml)	(revision 70219)
+++ vhUnitTest/APPS/Verpakking/DoosService/Test.cls.xml	(.../Test.cls.xml)	(revision 70225)
@@ -16,7 +16,7 @@
 	#dim Aantal As %Decimal = 1
 	Kill Params
 	Set PRNr = "3098795"
-	Set Prioriteit = "8"
+	Set Prioriteit = "10"
 	Set ProductGroep = "TBX"
 	Set ReceptNaam = "V1 Boxkap doos"
 	Set MachineID = ##class(APPS.Verpakking.enu.MachineID).HALUX()
@@ -36,7 +36,7 @@
 	Set DummyRequest.Box = DummyDoos
 	
 	Do DoosFactoryMock.VerwachtMethodCall("MaakDoos", ProductGroep, ReceptNaam).DanReturn(DummyDoos).ExactAantalKeer(1)
-	Do DoosAanvullerMock.VerwachtMethodCall("VulAanBasisInformatieDoos", DummyDoos, .Params, ProductGroep, MachineTechnologie, "").DanDoeNiks().ExactAantalKeer(1)
+	Do DoosAanvullerMock.VerwachtMethodCall("VulAanBasisInformatieDoos", DummyDoos, .Params, ProductGroep, MachineTechnologie, "", MachineID).DanDoeNiks().ExactAantalKeer(1)
 	Do OptimizerMock.VerwachtMethodCall("Optimize", DummyDoos, ProductGroep, MachineTechnologie, MachineID).DanReturn(DummyDoos).ExactAantalKeer(1)
 	Do SnijRequestMakerMock.VerwachtMethodCall("MaakSnijRequest", DummyDoos, MachineTechnologie, MachineID, Prioriteit, Aantal, BaseRef).DanReturn(DummyRequest).ExactAantalKeer(1)
 	Do SnijDoosServiceMock.VerwachtMethodCall("SnijDoos", DummyRequest).DanDoeNiks().ExactAantalKeer(1)
Index: APPS/Verpakking/DoosService.cls.xml
===================================================================
diff -u -r70219 -r70225
--- APPS/Verpakking/DoosService.cls.xml	(.../DoosService.cls.xml)	(revision 70219)
+++ APPS/Verpakking/DoosService.cls.xml	(.../DoosService.cls.xml)	(revision 70225)
@@ -73,87 +73,37 @@
 <FormalSpec><![CDATA[ProductGroep:%String,ReceptNaam:%String,MachineID:APPS.Verpakking.enu.MachineID,Aantal:%Integer,&Params:%String,ProductId:%String,Prioriteit:%String="-1",BaseRef:%String,&CallBack:%List="",BoxDataID:%String=""]]></FormalSpec>
 <Implementation><![CDATA[
 	try {
+		//Alles wat nog niet langs Kraft of niet via een snij doos opdracht via admin gaat tegenhouden (m.a.w. enkel de optimalisatie van de bonnen van orgalux tegenhouden indien deze hier onterecht zouden komen)
 		If ($$$Not(MachineID = ##class(APPS.Verpakking.enu.MachineID).VH()) || (ProductGroep = "KAD") || (ProductGroep = "PR")) {
-			If $$$Not($$$Server = "CACHE01") {
-				Set Prioriteit = "-1" 
-			} Else {
+			If ($$$Server = "CACHE01") {
 				Set ..SnijDoosService.Location = "http://docker02-prd:1880/ws/cut-request"
 			}
 			
-			If ((ProductGroep = "PR") && (BoxDataID = "")) {
-				#dim BoxData As DS.Prod.OptiBox.BoxData = ""
-				Set ResultSetLink = ##class(TECH.ResultSet).%New("BL.Prod.OptiBox.BoxData:GetBoxDataIDsViaObjTypeAndRef")
-				Do ResultSetLink.Execute("PR", ProductId)
-				
-				While ResultSetLink.Next() {
-					Set BoxDataID = ResultSetLink.Data("ID")
-				 	Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(BoxDataID)
-				 	#dim SubAantal As %Integer = $Select(BoxData.Aantal = "Aantal": 1, 1:BoxData.Aantal)
-				 	Do ..GeefDoos(ProductGroep, BoxData.Meta.Name, MachineID, (Aantal * SubAantal), "", ProductId, Prioriteit, BaseRef, CallBack, BoxDataID)
-				}
-				Do ResultSetLink.Close()
-				
-				If $$$Not($IsObject(BoxData)) {
-					#dim Logger = ##class(vhLib.Logger).%New("VH doos service").ErrorMail("Geen boxdata gevonden voor product: '"_ProductId_"'.")
-				}
-				
+			If ..IsSnijDoosOpdrachtViaAdmin(ProductGroep, BoxDataID) {
+				Do ..GeefDoosViaBoxData(ProductGroep, MachineID, Aantal, ProductId, Prioriteit, BaseRef, CallBack)
 				Quit
 			}
 			
 			Set BaseRef = $Piece(BaseRef,".",1,2) //Bij TAOR komt er nog een 3e piece achter, dit zou verder in de flow anders voor fouten zorgen
 			#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, MachineTechnologie, BoxDataID) //SnijdataID toevoegen voor overdozen?
-			
-			If ($$$Not(MachineID = ##class(APPS.Verpakking.enu.MachineID).VH()) && (ProductGroep = "PR")) {
-				Set Doos.LogoPrint = "TBX DRAWER"
-			}
-			
-			If (MachineID = ##class(APPS.Verpakking.enu.MachineID).KraftKlein()) {
-				Set Doos.CardBoardThickness = 3
-			}
+			Do ..DoosAanvuller.VulAanBasisInformatieDoos(.Doos, .Params, ProductGroep, MachineTechnologie, BoxDataID, MachineID)
 			Do ..Optimizer.Optimize(.Doos, ProductGroep, MachineTechnologie, MachineID)
 			
 			If (MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Kraft()) {
-				If ((MachineID = ##class(APPS.Verpakking.enu.MachineID).HALUX()) || (MachineID = ##class(APPS.Verpakking.enu.MachineID).TAOR())) {
-					Set Doos.CardBoardThickness = 4
-				}
-			}
-			
-			If (MachineTechnologie = ##class(APPS.Verpakking.enu.MachineTechnologie).Kraft()) {
 				If (Prioriteit <= 7) {
 					Set Prioriteit = 8				//Niet dringend
 				} Else {
 					Set Prioriteit = 10				//Dringend
 				}
 			}
 			
-			#dim SnijData As DS.Prod.OptiBox.SnijData = ""
-			#dim OptiData As DS.Prod.OptiBox.OptiData
-			#dim SnijDef As DS.Prod.OptiBox.sub.emSnijDef
+			#dim SnijData As DS.Prod.OptiBox.SnijData = ""			
 			
-			If $Length(CallBack) {	//Er kan ook gesneden worden zonder CallBack: zoals rechtstreekse snijopdrachten via admin via F11 -> SnijDoos
-				#dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(ProductId)
-				Set OptiData = ..MaakOptiData(Doos, BaseRef, Aantal, Product, MachineID, Prioriteit)
-				Set SnijData = ..MaakSnijData(Doos, BaseRef, OptiData, Product, MachineID, Prioriteit)
-				Set SnijDef = ..MaakSnijDef(Doos, SnijData)
-				Do SnijData.SnijDefs.SetAt(SnijDef, MachineID)		
-				Do SnijData.%Save()
-				
-				#dim OptiboxQueue = ..MaakOptiboxQueue(SnijData, Prioriteit, CallBack, OptiData)
-				If (..ProductTypeAPI.IsLegraboxProduct(ProductId) || ..ProductTypeAPI.IsMerivoboxProduct(ProductId)) {
-					Set WerklijstItemStatusUpdater = ##class(APPS.Halux.PPS.Verpakking.impl.KartonSnijder.WerklijstItemStatusUpdater).%New()
-					Do WerklijstItemStatusUpdater.UpdateWerklijstItemStatusViaID($LG(CallBack,3), $$$False, ##class(APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus).Geoptimaliseerd())
-				} ElseIf (..ProductTypeAPI.IsTandemboxProduct(ProductId) || ..ProductTypeAPI.IsTAORboxProduct(ProductId)) {
-					Set Queue = ##class(DS.PPS.TBX.Queue).%OpenId($LG(CallBack,3))
-					If ##class(TECH.StringUtils).Equals(Doos.Recipe, "214", "218") { //Losse onderdelen + complexe scheiding kartons
-						Set Queue.WPLosOnderdeel.SnijStatus = "Q" 
-					} Else {
-						Set Queue.WPVerpak.SnijStatus = "Q"
-					}
-				} Else {
-					Do ..Logger.ErrorMail("GeefDoos", "Voor dit maatwerktype is nog geen implementatie voorzien in de de VHDoosService.")
-				}
+			//Callbacks zijn er voor de snijstatussen (die te zien zijn op de schermen aan het kartonsnijmachine (oude vintra) up te daten
+			//Er kan ook gesneden worden zonder CallBack: zoals rechtstreekse snijopdrachten via admin via F11 -> SnijDoos
+			If $Length(CallBack) {
+				Do ..MaakEnUpdateDataVoorSnijOpdracht(.SnijData, Doos, ProductId, Aantal, BaseRef, MachineID, Prioriteit, CallBack)
 			}
 			
 			#dim Referentie As %String = $Select($$$Not(SnijData = ""): SnijData.Reference, 1: BaseRef)
@@ -353,6 +303,66 @@
 <Implementation><![CDATA[	Quit ..DateTimeAPI.CurrentTimeStamp()
 ]]></Implementation>
 </Method>
+
+<Method name="IsSnijDoosOpdrachtViaAdmin">
+<FormalSpec>ProductGroep:%String,BoxDataID:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ((ProductGroep = "PR") && (BoxDataID = ""))
+]]></Implementation>
+</Method>
+
+<Method name="GeefDoosViaBoxData">
+<FormalSpec>ProductGroep:%String,MachineID:APPS.Verpakking.enu.MachineID,Aantal:%Integer,ProductId:%String,Prioriteit:%String,BaseRef:%String,CallBack:%List</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim BoxData As DS.Prod.OptiBox.BoxData = ""
+	Set ResultSetLink = ##class(TECH.ResultSet).%New("BL.Prod.OptiBox.BoxData:GetBoxDataIDsViaObjTypeAndRef")
+	Do ResultSetLink.Execute("PR", ProductId)
+	
+	While ResultSetLink.Next() {
+		#dim BoxDataID As %String = ResultSetLink.Data("ID")
+	 	Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%OpenId(BoxDataID)
+	 	#dim SubAantal As %Integer = $Select(BoxData.Aantal = "Aantal": 1, 1:BoxData.Aantal)
+	 	Do ..GeefDoos(ProductGroep, BoxData.Meta.Name, MachineID, (Aantal * SubAantal), "", ProductId, Prioriteit, BaseRef, CallBack, BoxDataID)
+	}
+	Do ResultSetLink.Close()
+	
+	If $$$Not($IsObject(BoxData)) {
+		#dim Logger = ##class(vhLib.Logger).%New("VH doos service").ErrorMail("Geen boxdata gevonden voor product: '"_ProductId_"'.")
+	}
+]]></Implementation>
+</Method>
+
+<Method name="MaakEnUpdateDataVoorSnijOpdracht">
+<FormalSpec><![CDATA[&SnijData:DS.Prod.OptiBox.SnijData,Doos,ProductId,Aantal,BaseRef,MachineID,Prioriteit,CallBack]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim OptiData As DS.Prod.OptiBox.OptiData
+	#dim SnijDef As DS.Prod.OptiBox.sub.emSnijDef
+	#dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(ProductId)
+	Set OptiData = ..MaakOptiData(Doos, BaseRef, Aantal, Product, MachineID, Prioriteit)
+	Set SnijData = ..MaakSnijData(Doos, BaseRef, OptiData, Product, MachineID, Prioriteit)
+	Set SnijDef = ..MaakSnijDef(Doos, SnijData)
+	Do SnijData.SnijDefs.SetAt(SnijDef, MachineID)		
+	Do SnijData.%Save()
+	
+	#dim OptiboxQueue = ..MaakOptiboxQueue(SnijData, Prioriteit, CallBack, OptiData)
+	If (..ProductTypeAPI.IsLegraboxProduct(ProductId) || ..ProductTypeAPI.IsMerivoboxProduct(ProductId)) {
+		Set WerklijstItemStatusUpdater = ##class(APPS.Halux.PPS.Verpakking.impl.KartonSnijder.WerklijstItemStatusUpdater).%New()
+		Do WerklijstItemStatusUpdater.UpdateWerklijstItemStatusViaID($LG(CallBack,3), $$$False, ##class(APPS.Halux.PPS.Verpakking.enu.KartonMachineStatus).Geoptimaliseerd())
+	} ElseIf (..ProductTypeAPI.IsTandemboxProduct(ProductId) || ..ProductTypeAPI.IsTAORboxProduct(ProductId)) {
+		Set Queue = ##class(DS.PPS.TBX.Queue).%OpenId($LG(CallBack,3))
+		If ##class(TECH.StringUtils).Equals(Doos.Recipe, "214", "218") { //Losse onderdelen + complexe scheiding kartons
+			Set Queue.WPLosOnderdeel.SnijStatus = "Q" 
+		} Else {
+			Set Queue.WPVerpak.SnijStatus = "Q"
+		}
+	} Else {
+		Do ..Logger.ErrorMail("GeefDoos", "Voor dit maatwerktype is nog geen implementatie voorzien in de de VHDoosService.")
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Verpakking/DoosAanvuller.cls.xml
===================================================================
diff -u -r70219 -r70225
--- APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 70219)
+++ APPS/Verpakking/DoosAanvuller.cls.xml	(.../DoosAanvuller.cls.xml)	(revision 70225)
@@ -9,13 +9,21 @@
 </Property>
 
 <Method name="VulAanBasisInformatieDoos">
-<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.Doos,&Params:%String,ProductGroep:%String,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie,BoxDataID:%String=""]]></FormalSpec>
+<FormalSpec><![CDATA[&BasisDoos:APPS.Verpakking.Doos,&Params:%String,ProductGroep:%String,MachineTechnologie:APPS.Verpakking.enu.MachineTechnologie,BoxDataID:%String="",MachineId:APPS.Verpakking.enu.MachineID]]></FormalSpec>
 <Implementation><![CDATA[
 	Set ..MachineTechnologie = MachineTechnologie
 	Set ListOfPackageDesignItems = ##class(%ListOfDataTypes).%New()
 	Do ListOfPackageDesignItems.Insert("Item1")
 	Set BasisDoos.PackageDesignItems = ListOfPackageDesignItems	
 	
+	If ($$$Not(MachineId = ##class(APPS.Verpakking.enu.MachineID).VH()) && (ProductGroep = "PR")) {
+		Set BasisDoos.LogoPrint = "TBX DRAWER"
+	}
+	
+	If (MachineId = ##class(APPS.Verpakking.enu.MachineID).KraftKlein()) {
+		Set BasisDoos.CardBoardThickness = 3
+	}
+	
 	If (BasisDoos.%Extends("APPS.Verpakking.V1HogeRug")) {
 		Do ..VulAanV1HogeRug(.BasisDoos, .Params)
 	} ElseIf (BasisDoos.%Extends("APPS.Verpakking.V1LageRug")) {