Index: APPS/PM/Probox/dto/WikkelInfo.cls.xml
===================================================================
diff -u
--- APPS/PM/Probox/dto/WikkelInfo.cls.xml	(revision 0)
+++ APPS/PM/Probox/dto/WikkelInfo.cls.xml	(revision 505)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="WikkelLengte">
+<Type>%Float</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Aantal">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Lengte:%Float,Aantal:%Integer</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..WikkelLengte=Lengte
+	Set ..Aantal=Aantal
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefWikkelLengte">
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[	Quit ..WikkelLengte
+]]></Implementation>
+</Method>
+
+<Method name="GeefAantal">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit ..Aantal
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/PM/Probox/Calculator.cls.xml
===================================================================
diff -u
--- APPS/PM/Probox/Calculator.cls.xml	(revision 0)
+++ APPS/PM/Probox/Calculator.cls.xml	(revision 505)
@@ -0,0 +1,362 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.PM.Maatwerk.TBX.Probox.Calculator">
+<IncludeCode>TECH.Error</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<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[
+	Set OppervlakteAandeel=""
+
+	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) , 
+													 : "")
+			}
+		}
+	}
+	Else { 
+		Set OppervlakteAandeel=""
+	}
+	
+	If OppervlakteAandeel="" {
+		set Message = "Ongeldige waarde voor berekening van OppervlakteAandeel; input params "_$$$LCVT($LB("LadeVariant : "_LadeVariant,"IsBinnenlade : "_IsBinnenlade,"LadeDiepte : "_LadeDiepte,"LadeHoogte :"_LadeHoogte))_"."
+		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
+	
+	Set HoogteAandeel=""
+	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[
+	set IsBinnenlade = (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[
+	Set VerpakkingHoogte=""
+	
+	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) ,
+												 : "")
+		}
+	}
+	Else { 
+		Set VerpakkingHoogte=""
+	}
+	
+	If VerpakkingHoogte="" {
+		$$$ThrowError($$$errInvalidInput,"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
+	
+	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 {
+		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[
+	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>
+<ReturnType>%Float</ReturnType>
+<Implementation><![CDATA[
+	Set WikkelDiepte=""
+	If LadeDiepte'>550 {
+		Set WikkelDiepte = 520
+	}
+	Else {
+		Set WikkelDiepte = 650
+	}
+	
+	Quit WikkelDiepte
+]]></Implementation>
+</Method>
+</Class>
+</Export>