Index: DOM/PM/impl/DataM/Pakket.cls.xml
===================================================================
diff -u -r47936 -r47977
--- DOM/PM/impl/DataM/Pakket.cls.xml	(.../Pakket.cls.xml)	(revision 47936)
+++ DOM/PM/impl/DataM/Pakket.cls.xml	(.../Pakket.cls.xml)	(revision 47977)
@@ -9,7 +9,7 @@
 <Property name="KlantNr">
 <Type>%String</Type>
 <Calculated>1</Calculated>
-<SqlComputeCode> set {*} = ##class(DOM.PM.impl.DataM.Pakket).%OpenId({ID}).KlantNr</SqlComputeCode>
+<SqlComputeCode> set {*} = ##class(DOM.PM.impl.DataM.Pakket).%OpenId({ID},0).KlantNr</SqlComputeCode>
 <SqlComputed>1</SqlComputed>
 </Property>
 
Index: DOM/PM/impl/DataM/PakketOnderdeel.cls.xml
===================================================================
diff -u -r47936 -r47977
--- DOM/PM/impl/DataM/PakketOnderdeel.cls.xml	(.../PakketOnderdeel.cls.xml)	(revision 47936)
+++ DOM/PM/impl/DataM/PakketOnderdeel.cls.xml	(.../PakketOnderdeel.cls.xml)	(revision 47977)
@@ -9,7 +9,7 @@
 <Property name="PakketNummer">
 <Type>%String</Type>
 <Calculated>1</Calculated>
-<SqlComputeCode> set {*} = ##class(DOM.PM.impl.DataM.PakketOnderdeel).%OpenId({ID}).PakketNummer</SqlComputeCode>
+<SqlComputeCode> set {*} = ##class(DOM.PM.impl.DataM.PakketOnderdeel).%OpenId({ID},0).PakketNummer</SqlComputeCode>
 <SqlComputed>1</SqlComputed>
 </Property>
 
@@ -39,7 +39,7 @@
 <Property name="ProductNr">
 <Type>%String</Type>
 <Calculated>1</Calculated>
-<SqlComputeCode> set {*} = ##class(DOM.PM.impl.DataM.PakketOnderdeel).%OpenId({ID}).ProductNr</SqlComputeCode>
+<SqlComputeCode> set {*} = ##class(DOM.PM.impl.DataM.PakketOnderdeel).%OpenId({ID},0).ProductNr</SqlComputeCode>
 <SqlComputed>1</SqlComputed>
 </Property>
 
Index: AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenIterator.cls.xml
===================================================================
diff -u -r47925 -r47977
--- AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenIterator.cls.xml	(.../ExtArtOmschrKlantenIterator.cls.xml)	(revision 47925)
+++ AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenIterator.cls.xml	(.../ExtArtOmschrKlantenIterator.cls.xml)	(revision 47977)
@@ -68,11 +68,11 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#Dim SqlStatement as %String
-	Set SqlStatement = "select ID, ProductNr from DOM_PM_impl_DataM.PakketOnderdeel "
-	_"WHERE ProductNr NOT IN (797700,1102922,1156079,785609,769387,830298,865318,865317,865329,865330,865327,1793108) " // Dit zijn de service-producten
-	_"AND PakketNummer IN (select PakketNummer from DOM_PM_impl_DataM.PakketOnderdeel "
-	/*_"where PakketNummer IN (1044,1171,5682,6703,14829,21093,21623,23276,26248,30886,50140,62755,62831) "*/ //Indien selectie nodig is
-	_"Group By PakketNummer Having sum (Aantal) = 1)"
+	Set SqlStatement = "select ID, Product from DOM_PM_impl_DataM.PakketOnderdeel "
+	_"WHERE Product NOT IN (797700,1102922,1156079,785609,769387,830298,865318,865317,865329,865330,865327,1793108) " // Dit zijn de service-producten
+	_"AND Pakket IN (select Pakket from DOM_PM_impl_DataM.PakketOnderdeel "
+	/*_"where Pakket IN (1044,1171,5682,6703,14829,21093,21623,23276,26248,30886,50140,62755,62831) "*/ //Indien selectie nodig is
+	_"Group By Pakket Having sum (Aantal) = 1)"
 	Set ..ResultSet = ..QueryAPI.GetResultSet(##class(TECH.DynamicQuery).%New(SqlStatement))
 ]]></Implementation>
 </Method>
@@ -87,7 +87,7 @@
 		#dim MoetUitgeslotenWorden As %Boolean = $$$False
 		
 		#dim ResultSet As TECH.ResultSet = ..DynIterator.Next()
-		Set ..PakketOnderdeel = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(ResultSet.Data("ProductNr"),ResultSet.GetData(1))
+		Set ..PakketOnderdeel = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(ResultSet.GetData(2),ResultSet.GetData(1))
 		#dim PakketNaam As %String = ..BepaalPakketNaam(..PakketOnderdeel)
 		#dim KortTekst As %String = ..BepaalKortTekst(..PakketOnderdeel)
 		#dim GenType As %String = ..BepaalGenType(..PakketOnderdeel)