Index: AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenDixfConverter.cls.xml
===================================================================
diff -u -r46089 -r46091
--- AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenDixfConverter.cls.xml	(.../ExtArtOmschrKlantenDixfConverter.cls.xml)	(revision 46089)
+++ AX/Uitgaand/PM/ExtArtOmschrKlanten/impl/ExtArtOmschrKlantenDixfConverter.cls.xml	(.../ExtArtOmschrKlantenDixfConverter.cls.xml)	(revision 46091)
@@ -3,26 +3,17 @@
 <Class name="AX.Uitgaand.PM.ExtArtOmschrKlanten.impl.ExtArtOmschrKlantenDixfConverter">
 <Super>TECH.RegisteredObject</Super>
 
-<Method name="%OnNew">
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[	Quit $$$OK
-]]></Implementation>
-</Method>
-
 <Method name="Convert">
 <FormalSpec>PakketOnderdeel:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
 <ReturnType>AXdixf.ExtArtOmschr.ExtArtOmschr</ReturnType>
 <Implementation><![CDATA[
 	Set AxPakketOnderdeel = ##class(AXdixf.ExtArtOmschr.ExtArtOmschr).%New()
 	Set AxPakketOnderdeel.ADUDefault = "1"
-	Set AxPakketOnderdeel.CustVendRelation = ..BepaalCustVendRelation(PakketOnderdeel)
-	Set AxPakketOnderdeel.ExternalItemID = ..BepaalExternalItemID(PakketOnderdeel)
+	Set AxPakketOnderdeel.CustVendRelation = ##class(TECH.StringUtils).AddLeadingChar(##class(DOM.PM.impl.DataM.Pakket).%OpenId(PakketOnderdeel.PakketOnderdeel.PakketNummer).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 = ..BepaalItemId(PakketOnderdeel)
+	Set AxPakketOnderdeel.ItemId = ##class(Prod.Product).%OpenId(PakketOnderdeel.PakketOnderdeel.ProductNr).IdentNummer
 	Set AxPakketOnderdeel.ModuleType = "04"
 	
 	// OPGELET: Volgende "Set AxProduct"-lijnen zijn niet nodig voor import in AX, maar kunnen gebruikt worden ter controle:
@@ -35,50 +26,6 @@
 	Quit AxPakketOnderdeel
 ]]></Implementation>
 </Method>
-
-<Method name="BepaalCustVendRelation">
-<FormalSpec>PakketOnderdeel:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim CustVendRelation As %String
-	#dim KlantNr As %Integer
-	#dim PakketNummer As %String = PakketOnderdeel.PakketOnderdeel.PakketNummer
-	
-	Set KlantNr = ##class(DOM.PM.impl.DataM.Pakket).%OpenId(PakketNummer).KlantNr
-	Set CustVendRelation = ##class(TECH.StringUtils).AddLeadingChar(KlantNr,"0",5)
-
-	Quit CustVendRelation
-]]></Implementation>
-</Method>
-
-<Method name="BepaalExternalItemID">
-<FormalSpec>PakketOnderdeel:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim ExternalItemID As %String
-	#dim PakketNummer As %String = PakketOnderdeel.PakketOnderdeel.PakketNummer
-	
-	Set ExternalItemID = ##class(DOM.PM.impl.DataM.Pakket).%OpenId(PakketNummer).Naam
-	
-	Quit ExternalItemID
-]]></Implementation>
-</Method>
-
-<Method name="BepaalItemId">
-<FormalSpec>PakketOnderdeel:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#dim ItemId As %String
-	#dim ProductNr As %String = PakketOnderdeel.PakketOnderdeel.ProductNr
-	
-	Set ItemId = ##class(Prod.Product).%OpenId(ProductNr).IdentNummer
-	
-	Quit ItemId
-]]></Implementation>
-</Method>
 </Class>