Index: AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenDixfConverter.cls.xml
===================================================================
diff -u -r48013 -r50647
--- AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenDixfConverter.cls.xml	(.../ExtArtOmschrKlantenDixfConverter.cls.xml)	(revision 48013)
+++ AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenDixfConverter.cls.xml	(.../ExtArtOmschrKlantenDixfConverter.cls.xml)	(revision 50647)
@@ -8,11 +8,6 @@
 <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>
@@ -21,7 +16,6 @@
 <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>
 </Method>
@@ -36,22 +30,40 @@
 	If ((..AxProductConvertor.IsSOPRInCache(ProductNummer)) && $$$Not(..AxProductConvertor.IsSOPRInAX(ProductNummer))) {
 		Set ProductNummer = ..AxProductConvertor.GeefVervangProductDoorSOPRInAX(ProductNummer)
 	}
-	#dim IdentNummer As %String = ##class(Prod.Product).%OpenId(ProductNummer).IdentNummer
+	#dim GenerischeRoutine As %String = ##class(Prod.Product).%OpenId(ProductNummer).GenerischeRoutine
 	
 	Set AxPakketOnderdeel = ##class(AXdixf.ExtArtOmschr.ExtArtOmschr).%New()
-	Set AxPakketOnderdeel.ADUDefault = $$$If(..KlantNrIdentNummerCombinatieList.Find(KlantNr_IdentNummer),"","1")
+	Set AxPakketOnderdeel.AdminProductNummer = ProductNummer
+	Set AxPakketOnderdeel.ADUDefault = "1"
 	Set AxPakketOnderdeel.CustVendRelation = ##class(TECH.StringUtils).AddLeadingChar(KlantNr,"0",5)
 	Set AxPakketOnderdeel.ExternalItemID = ##class(DOM.PM.impl.DataM.Pakket).%OpenId(PakketOnderdeel.PakketOnderdeel.PakketNummer).Naam
 	Set AxPakketOnderdeel.ExternalItemTXT = ""
-	Set AxPakketOnderdeel.InventDimID = "AllBlank"
-	Set AxPakketOnderdeel.ItemId = IdentNummer
+	Set AxPakketOnderdeel.InventDimID = ""
+	Set AxPakketOnderdeel.ItemId = ..GeefIdentNummerVanGenerischeProduct(+GenerischeRoutine)
 	Set AxPakketOnderdeel.ModuleType = "04"
 	
-	Do ..KlantNrIdentNummerCombinatieList.Insert(KlantNr_IdentNummer)
-	
 	Quit AxPakketOnderdeel
 ]]></Implementation>
 </Method>
+
+<Method name="GeefIdentNummerVanGenerischeProduct">
+<FormalSpec>GenerischeRoutine:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim IdentNummerGenerischProduct As %String = ""
+	
+	If $$$Not(GenerischeRoutine = 0) {
+		try {
+			Set GenerischProduct = ##class(AX.Uitgaand.PM.Product.impl.Product).%New(GenerischeRoutine)	
+			Set IdentNummerGenerischProduct = GenerischProduct.Basis.IdentNummer
+		} catch {
+			#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		}
+	}
+	
+	Quit IdentNummerGenerischProduct
+]]></Implementation>
+</Method>
 </Class>