Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml
===================================================================
diff -u -r57836 -r61427
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml	(.../HFVerpakkingv001.cls.xml)	(revision 57836)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml	(.../HFVerpakkingv001.cls.xml)	(revision 61427)
@@ -52,7 +52,6 @@
 <Implementation><![CDATA[
 	Set ..WikkelBreedteBepaler = $$$Inject(WikkelBreedteBepaler, ##class(DOM.PM.Maatwerk.Calc.HF.impl.Wikkel.WikkelBreedteBepaler).%New())
 	Set ..WikkelLengteBepaler = $$$Inject(WikkelLengteBepaler, ##class(DOM.PM.Maatwerk.Calc.HF.impl.Wikkel.WikkelLengteBepaler).%New())
-
 	Set ..Rol = ..Enum.Rol.Verpakking
 	Set ..MaatwerkCalcAPI = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI()
 	
@@ -187,6 +186,16 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkPallet">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.Probox.Builder.HFProboxOnderdelendoosv001).%New(##this))
+	;Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFPalletKartonvulstukv000).%New(##this))
+	;Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001PalletInzetstuk).%New(##this))
+	;Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001PalletDraagstructuur).%New(##this, ..GeefPalletDraagstructuurProductId()))
+]]></Implementation>
+</Method>
+
 <Method name="GeefVerpakkingBuilderWikkel">
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.HFV1Verpakkingv001</ReturnType>
@@ -201,6 +210,33 @@
 	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.HFV1Verpakkingv001).%New(##this, KartonSpecificatie)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefPalletDraagstructuurProductId">
+<Private>1</Private>
+<ReturnType>TECH.Integer</ReturnType>
+<Implementation><![CDATA[
+	#dim ProductId As TECH.Integer
+	#dim LadeHoogte As DOM.PM.enu.TAORLadeHoogte = ..IngegevenKenmerken.LadeHoogte
+	#dim IsBinnenLade As %Boolean = ..IngegevenKenmerken.IsBinnenlade
+	
+	Do ##class(Tools.Wlip).%New(238).String(LadeHoogte)
+	Do ##class(Tools.Wlip).%New(238).String(IsBinnenLade)
+	
+	If ( (IsBinnenLade && (LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C())) || (LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).F())) {
+		Set ProductId = 2498444
+	} ElseIf ( (IsBinnenLade && (LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).K())) || (LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).C())) {
+		Set ProductId = 2498445
+	} ElseIf ( (IsBinnenLade && (LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).M())) || (LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).K())) {
+		Set ProductId = 2498446
+	} ElseIf ( (IsBinnenLade && (LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).N())) || (LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).N()) || (LadeHoogte = ##class(DOM.PM.enu.TAORLadeHoogte).M())) {
+		Set ProductId = 2498447
+	} Else {
+		//TODo Smijt exception	
+	}
+	
+	Quit ProductId
+]]></Implementation>
+</Method>
 </Class>