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>