Index: DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFPalletKartonvulstukv000.cls.xml
===================================================================
diff -u -r65063 -r65155
--- DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFPalletKartonvulstukv000.cls.xml	(.../HFPalletKartonvulstukv000.cls.xml)	(revision 65063)
+++ DOM/PM/Maatwerk/Calc/HF/impl/LBX/Builder/HFPalletKartonvulstukv000.cls.xml	(.../HFPalletKartonvulstukv000.cls.xml)	(revision 65155)
@@ -36,15 +36,12 @@
 <ReturnTypeParams>ELEMENTTYPE="DOM.PM.Maatwerk.Calc.HF.Halffab"</ReturnTypeParams>
 <Implementation><![CDATA[
 	Set Lijst = ##class(%ListOfObjects).%New()
-	#dim LadeDiepteKlein As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte270(), ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte300(), ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte350())
-	#dim LadeDiepteMiddel As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte400(), ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte450())
-	#dim LadeDiepteGroot As %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes(##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500(),##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte550(), ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte600(), ##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte650())
-	
-	If (##class(TECH.ListUtils).Contains(LadeDiepteKlein, IngegevenKenmerken.LadeDiepte)) {
+
+	If (##class(TECH.ListUtils).Contains(..GeefLijstLadeDieptesKleinerOfGelijkAan350(), IngegevenKenmerken.LadeDiepte)) {
 		Do Lijst.Insert(##class(DOM.PM.Maatwerk.Calc.HF.Halffab).%New(2718142))
-	} Elseif (##class(TECH.ListUtils).Contains(LadeDiepteMiddel, IngegevenKenmerken.LadeDiepte)) {
+	} ElseIf (##class(TECH.ListUtils).Contains(..GeefLijstLadeDieptesTussen350En500(), IngegevenKenmerken.LadeDiepte)) {
 		Do Lijst.Insert(##class(DOM.PM.Maatwerk.Calc.HF.Halffab).%New(2717789))
-	} Elseif (##class(TECH.ListUtils).Contains(LadeDiepteGroot, IngegevenKenmerken.LadeDiepte)) {
+	} ElseIf (##class(TECH.ListUtils).Contains(..GeefLijstLadeDieptesGroterOfGelijkAan500(), IngegevenKenmerken.LadeDiepte)) {
 		Do Lijst.Insert(##class(DOM.PM.Maatwerk.Calc.HF.Halffab).%New(1108497))
 	} Else {
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Ladediepte '"_IngegevenKenmerken.LadeDiepte_"' wordt niet ondersteund voor rol '"_..Rol_"'"))
@@ -53,6 +50,48 @@
 	Quit Lijst
 ]]></Implementation>
 </Method>
+
+<Method name="GeefLijstLadeDieptesKleinerOfGelijkAan350">
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set LadeDieptesKleinerOfGelijkAan350 = ##class(%ListOfDataTypes).%New()
+	
+	Do LadeDieptesKleinerOfGelijkAan350.Insert(##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte270())
+	Do LadeDieptesKleinerOfGelijkAan350.Insert(##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte300())
+	Do LadeDieptesKleinerOfGelijkAan350.Insert(##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte350())
+	
+	Quit LadeDieptesKleinerOfGelijkAan350
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijstLadeDieptesTussen350En500">
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set LadeDieptesTussen350En500 = ##class(%ListOfDataTypes).%New()
+	
+	Do LadeDieptesTussen350En500.Insert(##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte400())
+	Do LadeDieptesTussen350En500.Insert(##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte450())
+	
+	Quit LadeDieptesTussen350En500
+]]></Implementation>
+</Method>
+
+<Method name="GeefLijstLadeDieptesGroterOfGelijkAan500">
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	Set LadeDieptesGroterOfGelijkAan500 = ##class(%ListOfDataTypes).%New()
+	
+	Do LadeDieptesGroterOfGelijkAan500.Insert(##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte500())
+	Do LadeDieptesGroterOfGelijkAan500.Insert(##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte550())
+	Do LadeDieptesGroterOfGelijkAan500.Insert(##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte600())
+	Do LadeDieptesGroterOfGelijkAan500.Insert(##class(DOM.PM.enu.LBXLadeDiepte).LadeDiepte650())
+
+	Quit LadeDieptesGroterOfGelijkAan500
+]]></Implementation>
+</Method>
 </Class>