Index: DOM/PM/Maatwerk/Lade/impl/ExtremaBreedteBepaler/Base.cls.xml
===================================================================
diff -u -r29059 -r29566
--- DOM/PM/Maatwerk/Lade/impl/ExtremaBreedteBepaler/Base.cls.xml	(.../Base.cls.xml)	(revision 29059)
+++ DOM/PM/Maatwerk/Lade/impl/ExtremaBreedteBepaler/Base.cls.xml	(.../Base.cls.xml)	(revision 29566)
@@ -53,18 +53,26 @@
 ]]></Implementation>
 </Method>
 
-<Method name="IndienVoorwaardeOk">
-<FormalSpec>Kenmerk:%String,Waarde:%String</FormalSpec>
+<Method name="IndienOk">
+<FormalSpec>KeyValuePair...:TECH.KeyValuePair</FormalSpec>
 <Private>1</Private>
 <ReturnType>DOM.PM.Maatwerk.Lade.impl.ExtremaBreedteBepaler</ReturnType>
 <Implementation><![CDATA[
-	If ##class(TECH.StringUtils).Contains(Kenmerk, ".") {
-		#dim KenmerkPropertyNaam As TECH.String = $Piece(Kenmerk,".",1)
-		#dim KenmerkPropertyWaarde As %Base = $property(..Kenmerken,KenmerkPropertyNaam)
-		#dim SubKenmerkPropertyNaam As TECH.String = $Piece(Kenmerk,".",2)
-		set ..GeldigeVoorwaarde = $property(KenmerkPropertyWaarde,SubKenmerkPropertyNaam) = Waarde
-	} Else {
-		set ..GeldigeVoorwaarde = $property(..Kenmerken,Kenmerk) = Waarde
+	set ..GeldigeVoorwaarde = $$$true
+	
+	set Iterator = ##class(TECH.ArrayOneDimIterator).%New(.KeyValuePair)
+	while Iterator.HasNext() {
+		#dim KeyValue As TECH.KeyValuePair = Iterator.Next()
+		#dim Kenmerk As TECH.String = KeyValue.Key
+		#dim Waarde As TECH.String = KeyValue.Value
+		If ##class(TECH.StringUtils).Contains(Kenmerk, ".") {
+			#dim KenmerkPropertyNaam As TECH.String = $Piece(Kenmerk,".",1)
+			#dim KenmerkPropertyWaarde As %Base = $property(..Kenmerken,KenmerkPropertyNaam)
+			#dim SubKenmerkPropertyNaam As TECH.String = $Piece(Kenmerk,".",2)
+			set:..GeldigeVoorwaarde ..GeldigeVoorwaarde = $property(KenmerkPropertyWaarde,SubKenmerkPropertyNaam) = Waarde
+		} Else {
+			set:..GeldigeVoorwaarde ..GeldigeVoorwaarde = $property(..Kenmerken,Kenmerk) = Waarde
+		}
 	}
 	quit $this
 ]]></Implementation>
Index: DOM/PM/Maatwerk/Lade/impl/ExtremaBreedteBepaler/Maximum.cls.xml
===================================================================
diff -u -r29553 -r29566
--- DOM/PM/Maatwerk/Lade/impl/ExtremaBreedteBepaler/Maximum.cls.xml	(.../Maximum.cls.xml)	(revision 29553)
+++ DOM/PM/Maatwerk/Lade/impl/ExtremaBreedteBepaler/Maximum.cls.xml	(.../Maximum.cls.xml)	(revision 29566)
@@ -7,22 +7,20 @@
 <FormalSpec>LBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
 <Implementation><![CDATA[
 	do ..ZetDefault(1430)
-	do ..IndienVoorwaardeOk("IsBinnenlade",$$$true).BeperkBreedteTot(1168) ; Is bepaald door de maximale lengte van een frontstuk 
-	do ..IndienVoorwaardeOk("RugWandMateriaal",##class(DOM.PM.enu.LBXRugWandMateriaal).Staal()).BeperkBreedteTot(1168) ; Is bepaald door de maximale lengte van een stalen rug
-	do ..IndienVoorwaardeOk("VerpakkingType",##class(DOM.PM.enu.LBXVerpakkingType).VHoss()).BeperkBreedteTot(1168) ; Is bepaald door de maximum breedte van een vhoss
-	do ..IndienVoorwaardeOk("GUIKenmerken.HeeftDwarsverdeling",$$$True).BeperkBreedteTot(1168) ; Is bepaald door de maximum breedte van een dwarsreling
-	do ..IndienVoorwaardeOk("GeleiderTechnologie", ##class(DOM.PM.enu.LBXGeleiderTechnologie).TIPONBLUMOTION()).BeperkBreedteTot(1368)
+	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)
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkTAORKenmerken">
 <FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
 <Implementation><![CDATA[
 	do ..ZetDefault(1468)
-	do ..IndienVoorwaardeOk("HeeftZijstabilisering", $$$True).BeperkBreedteTot(1433)
-	do ..IndienVoorwaardeOk("VerpakkingType",##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1()).BeperkBreedteTot(1200)   ; Is bepaald door de maximum breedte van een flatpack (draagplaat-marge)
-	#dim IsFlatpackV1 As %Boolean = ..GeldigeVoorwaarde   ; !!! Deze lijn moet onmiddellijk NA de FlatpackV1-voorwaarde blijven staan!!!   @MartijnV : niet verplaatsen hé!  :-P 
-	do:(IsFlatpackV1) ..IndienVoorwaardeOk("IsBinnenlade",$$$true).BeperkBreedteTot(1179)   ; indien FlatpackV1 dan is gemonteerd front van binnenlade het langste onderdeel (i.e. 21mm langer dan rug/bodem)
+	do ..IndienOk($$$KeyValuePair("HeeftZijstabilisering", $$$True)).BeperkBreedteTot(1433)
+	do ..IndienOk($$$KeyValuePair("VerpakkingType",##class(DOM.PM.enu.TAORVerpakkingType).FlatpackV1()),$$$KeyValuePair("IsBinnenlade",$$$true)).BeperkBreedteTot(1200)   ; Is bepaald door de maximum breedte van een flatpack (draagplaat-marge)
 ]]></Implementation>
 </Method>