Index: AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenDixfConverter.cls.xml
===================================================================
diff -u -r46532 -r47520
--- AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenDixfConverter.cls.xml	(.../ExtArtOmschrKlantenDixfConverter.cls.xml)	(revision 46532)
+++ AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenDixfConverter.cls.xml	(.../ExtArtOmschrKlantenDixfConverter.cls.xml)	(revision 47520)
@@ -3,17 +3,24 @@
 <Class name="AX.Uitgaand.PM.ExtArtOmschrKlanten.impl.ExtArtOmschrKlantenDixfConverter">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="AxProductConvertor">
+<Type>AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="KlantNrIdentNummerCombinatieList">
 <Type>%ListOfDataTypes</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
+<FormalSpec>AxProductConvertor:AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	Set ..AxProductConvertor = $$$Inject(AxProductConvertor,##class(AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New())
 	Set ..KlantNrIdentNummerCombinatieList = ##class(%ListOfDataTypes).%New()
 	Quit $$$OK
 ]]></Implementation>
@@ -24,8 +31,13 @@
 <ReturnType>AXdixf.ExtArtOmschr.ExtArtOmschr</ReturnType>
 <Implementation><![CDATA[
 	#dim KlantNr As %String = ##class(DOM.PM.impl.DataM.Pakket).%OpenId(PakketOnderdeel.PakketOnderdeel.PakketNummer).KlantNr
-	#dim IdentNummer As %String = ##class(Prod.Product).%OpenId(PakketOnderdeel.PakketOnderdeel.ProductNr).IdentNummer
 	
+	#dim ProductNummer As %Integer = PakketOnderdeel.PakketOnderdeel.ProductNr
+	If ((..AxProductConvertor.IsSOPRInCache(ProductNummer)) && $$$Not(..AxProductConvertor.IsSOPRInAX(ProductNummer))) {
+		Set ProductNummer = ..AxProductConvertor.GeefVervangProductDoorSOPRInAX(ProductNummer)
+	}
+	#dim IdentNummer As %String = ##class(Prod.Product).%OpenId(ProductNummer).IdentNummer
+	
 	Set AxPakketOnderdeel = ##class(AXdixf.ExtArtOmschr.ExtArtOmschr).%New()
 	Set AxPakketOnderdeel.ADUDefault = $$$If(..KlantNrIdentNummerCombinatieList.Find(KlantNr_IdentNummer),"","1")
 	Set AxPakketOnderdeel.CustVendRelation = ##class(TECH.StringUtils).AddLeadingChar(KlantNr,"0",5)
Index: AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenIterator.cls.xml
===================================================================
diff -u -r47258 -r47520
--- AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenIterator.cls.xml	(.../ExtArtOmschrKlantenIterator.cls.xml)	(revision 47258)
+++ AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenIterator.cls.xml	(.../ExtArtOmschrKlantenIterator.cls.xml)	(revision 47520)
@@ -20,6 +20,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="DynIterator">
+<Type>TECH.Iterator</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="QueryAPI">
 <Type>TECH.Query.QueryAPI</Type>
 <Private>1</Private>
@@ -51,6 +56,9 @@
 	Do ..AxEntiteitLogger.ResetLoggingAxEntiteit(..AxEntiteit, ..Vestiging)
 	Set ..QueryAPI = $$$Implementation(QueryAPI,##class(TECH.Context).Instance().GeefQueryAPI())
 	Do ..VoerUitQuery()
+	Set Filter = ##class(AX.Uitgaand.PM.ExtArtOmschrKlanten.impl.ExtArtOmschrKlantenIteratorFilter).%New()
+	Set ResultSetIterator = ##class(TECH.ResultSetIterator).%New(..ResultSet)
+	Set ..DynIterator = ##class(TECH.DynamicIterator).%New(ResultSetIterator,,Filter)
 	Set ..Converter = ##class(AX.Uitgaand.PM.ExtArtOmschrKlanten.impl.ExtArtOmschrKlantenDixfConverter).%New()
 	Quit $$$OK
 ]]></Implementation>
@@ -74,11 +82,12 @@
 <Implementation><![CDATA[
 	#dim TeOutputtenPakketGevonden As %Boolean = 0
 	
-	while ( $$$Not(TeOutputtenPakketGevonden) && (..ResultSet.Next() > 0) )
+	while ( $$$Not(TeOutputtenPakketGevonden) && (..DynIterator.HasNext()) )
 	 {
 		#dim MoetUitgeslotenWorden As %Boolean = $$$False
-	
-		Set ..PakketOnderdeel = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(..ResultSet.Data("ProductNr"),..ResultSet.GetData(1))
+		
+		#dim ResultSet As TECH.ResultSet = ..DynIterator.Next()
+		Set ..PakketOnderdeel = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(ResultSet.Data("ProductNr"),ResultSet.GetData(1))
 		#dim PakketNaam As %String = ..BepaalPakketNaam(..PakketOnderdeel)
 		#dim KortTekst As %String = ..BepaalKortTekst(..PakketOnderdeel)
 		#dim GenType As %String = ..BepaalGenType(..PakketOnderdeel)
Index: AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenIteratorFilter.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenIteratorFilter.cls.xml	(revision 0)
+++ AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenIteratorFilter.cls.xml	(revision 47520)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.PM.ExtArtOmschrKlanten.impl.ExtArtOmschrKlantenIteratorFilter">
+<Super>TECH.RegisteredObject,TECH.Filter</Super>
+
+<Method name="IsValid">
+<FormalSpec>Item:TECH.ResultSet</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit $$$True
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>