Index: DOM/PM/Maatwerk/Lade/impl/ExtremaBreedteBepaler/Maximum.cls.xml
===================================================================
diff -u -r29572 -r32255
--- DOM/PM/Maatwerk/Lade/impl/ExtremaBreedteBepaler/Maximum.cls.xml	(.../Maximum.cls.xml)	(revision 29572)
+++ DOM/PM/Maatwerk/Lade/impl/ExtremaBreedteBepaler/Maximum.cls.xml	(.../Maximum.cls.xml)	(revision 32255)
@@ -6,35 +6,49 @@
 <Method name="VerwerkLBXKenmerken">
 <FormalSpec>LBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
 <Implementation><![CDATA[
-	do ..ZetDefault(1430)
-	do ..IndienOk($$$KeyValuePair("IsBinnenlade",$$$true)).BeperkBreedteTot(1168) ; Is bepaald door de maximale lengte van een frontstuk 
-	do ..IndienOk($$$KeyValuePair("RugWandMateriaal",##class(DOM.PM.enu.LBXRugWandMateriaal).Staal())).BeperkBreedteTot(1168) ; Is bepaald door de maximale lengte van een stalen rug
-	do ..IndienOk($$$KeyValuePair("VerpakkingType",##class(DOM.PM.enu.LBXVerpakkingType).VHoss())).BeperkBreedteTot(1168) ; Is bepaald door de maximum breedte van een vhoss
-	do ..IndienOk($$$KeyValuePair("GUIKenmerken.HeeftDwarsverdeling",$$$True)).BeperkBreedteTot(1168) ; Is bepaald door de maximum breedte van een dwarsreling
-	do ..IndienOk($$$KeyValuePair("GeleiderTechnologie", ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION())).BeperkBreedteTot(1368)
+	#dim Enum As DOM.PM.Maatwerk.LBX.impl.BaseEnums = ##class(DOM.PM.Maatwerk.LBX.impl.BaseEnums).%New()
+	
+	#define MaximumLengteFrontstuk 1168
+	#define MaximumLengteStalenRug 1168
+	#define MaximumBreedteVhoss 1168
+	#define MaximumBreedteDwarsreling 1168
+
+	Do ..ZetDefault(1430)
+	
+	Do ..IndienOk($$$KeyValuePair(Enum.KenmerkNaam.IsBinnenlade, $$$True)).BeperkBreedteTot($$$MaximumLengteFrontstuk)
+	Do ..IndienOk($$$KeyValuePair(Enum.KenmerkNaam.RugWandMateriaal, Enum.RugWandMateriaal.Staal)).BeperkBreedteTot($$$MaximumLengteStalenRug)
+	Do ..IndienOk($$$KeyValuePair(Enum.KenmerkNaam.VerpakkingType, Enum.VerpakkingType.VHoss)).BeperkBreedteTot($$$MaximumBreedteVhoss)
+	Do ..IndienOk($$$KeyValuePair("GUIKenmerken.HeeftDwarsverdeling", $$$True)).BeperkBreedteTot($$$MaximumBreedteDwarsreling)
+	Do ..IndienOk($$$KeyValuePair(Enum.KenmerkNaam.GeleiderTechnologie, Enum.GeleiderTechnologie.TIPONBLUMOTION)).BeperkBreedteTot(1368)
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkTAORKenmerken">
 <FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
 <Implementation><![CDATA[
-	do ..ZetDefault(1468)
-	do ..IndienOk($$$KeyValuePair("HeeftZijstabilisering", $$$True)).BeperkBreedteTot(1433)
-	do ..IndienOk($$$KeyValuePair("VerpakkingType",##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1())).BeperkBreedteTot(1168)   ; Is bepaald door de maximum breedte van een flatpack ( = draagplaat - marge)
+	#dim Enum As DOM.PM.Maatwerk.TAX.impl.BaseEnums = ##class(DOM.PM.Maatwerk.TAX.impl.BaseEnums).%New()
+	
+	// MaximumBreedteFlatpack = draagplaat - marge
+	#define MaximumBreedteFlatpack 1168 
+	
+	Do ..ZetDefault(1468)
+	
+	Do ..IndienOk($$$KeyValuePair(Enum.KenmerkNaam.HeeftZijstabilisering, $$$True)).BeperkBreedteTot(1433)
+	Do ..IndienOk($$$KeyValuePair(Enum.KenmerkNaam.VerpakkingType, Enum.VerpakkingType.FlatpackV1)).BeperkBreedteTot($$$MaximumBreedteFlatpack)
 ]]></Implementation>
 </Method>
 
 <Method name="ZetDefault">
 <FormalSpec>Default:%Integer</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	set ..Breedte = Default
+<Implementation><![CDATA[	Set ..Breedte = Default
 ]]></Implementation>
 </Method>
 
 <Method name="BeperkBreedteTot">
 <FormalSpec>Waarde:%Integer</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	if ..GeldigeVoorwaarde && ( Waarde < ..Breedte ) set ..Breedte = Waarde
+<Implementation><![CDATA[	Set:(..GeldigeVoorwaarde && (Waarde < ..Breedte)) ..Breedte = Waarde
 ]]></Implementation>
 </Method>
 </Class>
Index: DOM/PM/Maatwerk/Lade/impl/ExtremaBreedteBepaler/Minimum.cls.xml
===================================================================
diff -u -r32155 -r32255
--- DOM/PM/Maatwerk/Lade/impl/ExtremaBreedteBepaler/Minimum.cls.xml	(.../Minimum.cls.xml)	(revision 32155)
+++ DOM/PM/Maatwerk/Lade/impl/ExtremaBreedteBepaler/Minimum.cls.xml	(.../Minimum.cls.xml)	(revision 32255)
@@ -6,15 +6,17 @@
 <Method name="VerwerkLBXKenmerken">
 <FormalSpec>LBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
 <Implementation><![CDATA[
-	set ..Breedte = 237
-	If ..IngegevenKenmerkenTypeAPI.IsSpoelbaklade(LBXKenmerken) {
+	Set ..Breedte = 237
+	
+	If (..IngegevenKenmerkenTypeAPI.IsSpoelbaklade(LBXKenmerken)) {
 		Set ..Breedte = 350
-	} ElseIf ..IngegevenKenmerkenTypeAPI.IsSifonlade(LBXKenmerken) {
-		Set UitsparingHelper = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingHelper).%New()
+	} ElseIf (..IngegevenKenmerkenTypeAPI.IsSifonlade(LBXKenmerken)) {
+		#dim UitsparingHelper As DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingHelper = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingHelper).%New()
 		#dim UitsparingData As DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData = LBXKenmerken.UitsparingData
-			
 		#dim Minimum As %Integer = 300
+		
 		Set Minimum = Minimum + ##class(TECH.Math).Max(UitsparingHelper.GeefBreedteUitsparingZ1(UitsparingData), 150)
+		
 		If (LBXKenmerken.UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel()) {
 			Set Minimum = Minimum + 100
 			Set Minimum = Minimum +  ##class(TECH.Math).Max(UitsparingHelper.GeefBreedteUitsparingZ2(UitsparingData), 150)
@@ -28,15 +30,20 @@
 <Method name="VerwerkTAORKenmerken">
 <FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
 <Implementation><![CDATA[
-	set ..Breedte = 212
-	do ..IndienOk($$$KeyValuePair("IsBinnenlade",$$$true)).BeperkBreedteTot(227)   ; Is bepaald door "Beperking EKO - kleine freesmachine"; op termijn moet dit wel opgelost worden.
+	#dim Enum As DOM.PM.Maatwerk.TAX.impl.BaseEnums = ##class(DOM.PM.Maatwerk.TAX.impl.BaseEnums).%New()
+	
+	#define MinimumBreedteKleineFreesmachineEKO 227
+	
+	Set ..Breedte = 212
+	
+	Do ..IndienOk($$$KeyValuePair(Enum.KenmerkNaam.IsBinnenlade, $$$True)).BeperkBreedteTot($$$MinimumBreedteKleineFreesmachineEKO)
 ]]></Implementation>
 </Method>
 
 <Method name="BeperkBreedteTot">
 <FormalSpec>Waarde:%Integer</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	if ..GeldigeVoorwaarde && ( Waarde > ..Breedte ) set ..Breedte = Waarde
+<Implementation><![CDATA[	Set:(..GeldigeVoorwaarde && (Waarde > ..Breedte)) ..Breedte = Waarde
 ]]></Implementation>
 </Method>
 </Class>