Index: vhUnitTest/APPS/PM/Maatwerk/TBX/Probox/TestCalculator.cls.xml
===================================================================
diff -u -r29059 -r37460
--- vhUnitTest/APPS/PM/Maatwerk/TBX/Probox/TestCalculator.cls.xml	(.../TestCalculator.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/PM/Maatwerk/TBX/Probox/TestCalculator.cls.xml	(.../TestCalculator.cls.xml)	(revision 37460)
@@ -9,16 +9,16 @@
 <Method name="TestGeefOppervlakteAandeel">
 <Implementation><![CDATA[
 	#dim OppAandeel As %Decimal	
-	Set OppAandeel=##class(APPS.PM.Maatwerk.Probox.Calculator).GeefOppervlakteAandeel(##class(DOM.PM.enu.LadeVariant).TBXPlus(),0,500,"M","")
+	Set OppAandeel=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefOppervlakteAandeel(##class(DOM.PM.enu.LadeVariant).TBXPlus(),0,500,"M","")
 	Do $$$AssertTrue($$$ValIsBetween(OppAandeel,0.001,1),"01. Het oppervlakteAandeel ligt tussen 0 en 1")
 
-	Set OppAandeel=##class(APPS.PM.Maatwerk.Probox.Calculator).GeefOppervlakteAandeel(##class(DOM.PM.enu.LadeVariant).TBXIntivo(),0,270,"N",)
+	Set OppAandeel=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefOppervlakteAandeel(##class(DOM.PM.enu.LadeVariant).TBXIntivo(),0,270,"N",)
 	Do $$$AssertTrue($$$ValIsBetween(OppAandeel,0.001,1),"02. Het oppervlakteAandeel ligt tussen 0 en 1")
 
-	Set OppAandeel=##class(APPS.PM.Maatwerk.Probox.Calculator).GeefOppervlakteAandeel(##class(DOM.PM.enu.LadeVariant).TBXAntaro(),1,650,"C","M")
+	Set OppAandeel=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefOppervlakteAandeel(##class(DOM.PM.enu.LadeVariant).TBXAntaro(),1,650,"C","M")
 	Do $$$AssertTrue($$$ValIsBetween(OppAandeel,0.001,1),"03. Het oppervlakteAandeel ligt tussen 0 en 1")
 
-	Set OppAandeel=##class(APPS.PM.Maatwerk.Probox.Calculator).GeefOppervlakteAandeel(##class(DOM.PM.enu.LadeVariant).TBXAntaro(),0,650,"D","K")
+	Set OppAandeel=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefOppervlakteAandeel(##class(DOM.PM.enu.LadeVariant).TBXAntaro(),0,650,"D","K")
 	Do $$$AssertTrue($$$ValIsBetween(OppAandeel,0.001,1),"04. Het oppervlakteAandeel ligt tussen 0 en 1")
 
 	Quit
@@ -30,7 +30,7 @@
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Ongeldige waarde voor berekening van OppervlakteAandeel", "input params (""LadeVariant : TBX_Plus"", ""IsBinnenlade : 0"", ""LadeDiepte : 500"", ""LadeHoogte :X"", ""LadeZijkantHoogte :"")")
 	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.BaseException",Substrings))
 	
-	Do ##class(APPS.PM.Maatwerk.Probox.Calculator).GeefOppervlakteAandeel(##class(DOM.PM.enu.LadeVariant).TBXPlus(),0,500,"X","")
+	Do ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefOppervlakteAandeel(##class(DOM.PM.enu.LadeVariant).TBXPlus(),0,500,"X","")
 ]]></Implementation>
 </Method>
 
@@ -39,29 +39,29 @@
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Ongeldige waarde voor berekening van OppervlakteAandeel", "input params (""LadeVariant : TBX_Baliko"", ""IsBinnenlade : 0"", ""LadeDiepte : 500"", ""LadeHoogte :M"", ""LadeZijkantHoogte :"")")
 	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.BaseException",Substrings))
 	
-	Do ##class(APPS.PM.Maatwerk.Probox.Calculator).GeefOppervlakteAandeel(##class(DOM.PM.enu.LadeVariant).TBXBaliko(),0,500,"M","")
+	Do ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefOppervlakteAandeel(##class(DOM.PM.enu.LadeVariant).TBXBaliko(),0,500,"M","")
 ]]></Implementation>
 </Method>
 
 <Method name="TestGeefHoogteAandeel">
 <Implementation><![CDATA[
 	#dim HoogteAandeel As %Decimal
-	Set HoogteAandeel=##class(APPS.PM.Maatwerk.Probox.Calculator).GeefHoogteAandeel(300)
+	Set HoogteAandeel=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefHoogteAandeel(300)
 	Do $$$AssertEquals(HoogteAandeel,0.8,"Het HoogteAandeel is correct berekend voor Breedte 300mm")
 	
-	Set HoogteAandeel=##class(APPS.PM.Maatwerk.Probox.Calculator).GeefHoogteAandeel(590)
+	Set HoogteAandeel=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefHoogteAandeel(590)
 	Do $$$AssertEquals(HoogteAandeel,0.8,"Het HoogteAandeel is correct berekend voor Breedte 590mm")
 	
-	Set HoogteAandeel=##class(APPS.PM.Maatwerk.Probox.Calculator).GeefHoogteAandeel(720)
+	Set HoogteAandeel=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefHoogteAandeel(720)
 	Do $$$AssertEquals(HoogteAandeel,0.84,"Het HoogteAandeel is correct berekend voor Breedte 720mm")
 	
-	Set HoogteAandeel=##class(APPS.PM.Maatwerk.Probox.Calculator).GeefHoogteAandeel(840)
+	Set HoogteAandeel=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefHoogteAandeel(840)
 	Do $$$AssertEquals(HoogteAandeel,0.88,"Het HoogteAandeel is correct berekend voor Breedte 840mm")
 	
-	Set HoogteAandeel=##class(APPS.PM.Maatwerk.Probox.Calculator).GeefHoogteAandeel(1200)
+	Set HoogteAandeel=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefHoogteAandeel(1200)
 	Do $$$AssertEquals(HoogteAandeel,1.0,"Het HoogteAandeel is correct berekend voor Breedte 1200mm")
 	
-	Set HoogteAandeel=##class(APPS.PM.Maatwerk.Probox.Calculator).GeefHoogteAandeel(1320)
+	Set HoogteAandeel=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefHoogteAandeel(1320)
 	Do $$$AssertEquals(HoogteAandeel,1.0,"Het HoogteAandeel is correct berekend voor Breedte 1320mm.")
 	
 	Quit
@@ -71,31 +71,31 @@
 <Method name="TestGeefVolumeAandeel">
 <Implementation><![CDATA[
 	#dim VolumeAandeel As %Decimal
-	Set VolumeAandeel=##class(APPS.PM.Maatwerk.Probox.Calculator).GeefVolumeAandeel(##class(DOM.PM.enu.LadeVariant).TBXPlus(),0,500,"M","M",840)
+	Set VolumeAandeel=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefVolumeAandeel(##class(DOM.PM.enu.LadeVariant).TBXPlus(),0,500,"M","M",840)
 	Do $$$AssertTrue($$$ValIsBetween(VolumeAandeel,0.001,1),"01. Het VolumeAandeel ligt tussen 0 en 100%")
 	Do $$$AssertEquals(VolumeAandeel,(0.88*0.13),"Het VolumeAandeel is correct berekend")
 
-	Set VolumeAandeel=##class(APPS.PM.Maatwerk.Probox.Calculator).GeefVolumeAandeel(##class(DOM.PM.enu.LadeVariant).LBXPure(),0,500,"M","M",840)
+	Set VolumeAandeel=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefVolumeAandeel(##class(DOM.PM.enu.LadeVariant).LBXPure(),0,500,"M","M",840)
 	Do $$$AssertTrue($$$ValIsBetween(VolumeAandeel,0.001,1),"02. Het VolumeAandeel ligt tussen 0 en 100%")
 
-	Set VolumeAandeel=##class(APPS.PM.Maatwerk.Probox.Calculator).GeefVolumeAandeel(##class(DOM.PM.enu.LadeVariant).LBXPure(),1,500,"M","M",840)
+	Set VolumeAandeel=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefVolumeAandeel(##class(DOM.PM.enu.LadeVariant).LBXPure(),1,500,"M","M",840)
 	Do $$$AssertTrue($$$ValIsBetween(VolumeAandeel,0.001,1),"03. Het VolumeAandeel ligt tussen 0 en 100%")
 ]]></Implementation>
 </Method>
 
 <Method name="TestGeefVerpakkingHoogte">
 <Implementation><![CDATA[
 	#dim VerpakkingHoogte As %Decimal
-	Set VerpakkingHoogte=##class(APPS.PM.Maatwerk.Probox.Calculator).GeefVerpakkingHoogte(##class(DOM.PM.enu.LadeVariant).TBXPlus(),0,"M","")
+	Set VerpakkingHoogte=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefVerpakkingHoogte(##class(DOM.PM.enu.LadeVariant).TBXPlus(),0,"M","")
 	Do $$$AssertTrue($IsValidNum(VerpakkingHoogte),"01. VerpakkingHoogte is een getal")
 
-	Set VerpakkingHoogte=##class(APPS.PM.Maatwerk.Probox.Calculator).GeefVerpakkingHoogte(##class(DOM.PM.enu.LadeVariant).TBXIntivo(),0,"N",)
+	Set VerpakkingHoogte=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefVerpakkingHoogte(##class(DOM.PM.enu.LadeVariant).TBXIntivo(),0,"N",)
 	Do $$$AssertTrue($IsValidNum(VerpakkingHoogte),"02. VerpakkingHoogte is een getal")
 
-	Set VerpakkingHoogte=##class(APPS.PM.Maatwerk.Probox.Calculator).GeefVerpakkingHoogte(##class(DOM.PM.enu.LadeVariant).TBXAntaro(),1,"C","M")
+	Set VerpakkingHoogte=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefVerpakkingHoogte(##class(DOM.PM.enu.LadeVariant).TBXAntaro(),1,"C","M")
 	Do $$$AssertTrue($IsValidNum(VerpakkingHoogte),"03. VerpakkingHoogte is een getal")
 
-	Set VerpakkingHoogte=##class(APPS.PM.Maatwerk.Probox.Calculator).GeefVerpakkingHoogte(##class(DOM.PM.enu.LadeVariant).TBXAntaro(),0,"D","K")
+	Set VerpakkingHoogte=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefVerpakkingHoogte(##class(DOM.PM.enu.LadeVariant).TBXAntaro(),0,"D","K")
 	Do $$$AssertTrue($IsValidNum(VerpakkingHoogte),"04. VerpakkingHoogte is een getal")
 
 	Quit
@@ -107,20 +107,20 @@
 	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Ongeldige waarde voor berekening van VerpakkingHoogte", "input params (""TBX_Plus"", 0, ""X"")")
 	do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.GeneralErrorException",Substrings))
 	
-	Do ##class(APPS.PM.Maatwerk.Probox.Calculator).GeefVerpakkingHoogte(##class(DOM.PM.enu.LadeVariant).TBXPlus(),0,"X","")
+	Do ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefVerpakkingHoogte(##class(DOM.PM.enu.LadeVariant).TBXPlus(),0,"X","")
 ]]></Implementation>
 </Method>
 
 <Method name="TestGeefWikkelDiepte">
 <Implementation><![CDATA[
 	#dim WikkelDiepte As %Decimal = ""
-	Set WikkelDiepte=##class(APPS.PM.Maatwerk.Probox.Calculator).GeefWikkelDiepte(500)
+	Set WikkelDiepte=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelDiepte(500)
 	Do $$$AssertEquals(WikkelDiepte,520,"De WikkelDiepte is correct berekend voor LadeDiepte 500mm")
 	
-	Set WikkelDiepte=##class(APPS.PM.Maatwerk.Probox.Calculator).GeefWikkelDiepte(550)
+	Set WikkelDiepte=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelDiepte(550)
 	Do $$$AssertEquals(WikkelDiepte,520,"De WikkelDiepte is correct berekend voor LadeDiepte 550mm")
 	
-	Set WikkelDiepte=##class(APPS.PM.Maatwerk.Probox.Calculator).GeefWikkelDiepte(600)
+	Set WikkelDiepte=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelDiepte(600)
 	Do $$$AssertEquals(WikkelDiepte,650,"De WikkelDiepte is correct berekend voor LadeDiepte 600mm")
 	
 	Quit
@@ -130,19 +130,19 @@
 <Method name="TestGeefWikkelInfo">
 <Implementation><![CDATA[
 	#dim WikkelInfo As APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo
-	Set WikkelInfo=##class(APPS.PM.Maatwerk.Probox.Calculator).GeefWikkelInfo(##class(DOM.PM.enu.LadeVariant).TBXPlus(),0,"M","",580)
+	Set WikkelInfo=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelInfo(##class(DOM.PM.enu.LadeVariant).TBXPlus(),0,"M","",580)
 	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.Probox.Calculator).GeefWikkelInfo(##class(DOM.PM.enu.LadeVariant).TBXPlus(),0,"M","",840)
+	Set WikkelInfo=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelInfo(##class(DOM.PM.enu.LadeVariant).TBXPlus(),0,"M","",840)
 	Do $$$AssertEquals(WikkelInfo.GeefWikkelLengte(),1250,"02. De lengte van de wikkel is correct")
 	Do $$$AssertEquals(WikkelInfo.GeefAantal(),1,"02. Het aantal wikkels is correct")
 
-	Set WikkelInfo=##class(APPS.PM.Maatwerk.Probox.Calculator).GeefWikkelInfo(##class(DOM.PM.enu.LadeVariant).TBXIntivo(),1,"D","",840)
+	Set WikkelInfo=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelInfo(##class(DOM.PM.enu.LadeVariant).TBXIntivo(),1,"D","",840)
 	Do $$$AssertEquals(WikkelInfo.GeefWikkelLengte(),900,"03. De lengte van de wikkel is correct")
 	Do $$$AssertEquals(WikkelInfo.GeefAantal(),2,"03. Het aantal wikkels is correct")
 
-	Set WikkelInfo=##class(APPS.PM.Maatwerk.Probox.Calculator).GeefWikkelInfo(##class(DOM.PM.enu.LadeVariant).LBXPure(),1,"F","",840)
+	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")
 ]]></Implementation>
Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r36573 -r37460
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 36573)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 37460)
@@ -946,7 +946,7 @@
 <Implementation><![CDATA[
 	Set LadeVariant=..GeefLadeVariantFromDesignCode(DesignCode)
 	Set IsBinnenlade=(LadeType=##class(DOM.PM.enu.TBXLadeType).BinnenLade())
-	Set WikkelInfo=##class(APPS.PM.Maatwerk.Probox.Calculator).GeefWikkelInfo(LadeVariant,IsBinnenlade,LadeHoogte,LadeZijkantHoogte,LadeBreedte)
+	Set WikkelInfo=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelInfo(LadeVariant,IsBinnenlade,LadeHoogte,LadeZijkantHoogte,LadeBreedte)
 	Quit $LB(WikkelInfo.GeefWikkelLengte(),WikkelInfo.GeefAantal())
 ]]></Implementation>
 </Method>
@@ -958,7 +958,7 @@
 <FormalSpec>LadeDiepte:%Integer</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Float</ReturnType>
-<Implementation><![CDATA[	Quit ##class(APPS.PM.Maatwerk.Probox.Calculator).GeefWikkelDiepte(LadeDiepte)
+<Implementation><![CDATA[	Quit ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelDiepte(LadeDiepte)
 ]]></Implementation>
 </Method>
 
@@ -972,7 +972,7 @@
 <Implementation><![CDATA[
 	Set LadeVariant=..GeefLadeVariantFromDesignCode(DesignCode)
 	Set IsBinnenlade=(LadeType=##class(DOM.PM.enu.TBXLadeType).BinnenLade())
-	Set VolumeAandeel=##class(APPS.PM.Maatwerk.Probox.Calculator).GeefVolumeAandeel(LadeVariant,IsBinnenlade,LadeDiepte,LadeHoogte,LadeZijkantHoogte,LadeBreedte)
+	Set VolumeAandeel=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefVolumeAandeel(LadeVariant,IsBinnenlade,LadeDiepte,LadeHoogte,LadeZijkantHoogte,LadeBreedte)
 	Quit VolumeAandeel
 ]]></Implementation>
 </Method>
Index: APPS/PM/Maatwerk/impl/Verpakking/Probox/Calculator.cls.xml
===================================================================
diff -u
--- APPS/PM/Maatwerk/impl/Verpakking/Probox/Calculator.cls.xml	(revision 0)
+++ APPS/PM/Maatwerk/impl/Verpakking/Probox/Calculator.cls.xml	(revision 37460)
@@ -0,0 +1,429 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator">
+<ClassType/>
+<IncludeCode>TECH.Error</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Method name="GeefOppervlakteAandeel">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>LadeVariant:DOM.PM.enu.LadeVariant,IsBinnenlade:%Boolean,LadeDiepte:%Integer,LadeHoogte:%String,LadeZijkantHoogte:%String</FormalSpec>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	#dim OppervlakteAandeel As %Float = ""
+
+	If $$$Not($IsValidNum(IsBinnenlade)) {
+		set Exception = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),"Validatie IsBinnenlade (%Boolean) is gefaald voor berekening van OppervlakteAandeel; input params "_$$$LCVT($LB("LadeVariant : "_LadeVariant,"IsBinnenlade : "_IsBinnenlade,"LadeDiepte : "_LadeDiepte,"LadeHoogte :"_LadeHoogte,"LadeZijkantHoogte :"_LadeZijkantHoogte))_".")
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	If (LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXPlus()) || (LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXMengvorm()) { 
+		If IsBinnenlade {
+			If (LadeDiepte '> 550) {
+				// Binnenlades van 270mm tot 550mm diep 
+				Set OppervlakteAandeel=$Case(LadeHoogte, 
+													"M" : 0.13 , 
+													"K" : 0.17 , 
+													"B" : 0.20 , 
+													"C" : 0.25 , 
+													"D" : 0.33 , 
+													 : "")
+			}
+			Else {
+				// Binnenlades groter dan, dus 600mm en 650mm diep 
+				Set OppervlakteAandeel=$Case(LadeHoogte, 
+													"M" : 0.20 , 
+													"K" : 0.25 , 
+													"B" : 0.33 , 
+													"C" : 0.33 , 
+													"D" : 0.50 , 
+													 : "")
+			}
+		}
+		Else {
+			If (LadeDiepte '> 550) {
+				// Lades van 270mm tot 550mm diep 
+				Set OppervlakteAandeel=$Case(LadeHoogte, 
+													"N" : 0.10 , 
+													"M" : 0.13 , 
+													"K" : 0.17 , 
+													"B" : 0.13 , 
+													"C" : 0.17 , 
+													"D" : 0.13 , 
+													 : "")
+			}
+			Else {
+				// Lades groter dan, dus 600mm en 650mm diep 
+				Set OppervlakteAandeel=$Case(LadeHoogte, 
+													"N" : 0.14 , 
+													"M" : 0.17 , 
+													"K" : 0.25 , 
+													"B" : 0.17 , 
+													"C" : 0.25 , 
+													"D" : 0.17 , 
+													 : "")
+			}
+		}
+	} 
+	ElseIf LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXIntivo() { 
+		If IsBinnenlade {
+			If (LadeDiepte '> 550) {
+				// Binnenlades van 270mm tot 550mm diep 
+				Set OppervlakteAandeel=$Case(LadeHoogte, 
+													"M" : 0.13 , 
+													"C" : 0.25 , 
+													"D" : 0.33 , 
+													 : "")
+			}
+			Else {
+				// Binnenlades groter dan, dus 600mm en 650mm diep 
+				Set OppervlakteAandeel=$Case(LadeHoogte, 
+													"M" : 0.20 , 
+													"C" : 0.33 , 
+													"D" : 0.50 , 
+													 : "")
+			}
+		}
+		Else {
+			If (LadeDiepte '> 550) {
+				// Lades van 270mm tot 550mm diep 
+				Set OppervlakteAandeel=$Case(LadeHoogte, 
+													"N" : 0.10 , 
+													"M" : 0.13 , 
+													"C" : 0.14 , 
+													"D" : 0.14 , 
+													 : "")
+			}
+			Else {
+				// Lades groter dan, dus 600mm en 650mm diep 
+				Set OppervlakteAandeel=$Case(LadeHoogte, 
+													"N" : 0.14 , 
+													"M" : 0.17 , 
+													"C" : 0.20 , 
+													"D" : 0.20 , 
+													 : "")
+			}
+		}
+	}
+	ElseIf LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXAntaro() { 
+		If IsBinnenlade {
+			If (LadeDiepte '> 550) {
+				// Binnenlades van 270mm tot 550mm diep 
+				Set OppervlakteAandeel=$Case(LadeHoogte, 
+													"M" : 0.13 , 
+													"K" : 0.17 , 
+													"B" : 0.20 , 
+													"C" : 0.25 , 
+													"D" : 0.33 , 
+													 : "")
+												; hierboven geen onderscheid nodig tussen DK/Z en DM/Z-lades 
+			}
+			Else {
+				// Binnenlades groter dan, dus 600mm en 650mm diep 
+				Set OppervlakteAandeel=$Case(LadeHoogte, 
+													"M" : 0.20 , 
+													"K" : 0.25 , 
+													"B" : 0.33 , 
+													"C" : 0.33 , 
+													"D" : 0.50 , 
+													 : "")
+												; hierboven geen onderscheid nodig tussen DK/Z en DM/Z-lades 
+			}
+		}
+		Else {
+			If (LadeDiepte '> 550) {
+				// Lades van 270mm tot 550mm diep 
+				Set OppervlakteAandeel=$Case(LadeHoogte, 
+													"N" : 0.10 , 
+													"M" : 0.13 , 
+													"K" : 0.17 , 
+													"B" : 0.13 , 
+													"C" : 0.13 , 
+													"D" : $S(LadeZijkantHoogte="K":0.17, 1: 0.13) , 
+													 : "")
+			}
+			Else {
+				// Lades groter dan, dus 600mm en 650mm diep 
+				Set OppervlakteAandeel=$Case(LadeHoogte, 
+													"N" : 0.14 , 
+													"M" : 0.17 , 
+													"K" : 0.17 , 
+													"B" : 0.17 , 
+													"C" : 0.17 , 
+													"D" : $S(LadeZijkantHoogte="K":0.25, 1: 0.17) , 
+													 : "")
+			}
+		}
+	}
+	ElseIf ((LadeVariant=##class(DOM.PM.enu.LadeVariant).LBXPure()) || (LadeVariant=##class(DOM.PM.enu.LadeVariant).TAOR())) { 
+		If IsBinnenlade {
+			If (LadeDiepte '> 550) {
+				// Binnenlades van 270mm tot 550mm diep 
+				Set OppervlakteAandeel=$Case(LadeHoogte, 
+													"N" : 0.13 , 
+													"M" : 0.14 , 
+													"K" : 0.20 , 
+													"C" : 0.33 , 
+													"F" : 0.50 , 
+													 : "")
+			}
+			Else {
+				// Binnenlades groter dan, dus 600mm en 650mm diep 
+				Set OppervlakteAandeel=$Case(LadeHoogte, 
+													"N" : 0.17 , 
+													"M" : 0.20 , 
+													"K" : 0.33 , 
+													"C" : 0.50 , 
+													"F" : 0.50 , 
+													 : "")
+			}
+		}
+		Else {
+			If (LadeDiepte '> 550) {
+				// Lades van 270mm tot 550mm diep 
+				Set OppervlakteAandeel=$Case(LadeHoogte, 
+													"N" : 0.13 , 
+													"M" : 0.14 , 
+													"K" : 0.20 , 
+													"C" : 0.33 , 
+													"F" : 0.50 , 
+													 : "")
+			}
+			Else {
+				// Lades groter dan, dus 600mm en 650mm diep 
+				Set OppervlakteAandeel=$Case(LadeHoogte, 
+													"N" : 0.17 , 
+													"M" : 0.20 , 
+													"K" : 0.33 , 
+													"C" : 0.50 , 
+													"F" : 0.50 , 
+													 : "")
+			}
+		}
+	} 
+	Else { 
+		Set OppervlakteAandeel=""
+	}
+	
+	If OppervlakteAandeel="" {
+		#dim Message As %String = "Ongeldige waarde voor berekening van OppervlakteAandeel; input params "_$$$LCVT($LB("LadeVariant : "_LadeVariant,"IsBinnenlade : "_IsBinnenlade,"LadeDiepte : "_LadeDiepte,"LadeHoogte :"_LadeHoogte,"LadeZijkantHoogte :"_LadeZijkantHoogte))_"."
+		set Exception = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),Message)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+
+	Quit OppervlakteAandeel
+]]></Implementation>
+</Method>
+
+<Method name="GeefHoogteAandeel">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>LadeBreedte:%Float</FormalSpec>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+ /*
+	tussen 600mm en 1200mm : Lineaire functie 	
+			                              		
+			               _____  1.0     		
+			              /               		
+			             /                		
+			       _____/                 		
+			  0.8                         		
+			                              		
+ */
+
+	#define MinHoogteAandeel   0.8
+	
+	#dim HoogteAandeel As %Float = ""
+	If LadeBreedte'>600 {
+		Set HoogteAandeel = $$$MinHoogteAandeel
+	}
+	Else {
+		Set HoogteAandeel = ((LadeBreedte-600)*(1/3000)) + $$$MinHoogteAandeel
+	}
+	Set:(HoogteAandeel>1) HoogteAandeel=1
+	Quit HoogteAandeel
+]]></Implementation>
+</Method>
+
+<Method name="GeefVolumeAandeel">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>LadeVariant:DOM.PM.enu.LadeVariant,IsBinnenlade:%Boolean,LadeDiepte:%Integer,LadeHoogte:%String,LadeZijkantHoogte:%String,LadeBreedte:%Float</FormalSpec>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefOppervlakteAandeel(LadeVariant,IsBinnenlade,LadeDiepte,LadeHoogte,LadeZijkantHoogte) * ..GeefHoogteAandeel(LadeBreedte)
+]]></Implementation>
+</Method>
+
+<Method name="GeefVolumeAandeelViaLade">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Lade:DOM.PM.TBXProduct.TBXLade</FormalSpec>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	#dim IsBinnenlade As %Boolean = (Lade.GeefLadeType()=##class(DOM.PM.enu.TBXLadeType).BinnenLade())
+	Quit ..GeefVolumeAandeel(Lade.GeefVariant(),IsBinnenlade,Lade.GeefLadeDiepte(),Lade.GeefZijwandHoogte(),Lade.GeefZijkantHoogte(),Lade.GeefInbouwBreedte())
+]]></Implementation>
+</Method>
+
+<Method name="GeefVerpakkingHoogte">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>LadeVariant:DOM.PM.enu.LadeVariant,IsBinnenlade:%Boolean,LadeHoogte:%String,LadeZijkantHoogte:%String</FormalSpec>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	#dim VerpakkingHoogte As %Float =""
+	
+	If $$$Not($IsValidNum(IsBinnenlade)) {
+		set Exception = ##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),"Validatie IsBinnenlade (%Boolean) is gefaald voor berekening van VerpakkingHoogte; input params "_$$$LCVT($LB(LadeVariant,IsBinnenlade,LadeHoogte))_".")
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	If (LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXPlus()) || (LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXMengvorm()) { 
+		If IsBinnenlade {
+			// Binnenlades
+			Set VerpakkingHoogte=$Case(LadeHoogte, 
+												"M" :  90 , 
+												"K" : 120 , 
+												"B" : 140 , 
+												"C" : 170 , 
+												"D" : 205 , 
+												 : "")
+		}
+		Else {
+			// Lades
+			Set VerpakkingHoogte=$Case(LadeHoogte, 
+												"N" :  69 , 
+												"M" :  84 , 
+												"K" : 116 , 
+												"B" :  84 , 
+												"C" : 116 , 
+												"D" :  84 , 
+												 : "")
+		}
+	} 
+	ElseIf LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXIntivo() { 
+		If IsBinnenlade {
+			// Binnenlades
+			Set VerpakkingHoogte=$Case(LadeHoogte, 
+												"M" :  90 , 
+												"C" : 175 , 
+												"D" : 205 , 
+												 : "")
+		}
+		Else {
+			// Lades
+			Set VerpakkingHoogte=$Case(LadeHoogte, 
+												"N" :  69 , 
+												"M" :  84 , 
+												"C" : 102 , 
+												"D" : 102 , 
+												 : "")
+		}
+	}
+	ElseIf LadeVariant=##class(DOM.PM.enu.LadeVariant).TBXAntaro() { 
+		If IsBinnenlade {
+			// Binnenlades
+			Set VerpakkingHoogte=$Case(LadeHoogte, 
+												"M" :  90 , 
+												"K" : 120 , 
+												"B" : 140 , 
+												"C" : 170 , 
+												"D" : 205 , 
+												 : "")
+											; hierboven geen onderscheid nodig tussen DK/Z en DM/Z-lades 
+		}
+		Else {
+			// Lades
+			Set VerpakkingHoogte=$Case(LadeHoogte, 
+												"N" :  69 , 
+												"M" :  84 , 
+												"K" : 116 , 
+												"B" :  84 , 
+												"C" :  84 , 
+												"D" : $S(LadeZijkantHoogte="K":116, 1: 84) ,
+												 : "")
+		}
+	}
+	ElseIf ((LadeVariant=##class(DOM.PM.enu.LadeVariant).LBXPure()) || (LadeVariant=##class(DOM.PM.enu.LadeVariant).TAOR())) { 
+		If IsBinnenlade {
+				Set VerpakkingHoogte=$Case(LadeHoogte, 
+													"N" : 80 , 
+													"M" : 104 , 
+													"K" : 142 , 
+													"C" : 191 , 
+													"F" : 255 , 
+													 : "")
+		}
+		Else {
+				Set VerpakkingHoogte=$Case(LadeHoogte, 
+													"N" : 80 , 
+													"M" : 104 , 
+													"K" : 142 , 
+													"C" : 191 , 
+													"F" : 255 , 
+													 : "")
+		}
+	} Else { 
+		Set VerpakkingHoogte=""
+	}
+	
+	If VerpakkingHoogte="" {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.GeneralErrorException).%New("Ongeldige waarde voor berekening van VerpakkingHoogte; input params "_$$$LCVT($LB(LadeVariant,IsBinnenlade,LadeHoogte))_"."))
+	}
+
+	Quit VerpakkingHoogte
+]]></Implementation>
+</Method>
+
+<Method name="GeefWikkelInfo">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>LadeVariant:DOM.PM.enu.LadeVariant,IsBinnenlade:%Boolean,LadeHoogte:%String,LadeZijkantHoogte:%String,LadeBreedte:%Float</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 
+
+	If WikkelLengte '> 900 {
+		Set WikkelInfo=##class(APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo).%New(900,1)
+	}
+	ElseIf WikkelLengte '> 1250 {
+		Set WikkelInfo=##class(APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo).%New(1250,1)
+	}
+	Else {
+		Set WikkelInfo=##class(APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo).%New(900,2)
+	}
+	
+	Quit WikkelInfo
+]]></Implementation>
+</Method>
+
+<Method name="GeefWikkelInfoViaLade">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Lade:DOM.PM.TBXProduct.TBXLade</FormalSpec>
+<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())
+]]></Implementation>
+</Method>
+
+<Method name="GeefWikkelDiepte">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>LadeDiepte:%Integer</FormalSpec>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	#dim WikkelDiepte As %Float = ""
+	If LadeDiepte'>550 {
+		Set WikkelDiepte = 520
+	}
+	Else {
+		Set WikkelDiepte = 650
+	}
+	
+	Quit WikkelDiepte
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/Calc/Kost/impl/Probox/MultiplierProboxWikkel.cls.xml
===================================================================
diff -u -r29059 -r37460
--- DOM/PM/Maatwerk/Calc/Kost/impl/Probox/MultiplierProboxWikkel.cls.xml	(.../MultiplierProboxWikkel.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Calc/Kost/impl/Probox/MultiplierProboxWikkel.cls.xml	(.../MultiplierProboxWikkel.cls.xml)	(revision 37460)
@@ -24,14 +24,12 @@
 </Method>
 
 <Method name="Evalueer">
-<Description>
-</Description>
 <FormalSpec>Context:DOM.PM.Maatwerk.Calc.Kost.KostContext,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</FormalSpec>
 <ReturnType>%Float</ReturnType>
 <Implementation><![CDATA[
 	#dim Breedte As %Double = ..BreedteBepaler.GeefVerpakkingBreedte(IngegevenKenmerken)
-	#dim WikkelInfo As APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo = ##class(APPS.PM.Maatwerk.Probox.Calculator).GeefWikkelInfo(IngegevenKenmerken.GeefVariant(), IngegevenKenmerken.IsBinnenlade, IngegevenKenmerken.LadeHoogte, "", Breedte)
-	#dim WikkelDiepte As %Decimal = ##class(APPS.PM.Maatwerk.Probox.Calculator).GeefWikkelDiepte(IngegevenKenmerken.LadeDiepte)
+	#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 WikkelDiepte As %Decimal = ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelDiepte(IngegevenKenmerken.LadeDiepte)
 	Quit $S(WikkelDiepte=520:0.25, 1:0.33) * WikkelInfo.GeefAantal()
 ]]></Implementation>
 </Method>
Index: zTryout/FM/probox/VolumeTest.cls.xml
===================================================================
diff -u -r29059 -r37460
--- zTryout/FM/probox/VolumeTest.cls.xml	(.../VolumeTest.cls.xml)	(revision 29059)
+++ zTryout/FM/probox/VolumeTest.cls.xml	(.../VolumeTest.cls.xml)	(revision 37460)
@@ -12,16 +12,16 @@
 	//IsBinnenlade As %Boolean, LadeDiepte As %Integer, LadeHoogte As %String, LadeBreedte As %Float
 	//
 	// Hardcoded probox testbestelling (toelevering is al weg)
-	Set VolumeAandeel1=##class(APPS.PM.Maatwerk.Probox.Calculator).GeefVolumeAandeel(
+	Set VolumeAandeel1=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefVolumeAandeel(
 			##class(DOM.PM.enu.LadeVariant).TBXPlus(),
 			0,450,"K","K",763)
-	Set VolumeAandeel2=##class(APPS.PM.Maatwerk.Probox.Calculator).GeefVolumeAandeel(
+	Set VolumeAandeel2=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefVolumeAandeel(
 			##class(DOM.PM.enu.LadeVariant).TBXPlus(),
 			0,550,"M","M",563)
-	Set VolumeAandeel3=##class(APPS.PM.Maatwerk.Probox.Calculator).GeefVolumeAandeel(
+	Set VolumeAandeel3=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefVolumeAandeel(
 			##class(DOM.PM.enu.LadeVariant).TBXPlus(),
 			0,550,"D","M",763)
-	Set VolumeAandeel4=##class(APPS.PM.Maatwerk.Probox.Calculator).GeefVolumeAandeel(
+	Set VolumeAandeel4=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefVolumeAandeel(
 			##class(DOM.PM.enu.LadeVariant).TBXPlus(),
 			1,500,"B","M",763)
 	Set Totaal = (VolumeAandeel1 *1) + (VolumeAandeel2 * 3) + (VolumeAandeel3 *4) + (VolumeAandeel4 * 2)
@@ -79,9 +79,9 @@
  	. Set VPK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"VERPAK")) ; Verpakking
  	. Quit:((VPK '= "X") && (VPK '= "Y"))
 	. Set Lade = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(PRNr)
-	. Set WikkelInfo = ##class(APPS.PM.Maatwerk.Probox.Calculator).GeefWikkelInfoViaLade(Lade)
+	. Set WikkelInfo = ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelInfoViaLade(Lade)
 	. Set WikkelLengte = WikkelInfo.GeefWikkelLengte()
-	. Set WikkelDiepte = ##class(APPS.PM.Maatwerk.Probox.Calculator).GeefWikkelDiepte(Lade.GeefLadeDiepte())
+	. Set WikkelDiepte = ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelDiepte(Lade.GeefLadeDiepte())
 	. Set WikkelAfmeting = WikkelLengte_"x"_WikkelDiepte
 	. Set Wikkels(WikkelAfmeting) = $G(Wikkels(WikkelAfmeting)) + WikkelInfo.GeefAantal()
 	. Write oQ.Sequence, ": ", oQ.Product.KortTekst, " Probox wikkel: ", WikkelAfmeting, " * ", WikkelInfo.GeefAantal(), !
Index: BL/PPS/common/impl/ProboxVolumeAandeelBepaler.cls.xml
===================================================================
diff -u -r29059 -r37460
--- BL/PPS/common/impl/ProboxVolumeAandeelBepaler.cls.xml	(.../ProboxVolumeAandeelBepaler.cls.xml)	(revision 29059)
+++ BL/PPS/common/impl/ProboxVolumeAandeelBepaler.cls.xml	(.../ProboxVolumeAandeelBepaler.cls.xml)	(revision 37460)
@@ -36,7 +36,7 @@
 	#dim VerpakkingType As DOM.PM.enu.LBXVoorWandType = LBXLade.GeefVerpakking()
 	If (VerpakkingType = ##class(DOM.PM.enu.LBXVerpakkingType).Probox()) {
 		#dim Breedte As %Double = ..BreedteBepaler.GeefVerpakkingBreedte(LBXLade.GeefIngegevenKenmerken())
-		Set ..VolumeAandeel = ##class(APPS.PM.Maatwerk.Probox.Calculator).GeefVolumeAandeel(
+		Set ..VolumeAandeel = ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefVolumeAandeel(
 					LBXLade.GeefVariant(),
 					LBXLade.IsBinnenlade(),
 					LBXLade.GeefLadeDiepte(),
@@ -55,7 +55,7 @@
 	#dim MaatwerkProduct As DOM.PM.MaatwerkProduct = ProductTypeAPI.GeefMaatwerkProduct(ProductID)
 	#dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken = MaatwerkProduct.GeefProductSpecificatie().GeefIngegevenKenmerken()
 	If (IngegevenKenmerken.VerpakkingType = ##class(DOM.PM.enu.TAORVerpakkingType).Probox()) {
-		Set ..VolumeAandeel = ##class(APPS.PM.Maatwerk.Probox.Calculator).GeefVolumeAandeel(
+		Set ..VolumeAandeel = ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefVolumeAandeel(
 					IngegevenKenmerken.GeefVariant(),
 					IngegevenKenmerken.IsBinnenlade,
 					IngegevenKenmerken.LadeDiepte,
@@ -74,7 +74,7 @@
 	#Dim TBXLade As DOM.PM.TBXProduct.TBXLade = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI().GeefTandemboxProduct(ProductID)
 	#dim Verpakking As DOM.PM.enu.TBXVerpakking = TBXLade.GeefVerpakking()
 	if ( Verpakking = ( ##class(DOM.PM.enu.TBXVerpakking).ProboxMetOnderdelen() ) || (Verpakking = ##class(DOM.PM.enu.TBXVerpakking).ProboxZonderOnderdelen()) ) {
-		Set ..VolumeAandeel = ##class(APPS.PM.Maatwerk.Probox.Calculator).GeefVolumeAandeelViaLade(TBXLade)
+		Set ..VolumeAandeel = ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefVolumeAandeelViaLade(TBXLade)
 	}
 ]]></Implementation>
 </Method>
Index: zTryout/FM/DOM/PM/Maatwerk/Creatie/LBXCreator.cls.xml
===================================================================
diff -u -r29059 -r37460
--- zTryout/FM/DOM/PM/Maatwerk/Creatie/LBXCreator.cls.xml	(.../LBXCreator.cls.xml)	(revision 29059)
+++ zTryout/FM/DOM/PM/Maatwerk/Creatie/LBXCreator.cls.xml	(.../LBXCreator.cls.xml)	(revision 37460)
@@ -130,7 +130,7 @@
 	#dim LadeHoogte As %Decimal = ..IngegevenKenmerken.LadeHoogte
 	#dim IsBinnenlade As %Boolean = ..IngegevenKenmerken.IsBinnenlade
 	#dim InterneBreedte As %Decimal = ..IngegevenKenmerken.InterneBreedte
-	#dim VolumeAandeel As %Decimal = ##class(APPS.PM.Maatwerk.Probox.Calculator).GeefVolumeAandeel(##class(DOM.PM.enu.LadeVariant).LBXPure(), IsBinnenlade, LadeDiepte, LadeHoogte, LadeHoogte, InterneBreedte)
+	#dim VolumeAandeel As %Decimal = ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefVolumeAandeel(##class(DOM.PM.enu.LadeVariant).LBXPure(), IsBinnenlade, LadeDiepte, LadeHoogte, LadeHoogte, InterneBreedte)
 	Write VolumeAandeel,!
 ]]></Implementation>
 </Method>
Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r37454 -r37460
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 37454)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 37460)
@@ -737,9 +737,9 @@
 	If (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Probox())
 	{
 		// Probox wikkel info
-		Set WikkelInfo = ##class(APPS.PM.Maatwerk.Probox.Calculator).GeefWikkelInfoViaLade(Lade)
+		Set WikkelInfo = ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelInfoViaLade(Lade)
 		Set WikkelLengte = WikkelInfo.GeefWikkelLengte()
-		Set WikkelDiepte = ##class(APPS.PM.Maatwerk.Probox.Calculator).GeefWikkelDiepte(Lade.GeefLadeDiepte())
+		Set WikkelDiepte = ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelDiepte(Lade.GeefLadeDiepte())
 		Set WikkelAfmeting = WikkelLengte_"x"_WikkelDiepte
 		Set Opmerking = Opmerking_",Wikkel"_$Case(WikkelAfmeting,"1250x520":"A","1250x650":"B","900x520":"C","900x650":"D",1:"")_"("_WikkelInfo.GeefAantal()_")"
 	}
Index: DOM/PM/Maatwerk/Calc/HF/impl/Probox/Builder/HFProboxBodemdoosv001.cls.xml
===================================================================
diff -u -r29059 -r37460
--- DOM/PM/Maatwerk/Calc/HF/impl/Probox/Builder/HFProboxBodemdoosv001.cls.xml	(.../HFProboxBodemdoosv001.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Calc/HF/impl/Probox/Builder/HFProboxBodemdoosv001.cls.xml	(.../HFProboxBodemdoosv001.cls.xml)	(revision 37460)
@@ -46,7 +46,7 @@
 	Do ##super(HalffabItem, IngegevenKenmerken, Context, .HalffabList)
 
 	#dim Breedte As %Double = ..BreedteBepaler.GeefVerpakkingBreedte(IngegevenKenmerken)
-	#dim VolumeAandeel As %Decimal = ##class(APPS.PM.Maatwerk.Probox.Calculator).GeefVolumeAandeel(IngegevenKenmerken.GeefVariant(), IngegevenKenmerken.IsBinnenlade, IngegevenKenmerken.LadeDiepte, IngegevenKenmerken.LadeHoogte, IngegevenKenmerken.LadeHoogte, Breedte)
+	#dim VolumeAandeel As %Decimal = ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefVolumeAandeel(IngegevenKenmerken.GeefVariant(), IngegevenKenmerken.IsBinnenlade, IngegevenKenmerken.LadeDiepte, IngegevenKenmerken.LadeHoogte, IngegevenKenmerken.LadeHoogte, Breedte)
 	Set HalffabItem.Aantal = VolumeAandeel * $$$VoorraadCorrectieFactorBodemdoos
 	Do HalffabItem.ZetOmschrijvingVoorDocs(..GeefRol())
 ]]></Implementation>
Index: APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils.cls.xml
===================================================================
diff -u -r29059 -r37460
--- APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils.cls.xml	(.../Utils.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/Activiteit/impl/LBX/ProductieVoorbereidingZaag/Utils.cls.xml	(.../Utils.cls.xml)	(revision 37460)
@@ -148,9 +148,9 @@
 	#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.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)
 		#dim WikkelLengte As %Float = WikkelInfo.GeefWikkelLengte()
-		#dim WikkelDiepte As %Float = ##class(APPS.PM.Maatwerk.Probox.Calculator).GeefWikkelDiepte(IngegevenKenmerken.LadeDiepte)
+		#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()_")"
 	}
Index: DOM/PM/Maatwerk/Calc/HF/impl/Probox/Builder/HFProboxPalletv001.cls.xml
===================================================================
diff -u -r29059 -r37460
--- DOM/PM/Maatwerk/Calc/HF/impl/Probox/Builder/HFProboxPalletv001.cls.xml	(.../HFProboxPalletv001.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Calc/HF/impl/Probox/Builder/HFProboxPalletv001.cls.xml	(.../HFProboxPalletv001.cls.xml)	(revision 37460)
@@ -45,7 +45,7 @@
 	#define VoorraadCorrectieFactorPallet		(1 - 0.25)
 	Do ##super(HalffabItem, IngegevenKenmerken, Context, .HalffabList)
 	#dim Breedte As %Double = ..BreedteBepaler.GeefVerpakkingBreedte(IngegevenKenmerken)
-	#dim VolumeAandeel As %Decimal = ##class(APPS.PM.Maatwerk.Probox.Calculator).GeefVolumeAandeel(IngegevenKenmerken.GeefVariant(), IngegevenKenmerken.IsBinnenlade, IngegevenKenmerken.LadeDiepte, IngegevenKenmerken.LadeHoogte, IngegevenKenmerken.LadeHoogte, Breedte)
+	#dim VolumeAandeel As %Decimal = ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefVolumeAandeel(IngegevenKenmerken.GeefVariant(), IngegevenKenmerken.IsBinnenlade, IngegevenKenmerken.LadeDiepte, IngegevenKenmerken.LadeHoogte, IngegevenKenmerken.LadeHoogte, Breedte)
 	Set HalffabItem.Aantal = VolumeAandeel * $$$VoorraadCorrectieFactorPallet
 	Do HalffabItem.ZetOmschrijvingVoorDocs(..GeefRol())
 ]]></Implementation>
Index: DOM/PM/Maatwerk/Calc/HF/impl/Probox/Builder/HFProboxWikkelv001.cls.xml
===================================================================
diff -u -r29059 -r37460
--- DOM/PM/Maatwerk/Calc/HF/impl/Probox/Builder/HFProboxWikkelv001.cls.xml	(.../HFProboxWikkelv001.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Calc/HF/impl/Probox/Builder/HFProboxWikkelv001.cls.xml	(.../HFProboxWikkelv001.cls.xml)	(revision 37460)
@@ -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.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)
 	Do Dimensies.SetAt(WikkelInfo.GeefWikkelLengte(),##class(DOM.PM.enu.BewerkingDimensie).Lengte())
 	Quit Dimensies
 ]]></Implementation>
@@ -82,8 +82,8 @@
 <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.Probox.Calculator).GeefWikkelInfo(IngegevenKenmerken.GeefVariant(), IngegevenKenmerken.IsBinnenlade, IngegevenKenmerken.LadeHoogte, "", Breedte)
-	#dim WikkelDiepte As %Decimal = ##class(APPS.PM.Maatwerk.Probox.Calculator).GeefWikkelDiepte(IngegevenKenmerken.LadeDiepte)
+	#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 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
 								* WikkelInfo.GeefAantal()				// Aantal wikkels nodig
Index: DOM/PM/Maatwerk/Calc/HF/impl/Probox/Builder/HFProboxDekseldoosv001.cls.xml
===================================================================
diff -u -r29059 -r37460
--- DOM/PM/Maatwerk/Calc/HF/impl/Probox/Builder/HFProboxDekseldoosv001.cls.xml	(.../HFProboxDekseldoosv001.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Calc/HF/impl/Probox/Builder/HFProboxDekseldoosv001.cls.xml	(.../HFProboxDekseldoosv001.cls.xml)	(revision 37460)
@@ -45,7 +45,7 @@
 	#define VoorraadCorrectieFactorDekseldoos		(1 + 0.01)
 	Do ##super(HalffabItem, IngegevenKenmerken, Context, .HalffabList)
 	#dim Breedte As %Double = ..BreedteBepaler.GeefVerpakkingBreedte(IngegevenKenmerken)
-	#dim VolumeAandeel As %Decimal = ##class(APPS.PM.Maatwerk.Probox.Calculator).GeefVolumeAandeel(IngegevenKenmerken.GeefVariant(), IngegevenKenmerken.IsBinnenlade, IngegevenKenmerken.LadeDiepte, IngegevenKenmerken.LadeHoogte, IngegevenKenmerken.LadeHoogte, Breedte)
+	#dim VolumeAandeel As %Decimal = ##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefVolumeAandeel(IngegevenKenmerken.GeefVariant(), IngegevenKenmerken.IsBinnenlade, IngegevenKenmerken.LadeDiepte, IngegevenKenmerken.LadeHoogte, IngegevenKenmerken.LadeHoogte, Breedte)
 	Set HalffabItem.Aantal = VolumeAandeel * $$$VoorraadCorrectieFactorDekseldoos
 	Do HalffabItem.ZetOmschrijvingVoorDocs(..GeefRol())
 ]]></Implementation>
FishEye: Tag 37460 refers to a dead (removed) revision in file `APPS/PM/Maatwerk/Probox/Calculator.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?