Index: AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenDixfConverter.cls.xml
===================================================================
diff -u -r46091 -r46532
--- AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenDixfConverter.cls.xml	(.../ExtArtOmschrKlantenDixfConverter.cls.xml)	(revision 46091)
+++ AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenDixfConverter.cls.xml	(.../ExtArtOmschrKlantenDixfConverter.cls.xml)	(revision 46532)
@@ -3,17 +3,36 @@
 <Class name="AX.Uitgaand.PM.ExtArtOmschrKlanten.impl.ExtArtOmschrKlantenDixfConverter">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="KlantNrIdentNummerCombinatieList">
+<Type>%ListOfDataTypes</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..KlantNrIdentNummerCombinatieList = ##class(%ListOfDataTypes).%New()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="Convert">
 <FormalSpec>PakketOnderdeel:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
 <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
+	
 	Set AxPakketOnderdeel = ##class(AXdixf.ExtArtOmschr.ExtArtOmschr).%New()
-	Set AxPakketOnderdeel.ADUDefault = "1"
-	Set AxPakketOnderdeel.CustVendRelation = ##class(TECH.StringUtils).AddLeadingChar(##class(DOM.PM.impl.DataM.Pakket).%OpenId(PakketOnderdeel.PakketOnderdeel.PakketNummer).KlantNr,"0",5)
+	Set AxPakketOnderdeel.ADUDefault = $$$If(..KlantNrIdentNummerCombinatieList.Find(KlantNr_IdentNummer),"","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 = ##class(Prod.Product).%OpenId(PakketOnderdeel.PakketOnderdeel.ProductNr).IdentNummer
+	Set AxPakketOnderdeel.ItemId = IdentNummer
 	Set AxPakketOnderdeel.ModuleType = "04"
 	
 	// OPGELET: Volgende "Set AxProduct"-lijnen zijn niet nodig voor import in AX, maar kunnen gebruikt worden ter controle:
@@ -22,7 +41,9 @@
 	Set AxPakketOnderdeel.AantalProducten = PakketOnderdeel.PakketOnderdeel.Aantal
 	Set AxPakketOnderdeel.KortTekst = PakketOnderdeel.Basis.KortTekst
 	Set AxPakketOnderdeel.GenType = PakketOnderdeel.Basis.GenType
-
+	
+	Do ..KlantNrIdentNummerCombinatieList.Insert(KlantNr_IdentNummer)
+	
 	Quit AxPakketOnderdeel
 ]]></Implementation>
 </Method>