Index: DOM/PM/impl/DataM/DataMProductIDIterator.cls.xml
===================================================================
diff -u -r29059 -r37142
--- DOM/PM/impl/DataM/DataMProductIDIterator.cls.xml	(.../DataMProductIDIterator.cls.xml)	(revision 29059)
+++ DOM/PM/impl/DataM/DataMProductIDIterator.cls.xml	(.../DataMProductIDIterator.cls.xml)	(revision 37142)
@@ -11,6 +11,12 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Key">
+<Type>%Integer</Type>
+<InitialExpression>0</InitialExpression>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -26,6 +32,7 @@
 <ReturnType>%CacheString</ReturnType>
 <Implementation><![CDATA[
 	#dim HuidigProductID As %String = ..VolgendProductID
+	Set ..Key = ..Key + 1
 	Do ..BepaalVolgendProductID()
 	Quit HuidigProductID
 ]]></Implementation>
@@ -42,6 +49,12 @@
 <Implementation><![CDATA[	Quit ..VolgendProductID '= ""
 ]]></Implementation>
 </Method>
+
+<Method name="Key">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Key
+]]></Implementation>
+</Method>
 </Class>