Index: vhUnitTest/APPS/PM/Maatwerk/TBX/Probox/TestCalculator.cls.xml
===================================================================
diff -u -r58573 -r58731
--- vhUnitTest/APPS/PM/Maatwerk/TBX/Probox/TestCalculator.cls.xml	(.../TestCalculator.cls.xml)	(revision 58573)
+++ vhUnitTest/APPS/PM/Maatwerk/TBX/Probox/TestCalculator.cls.xml	(.../TestCalculator.cls.xml)	(revision 58731)
@@ -154,25 +154,30 @@
 	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")
+	Do $$$AssertEquals(WikkelInfo.GeefWikkelLengte(),900,"05. De lengte van de wikkel is correct")
+	Do $$$AssertEquals(WikkelInfo.GeefAantal(),1,"05. 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")
+	Do $$$AssertEquals(WikkelInfo.GeefWikkelLengte(),900,"06. De lengte van de wikkel is correct")
+	Do $$$AssertEquals(WikkelInfo.GeefAantal(),2,"07. 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")
+	Do $$$AssertEquals(WikkelInfo.GeefWikkelLengte(),900,"07. De lengte van de wikkel is correct")
+	Do $$$AssertEquals(WikkelInfo.GeefAantal(),2,"07. 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")
+	Do $$$AssertEquals(WikkelInfo.GeefWikkelLengte(),900,"08. De lengte van de wikkel is correct")
+	Do $$$AssertEquals(WikkelInfo.GeefAantal(),4,"08. Het aantal wikkels is correct")
 
+	Do ##class(Tools.Wlip).%New(207).String("")
+	Set WikkelInfo=##class(APPS.PM.Maatwerk.impl.Verpakking.Probox.Calculator).GeefWikkelInfo(##class(DOM.PM.enu.LadeVariant).TAOR(),0,"M","",564,700)
+	Do $$$AssertEquals(WikkelInfo.GeefWikkelLengte(),1250,"09. De lengte van de wikkel is correct")
+	Do $$$AssertEquals(WikkelInfo.GeefAantal(),2,"09. 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")
+	Do $$$AssertEquals(WikkelInfo.GeefWikkelLengte(),900,"10. De lengte van de wikkel is correct")
+	Do $$$AssertEquals(WikkelInfo.GeefAantal(),4,"10. Het aantal wikkels is correct")
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/PM/Maatwerk/impl/Verpakking/Probox/Calculator.cls.xml
===================================================================
diff -u -r58573 -r58731
--- APPS/PM/Maatwerk/impl/Verpakking/Probox/Calculator.cls.xml	(.../Calculator.cls.xml)	(revision 58573)
+++ APPS/PM/Maatwerk/impl/Verpakking/Probox/Calculator.cls.xml	(.../Calculator.cls.xml)	(revision 58731)
@@ -381,12 +381,14 @@
 	#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 
+	Do ##class(Tools.Wlip).%New(207).String("wikkellengte = " _ WikkelLengte)
 	#dim Aantal as %Decimal = 1
 	If WikkelLengte '> 900 {
 		Set:((LadeDiepte '< 700)) Aantal = 2
 		Set WikkelInfo=##class(APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo).%New(900,Aantal)
 	}
 	ElseIf WikkelLengte '> 1250 {
+		Set:((LadeDiepte '< 700)) Aantal = 2
 		Set WikkelInfo=##class(APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo).%New(1250,Aantal)
 	}
 	Else {