Index: Prod/GADef/emKadBeslag.cls.xml
===================================================================
diff -u -r55028 -r55029
--- Prod/GADef/emKadBeslag.cls.xml	(.../emKadBeslag.cls.xml)	(revision 55028)
+++ Prod/GADef/emKadBeslag.cls.xml	(.../emKadBeslag.cls.xml)	(revision 55029)
@@ -62,7 +62,7 @@
 </Property>
 
 <Property name="PositieParameters">
-<Type>TECH.KeyValue.UniqueList</Type>
+<Type>%ArrayOfDataTypes</Type>
 <Private>1</Private>
 </Property>
 
@@ -105,28 +105,15 @@
 <Method name="ZetPositieParameter">
 <FormalSpec>ParamNaam:%String,Waarde:%CacheString</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[
-	#dim KeyValuePair As TECH.KeyValuePair = ..PositieParameters.FindByKey(ParamNaam)
-	If $IsObject(KeyValuePair) {
-		Set KeyValuePair.Value = Waarde
-	}
-	Else {
-		Do ..PositieParameters.InsertKeyValue(ParamNaam, Waarde)
-	}
+<Implementation><![CDATA[	Do ..PositieParameters.SetAt(Waarde, ParamNaam)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefPositieParameter">
 <FormalSpec>ParamNaam:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%CacheString</ReturnType>
-<Implementation><![CDATA[
-	#dim Waarde As %CacheString = ""
-	#dim KeyValuePair As TECH.KeyValuePair = ..PositieParameters.FindByKey(ParamNaam)
-	If $IsObject(KeyValuePair) {
-		Set Waarde = KeyValuePair.Value
-	}
-	Quit Waarde
+<Implementation><![CDATA[	Quit ..PositieParameters.GetAt(ParamNaam)
 ]]></Implementation>
 </Method>