Index: APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils.cls.xml
===================================================================
diff -u -r37460 -r58573
--- APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils.cls.xml	(.../Utils.cls.xml)	(revision 37460)
+++ APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils.cls.xml	(.../Utils.cls.xml)	(revision 58573)
@@ -148,13 +148,13 @@
 	#dim WikkelOpmerking As %String = ""
 	If IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).Probox(){
 		#dim Breedte As %Double = ..BreedteBepaler.GeefVerpakkingBreedte(IngegevenKenmerken)
-		#dim WikkelInfo As APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo = ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelInfo(IngegevenKenmerken.GeefVariant(),IngegevenKenmerken.IsBinnenlade,IngegevenKenmerken.LadeHoogte,IngegevenKenmerken.LadeHoogte,Breedte)
+		#dim WikkelInfo As APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo = ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelInfo(IngegevenKenmerken.GeefVariant(),IngegevenKenmerken.IsBinnenlade,IngegevenKenmerken.LadeHoogte,IngegevenKenmerken.LadeHoogte,Breedte,IngegevenKenmerken.LadeDiepte)
 		#dim WikkelLengte As %Float = WikkelInfo.GeefWikkelLengte()
 		#dim WikkelDiepte As %Float = ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelDiepte(IngegevenKenmerken.LadeDiepte)
 		#dim WikkelAfmeting As %String = WikkelLengte_"x"_WikkelDiepte
-		Set WikkelOpmerking = ",Wikkel"_$Case(WikkelAfmeting,"1250x520":"A","1250x650":"B","900x520":"C","900x650":"D",1:"")_"("_WikkelInfo.GeefAantal()_")"
+		Set WikkelOpmerking = ",Wikkel"_$Case(WikkelAfmeting,"1250x520":"A","900x520":"B","1250x650":"C","900x650":"D",1:"")_"("_WikkelInfo.GeefAantal()_")"
 	}
-	Quit WikkelOpmerking
+		Quit WikkelOpmerking
 ]]></Implementation>
 </Method>
 
Index: DOM/PM/Maatwerk/Calc/HF/impl/Probox/Builder/HFProboxWikkelv002.cls.xml
===================================================================
diff -u -r45607 -r58573
--- DOM/PM/Maatwerk/Calc/HF/impl/Probox/Builder/HFProboxWikkelv002.cls.xml	(.../HFProboxWikkelv002.cls.xml)	(revision 45607)
+++ DOM/PM/Maatwerk/Calc/HF/impl/Probox/Builder/HFProboxWikkelv002.cls.xml	(.../HFProboxWikkelv002.cls.xml)	(revision 58573)
@@ -34,7 +34,7 @@
 <ReturnTypeParams>ELEMENTTYPE="DOM.PM.Maatwerk.Calc.HF.Halffab"</ReturnTypeParams>
 <Implementation><![CDATA[
 	#dim Breedte As %Double = ..BreedteBepaler.GeefVerpakkingBreedte(IngegevenKenmerken)
-	#dim WikkelInfo As APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo = ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelInfo(IngegevenKenmerken.GeefVariant(), IngegevenKenmerken.IsBinnenlade, IngegevenKenmerken.LadeHoogte, "", Breedte)
+	#dim WikkelInfo As APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo = ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelInfo(IngegevenKenmerken.GeefVariant(), IngegevenKenmerken.IsBinnenlade, IngegevenKenmerken.LadeHoogte, "", Breedte,IngegevenKenmerken.LadeDiepte)
 	#dim WikkelDiepte As %Decimal = ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelDiepte(IngegevenKenmerken.LadeDiepte)
 
 	#dim ProductId As %String 
@@ -58,7 +58,7 @@
 	Do ##super(HalffabItem, IngegevenKenmerken, Context, .HalffabList)
 
 	#dim Breedte As %Double = ..BreedteBepaler.GeefVerpakkingBreedte(IngegevenKenmerken)
-	#dim WikkelInfo As APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo = ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelInfo(IngegevenKenmerken.GeefVariant(), IngegevenKenmerken.IsBinnenlade, IngegevenKenmerken.LadeHoogte, "", Breedte)
+	#dim WikkelInfo As APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo = ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelInfo(IngegevenKenmerken.GeefVariant(), IngegevenKenmerken.IsBinnenlade, IngegevenKenmerken.LadeHoogte, "", Breedte,IngegevenKenmerken.LadeDiepte)
 	#dim WikkelDiepte As %Decimal = ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelDiepte(IngegevenKenmerken.LadeDiepte)
 	
 	Do HalffabItem.ZetOmschrijvingVoorDocs(..GeefRol())
Index: APPS/PM/Maatwerk/impl/Verpakking/Probox/Calculator.cls.xml
===================================================================
diff -u -r37460 -r58573
--- APPS/PM/Maatwerk/impl/Verpakking/Probox/Calculator.cls.xml	(.../Calculator.cls.xml)	(revision 37460)
+++ APPS/PM/Maatwerk/impl/Verpakking/Probox/Calculator.cls.xml	(.../Calculator.cls.xml)	(revision 58573)
@@ -375,24 +375,25 @@
 
 <Method name="GeefWikkelInfo">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>LadeVariant:DOM.PM.enu.LadeVariant,IsBinnenlade:%Boolean,LadeHoogte:%String,LadeZijkantHoogte:%String,LadeBreedte:%Float</FormalSpec>
+<FormalSpec>LadeVariant:DOM.PM.enu.LadeVariant,IsBinnenlade:%Boolean,LadeHoogte:%String,LadeZijkantHoogte:%String,LadeBreedte:%Float,LadeDiepte:%Float=0</FormalSpec>
 <ReturnType>APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo</ReturnType>
 <Implementation><![CDATA[
 	#define OverlapLengte   75
-	
 	#dim VerpakkingHoogte As %Float =..GeefVerpakkingHoogte(LadeVariant,IsBinnenlade,LadeHoogte,LadeZijkantHoogte)
 	#dim WikkelLengte As %Float = LadeBreedte + (2*VerpakkingHoogte) + (2*$$$OverlapLengte)       ; LadeBreedte slechts 1x rekenen, want lade wordt niet volledig omwikkeld 
-
+	#dim Aantal as %Decimal = 1
 	If WikkelLengte '> 900 {
-		Set WikkelInfo=##class(APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo).%New(900,1)
+		Set:((LadeDiepte '< 700)) Aantal = 2
+		Set WikkelInfo=##class(APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo).%New(900,Aantal)
 	}
 	ElseIf WikkelLengte '> 1250 {
-		Set WikkelInfo=##class(APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo).%New(1250,1)
+		Set WikkelInfo=##class(APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo).%New(1250,Aantal)
 	}
 	Else {
-		Set WikkelInfo=##class(APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo).%New(900,2)
+		Set Aantal = 2
+		Set:((LadeDiepte '< 700)) Aantal = 4
+		Set WikkelInfo=##class(APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo).%New(900,Aantal)
 	}
-	
 	Quit WikkelInfo
 ]]></Implementation>
 </Method>
@@ -403,7 +404,7 @@
 <ReturnType>APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo</ReturnType>
 <Implementation><![CDATA[
 	#dim IsBinnenlade As %Boolean = (Lade.GeefLadeType()=##class(DOM.PM.enu.TBXLadeType).BinnenLade())
-	Quit ..GeefWikkelInfo(Lade.GeefVariant(),IsBinnenlade,Lade.GeefZijwandHoogte(),Lade.GeefZijkantHoogte(),Lade.GeefInbouwBreedte())
+	Quit ..GeefWikkelInfo(Lade.GeefVariant(),IsBinnenlade,Lade.GeefZijwandHoogte(),Lade.GeefZijkantHoogte(),Lade.GeefInbouwBreedte(),Lade.GeefLadeDiepte())
 ]]></Implementation>
 </Method>
 
@@ -413,13 +414,13 @@
 <ReturnType>%Float</ReturnType>
 <Implementation><![CDATA[
 	#dim WikkelDiepte As %Float = ""
-	If LadeDiepte'>550 {
+	If LadeDiepte'>500 {
 		Set WikkelDiepte = 520
-	}
-	Else {
+	} ElseIf (LadeDiepte'>700) {
 		Set WikkelDiepte = 650
+	} Else {
+		Set WikkelDiepte = 520
 	}
-	
 	Quit WikkelDiepte
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils/TestGeefWikkelInfo.cls.xml
===================================================================
diff -u -r32363 -r58573
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils/TestGeefWikkelInfo.cls.xml	(.../TestGeefWikkelInfo.cls.xml)	(revision 32363)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils/TestGeefWikkelInfo.cls.xml	(.../TestGeefWikkelInfo.cls.xml)	(revision 58573)
@@ -52,7 +52,7 @@
 	Set ..LBXKenmerken.InterneBreedte = 500
 	Set ..LBXKenmerken.IsBinnenlade = $$$False
 	
-	Do $$$AssertEquals(..Utils.GeefWikkelInfo(..LBXKenmerken), ",WikkelC(1)")
+	Do $$$AssertEquals(..Utils.GeefWikkelInfo(..LBXKenmerken), ",WikkelD(1)")
 ]]></Implementation>
 </Method>
 
@@ -67,6 +67,18 @@
 	Do $$$AssertEquals(..Utils.GeefWikkelInfo(..LBXKenmerken), ",WikkelD(2)")
 ]]></Implementation>
 </Method>
+
+<Method name="Test Probox Groot Meerdere Aantallen Theorethisch Te Diepe Lade Om Aantal 4 te testen">
+<Implementation><![CDATA[
+	Set ..LBXKenmerken.VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).Probox()
+	Set ..LBXKenmerken.LadeDiepte = 750
+	Set ..LBXKenmerken.LadeHoogte = ##class(DOM.PM.enu.LBXLadeHoogte).M()
+	Set ..LBXKenmerken.InterneBreedte = 1000
+	Set ..LBXKenmerken.IsBinnenlade = $$$True
+	
+	Do $$$AssertEquals(..Utils.GeefWikkelInfo(..LBXKenmerken), ",WikkelB(4)")
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/PM/Maatwerk/TBX/Probox/TestCalculator.cls.xml
===================================================================
diff -u -r37460 -r58573
--- vhUnitTest/APPS/PM/Maatwerk/TBX/Probox/TestCalculator.cls.xml	(.../TestCalculator.cls.xml)	(revision 37460)
+++ vhUnitTest/APPS/PM/Maatwerk/TBX/Probox/TestCalculator.cls.xml	(.../TestCalculator.cls.xml)	(revision 58573)
@@ -114,15 +114,22 @@
 <Method name="TestGeefWikkelDiepte">
 <Implementation><![CDATA[
 	#dim WikkelDiepte As %Decimal = ""
-	Set WikkelDiepte=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelDiepte(500)
+	Set WikkelDiepte=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelDiepte(450)
 	Do $$$AssertEquals(WikkelDiepte,520,"De WikkelDiepte is correct berekend voor LadeDiepte 500mm")
 	
-	Set WikkelDiepte=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelDiepte(550)
+	Set WikkelDiepte=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelDiepte(500)
 	Do $$$AssertEquals(WikkelDiepte,520,"De WikkelDiepte is correct berekend voor LadeDiepte 550mm")
 	
 	Set WikkelDiepte=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelDiepte(600)
 	Do $$$AssertEquals(WikkelDiepte,650,"De WikkelDiepte is correct berekend voor LadeDiepte 600mm")
+
+	Set WikkelDiepte=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelDiepte(700)
+	Do $$$AssertEquals(WikkelDiepte,650,"De WikkelDiepte is correct berekend voor LadeDiepte 700mm")
 	
+
+	Set WikkelDiepte=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelDiepte(750)
+	Do $$$AssertEquals(WikkelDiepte,520,"De WikkelDiepte is correct berekend voor LadeDiepte 750mm")
+
 	Quit
 ]]></Implementation>
 </Method>
@@ -145,6 +152,27 @@
 	Set WikkelInfo=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelInfo(##class(DOM.PM.enu.LadeVariant).LBXPure(),1,"F","",840)
 	Do $$$AssertEquals(WikkelInfo.GeefWikkelLengte(),900,"04. De lengte van de wikkel is correct")
 	Do $$$AssertEquals(WikkelInfo.GeefAantal(),2,"04. Het aantal wikkels is correct")
+
+	Set WikkelInfo=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelInfo(##class(DOM.PM.enu.LadeVariant).TAOR(),0,"M","",500,500)
+	Do $$$AssertEquals(WikkelInfo.GeefWikkelLengte(),900,"01. De lengte van de wikkel is correct")
+	Do $$$AssertEquals(WikkelInfo.GeefAantal(),1,"01. Het aantal wikkels is correct")
+
+	Set WikkelInfo=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelInfo(##class(DOM.PM.enu.LadeVariant).TAOR(),0,"M","",500,700)
+	Do $$$AssertEquals(WikkelInfo.GeefWikkelLengte(),900,"01. De lengte van de wikkel is correct")
+	Do $$$AssertEquals(WikkelInfo.GeefAantal(),2,"01. Het aantal wikkels is correct")
+
+	Set WikkelInfo=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelInfo(##class(DOM.PM.enu.LadeVariant).TAOR(),0,"M","",900,650)
+	Do $$$AssertEquals(WikkelInfo.GeefWikkelLengte(),900,"01. De lengte van de wikkel is correct")
+	Do $$$AssertEquals(WikkelInfo.GeefAantal(),2,"01. Het aantal wikkels is correct")
+
+	Set WikkelInfo=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelInfo(##class(DOM.PM.enu.LadeVariant).TAOR(),0,"M","",900,700)
+	Do $$$AssertEquals(WikkelInfo.GeefWikkelLengte(),900,"01. De lengte van de wikkel is correct")
+	Do $$$AssertEquals(WikkelInfo.GeefAantal(),4,"01. Het aantal wikkels is correct")
+
+	Set WikkelInfo=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelInfo(##class(DOM.PM.enu.LadeVariant).LBXPure(),1,"M","",1000,700)
+	Do $$$AssertEquals(WikkelInfo.GeefWikkelLengte(),900,"01. De lengte van de wikkel is correct")
+	
+	Do $$$AssertEquals(WikkelInfo.GeefAantal(),4,"01. Het aantal wikkels is correct")
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/Maatwerk/Calc/HF/impl/Probox/Builder/HFProboxWikkelv001.cls.xml
===================================================================
diff -u -r37460 -r58573
--- DOM/PM/Maatwerk/Calc/HF/impl/Probox/Builder/HFProboxWikkelv001.cls.xml	(.../HFProboxWikkelv001.cls.xml)	(revision 37460)
+++ DOM/PM/Maatwerk/Calc/HF/impl/Probox/Builder/HFProboxWikkelv001.cls.xml	(.../HFProboxWikkelv001.cls.xml)	(revision 58573)
@@ -38,7 +38,7 @@
 <Implementation><![CDATA[
 	Set Dimensies = ##class(%ArrayOfDataTypes).%New()
 	#dim Breedte As %Double = ..BreedteBepaler.GeefVerpakkingBreedte(IngegevenKenmerken)
-	#dim WikkelInfo As APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo = ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelInfo(IngegevenKenmerken.GeefVariant(), IngegevenKenmerken.IsBinnenlade, IngegevenKenmerken.LadeHoogte, "", Breedte)
+	#dim WikkelInfo As APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo = ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelInfo(IngegevenKenmerken.GeefVariant(), IngegevenKenmerken.IsBinnenlade, IngegevenKenmerken.LadeHoogte, "", Breedte,IngegevenKenmerken.LadeDiepte)
 	Do Dimensies.SetAt(WikkelInfo.GeefWikkelLengte(),##class(DOM.PM.enu.BewerkingDimensie).Lengte())
 	Quit Dimensies
 ]]></Implementation>
@@ -82,7 +82,7 @@
 <Implementation><![CDATA[
 	Do ##super(HalffabItem, IngegevenKenmerken, Context, .HalffabList)
 	#dim Breedte As %Double = ..BreedteBepaler.GeefVerpakkingBreedte(IngegevenKenmerken)
-	#dim WikkelInfo As APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo = ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelInfo(IngegevenKenmerken.GeefVariant(), IngegevenKenmerken.IsBinnenlade, IngegevenKenmerken.LadeHoogte, "", Breedte)
+	#dim WikkelInfo As APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo = ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelInfo(IngegevenKenmerken.GeefVariant(), IngegevenKenmerken.IsBinnenlade, IngegevenKenmerken.LadeHoogte, "", Breedte,IngegevenKenmerken.LadeDiepte)
 	#dim WikkelDiepte As %Decimal = ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelDiepte(IngegevenKenmerken.LadeDiepte)
 	#dim KartonVerbruikInBreedte As %Decimal
 	Set KartonVerbruikInBreedte = $S(WikkelDiepte=520:0.25, 1:0.33) 	// Aantal wikkels in de breedte per volledige flap karton