Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r3664 -r11695
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 3664)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 11695)
@@ -699,7 +699,7 @@
 	If (Batch.GeefProductieGroep() = ##class(APPS.Halux.common.enu.ProductieGroep).Probox())
 	{
 		// Probox wikkel info
-		Set WikkelInfo = ##class(APPS.PM.Maatwerk.TBX.Probox.Calculator).GeefWikkelInfo(Lade.GeefVariant(),Lade.GeefLadeType()=##class(DOM.PM.enu.TBXLadeType).BinnenLade(),Lade.GeefZijwandHoogte(),Lade.GeefInbouwBreedte())
+		Set WikkelInfo = ##class(APPS.PM.Maatwerk.TBX.Probox.Calculator).GeefWikkelInfoViaLade(Lade)
 		Set WikkelLengte = WikkelInfo.GeefWikkelLengte()
 		Set WikkelDiepte = ##class(APPS.PM.Maatwerk.TBX.Probox.Calculator).GeefWikkelDiepte(Lade.GeefLadeDiepte())
 		Set WikkelAfmeting = WikkelLengte_"x"_WikkelDiepte
Index: APPS/PM/Maatwerk/TBX/Probox/Calculator.cls.xml
===================================================================
diff -u -r6987 -r11695
--- APPS/PM/Maatwerk/TBX/Probox/Calculator.cls.xml	(.../Calculator.cls.xml)	(revision 6987)
+++ APPS/PM/Maatwerk/TBX/Probox/Calculator.cls.xml	(.../Calculator.cls.xml)	(revision 11695)
@@ -8,7 +8,7 @@
 
 <Method name="GeefOppervlakteAandeel">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>LadeVariant:DOM.PM.enu.LadeVariant,IsBinnenlade:%Boolean,LadeDiepte:%Integer,LadeHoogte:%String</FormalSpec>
+<FormalSpec>LadeVariant:DOM.PM.enu.LadeVariant,IsBinnenlade:%Boolean,LadeDiepte:%Integer,LadeHoogte:%String,LadeZijkantHoogte:%String</FormalSpec>
 <ReturnType>%Float</ReturnType>
 <Implementation><![CDATA[
 	Set OppervlakteAandeel=""
@@ -111,6 +111,7 @@
 													"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 
@@ -120,6 +121,7 @@
 													"C" : 0.33 , 
 													"D" : 0.50 , 
 													 : "")
+												; hierboven geen onderscheid nodig tussen DK/Z en DM/Z-lades 
 			}
 		}
 		Else {
@@ -130,7 +132,7 @@
 													"M" : 0.13 , 
 													"B" : 0.13 , 
 													"C" : 0.13 , 
-													"D" : 0.13 , 
+													"D" : $S(LadeZijkantHoogte="K":0.17, 1: 0.13) , 
 													 : "")
 			}
 			Else {
@@ -140,7 +142,7 @@
 													"M" : 0.17 , 
 													"B" : 0.17 , 
 													"C" : 0.17 , 
-													"D" : 0.17 , 
+													"D" : $S(LadeZijkantHoogte="K":0.25, 1: 0.17) , 
 													 : "")
 			}
 		}
@@ -191,24 +193,25 @@
 
 <Method name="GeefVolumeAandeel">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>LadeVariant:DOM.PM.enu.LadeVariant,IsBinnenlade:%Boolean,LadeDiepte:%Integer,LadeHoogte:%String,LadeBreedte:%Float</FormalSpec>
+<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) * ..GeefHoogteAandeel(LadeBreedte)
+<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[
 	set IsBinnenlade = (Lade.GeefLadeType()=##class(DOM.PM.enu.TBXLadeType).BinnenLade())
-	Quit ..GeefVolumeAandeel(Lade.GeefVariant(),IsBinnenlade,Lade.GeefLadeDiepte(),Lade.GeefZijwandHoogte(),Lade.GeefBodemBreedte())
+	Quit ..GeefVolumeAandeel(Lade.GeefVariant(),IsBinnenlade,Lade.GeefLadeDiepte(),Lade.GeefZijwandHoogte(),Lade.GeefZijkantHoogte(),Lade.GeefBodemBreedte())
 ]]></Implementation>
 </Method>
 
 <Method name="GeefVerpakkingHoogte">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>LadeVariant:DOM.PM.enu.LadeVariant,IsBinnenlade:%Boolean,LadeHoogte:%String</FormalSpec>
+<FormalSpec>LadeVariant:DOM.PM.enu.LadeVariant,IsBinnenlade:%Boolean,LadeHoogte:%String,LadeZijkantHoogte:%String</FormalSpec>
 <ReturnType>%Float</ReturnType>
 <Implementation><![CDATA[
 	Set VerpakkingHoogte=""
@@ -260,19 +263,22 @@
 			// 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" :  84 , 
+												"D" : $S(LadeZijkantHoogte="K":116, 1: 84) ,
 												 : "")
 		}
 	}
@@ -290,12 +296,12 @@
 
 <Method name="GeefWikkelInfo">
 <ClassMethod>1</ClassMethod>
-<FormalSpec>LadeVariant:DOM.PM.enu.LadeVariant,IsBinnenlade:%Boolean,LadeHoogte:%String,LadeBreedte:%Float</FormalSpec>
+<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
 	
-	Set VerpakkingHoogte=..GeefVerpakkingHoogte(LadeVariant,IsBinnenlade,LadeHoogte)
+	Set VerpakkingHoogte=..GeefVerpakkingHoogte(LadeVariant,IsBinnenlade,LadeHoogte,LadeZijkantHoogte)
 	Set WikkelLengte = LadeBreedte + (2*VerpakkingHoogte) + (2*$$$OverlapLengte)       ; LadeBreedte slechts 1x rekenen, want lade wordt niet volledig omwikkeld 
 
 	If WikkelLengte '> 900 {
@@ -312,6 +318,16 @@
 ]]></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[
+	set IsBinnenlade = (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>