Index: APPS/PM/Maatwerk/TBX/Probox/Calculator.cls.xml
===================================================================
diff -u -r64199 -r64201
--- APPS/PM/Maatwerk/TBX/Probox/Calculator.cls.xml	(.../Calculator.cls.xml)	(revision 64199)
+++ APPS/PM/Maatwerk/TBX/Probox/Calculator.cls.xml	(.../Calculator.cls.xml)	(revision 64201)
@@ -161,7 +161,7 @@
 	}
 	
 	If OppervlakteAandeel="" {
-		Set Message = "Ongeldige waarde voor berekening van OppervlakteAandeel; input params "_$$$LCVT($LB("LadeVariant : "_LadeVariant,"IsBinnenlade : "_IsBinnenlade,"LadeDiepte : "_LadeDiepte,"LadeHoogte :"_LadeHoogte))_"."
+		Set Message = "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)
 	}
@@ -310,22 +310,27 @@
 
 <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
 	
 	Set VerpakkingHoogte = ..GeefVerpakkingHoogte(LadeVariant,IsBinnenlade,LadeHoogte,LadeZijkantHoogte)
 	Set WikkelLengte = LadeBreedte + (2*VerpakkingHoogte) + (2*$$$OverlapLengte)       ; LadeBreedte slechts 1x rekenen, want lade wordt niet volledig omwikkeld 
 
+	Set Aantal = 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:(LadeDiepte '< 700) Aantal = 2
+		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
@@ -338,7 +343,7 @@
 <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())
+	Quit ..GeefWikkelInfo(Lade.GeefVariant(),IsBinnenlade,Lade.GeefZijwandHoogte(),Lade.GeefZijkantHoogte(),Lade.GeefInbouwBreedte(),Lade.GeefLadeDiepte())
 ]]></Implementation>
 </Method>
 
@@ -348,11 +353,14 @@
 <ReturnType>%Float</ReturnType>
 <Implementation><![CDATA[
 	Set WikkelDiepte = ""
-	If LadeDiepte'>550 {
+	If LadeDiepte'>500 {
 		Set WikkelDiepte = 520
+	} 
+	ElseIf (LadeDiepte'>700) {
+		Set WikkelDiepte = 650
 	}
 	Else {
-		Set WikkelDiepte = 650
+		Set WikkelDiepte = 520
 	}
 	
 	Quit WikkelDiepte