Index: AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml
===================================================================
diff -u -r47120 -r47140
--- AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml	(.../CustomerInConverter.cls.xml)	(revision 47120)
+++ AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml	(.../CustomerInConverter.cls.xml)	(revision 47140)
@@ -3,19 +3,31 @@
 <Class name="AXimpl.Dynamics.CustomerIn.Converter.CustomerInConverter">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="AxToAdminUtils">
+<Type>AXimpl.AxToAdminUtils</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="PartijApi">
+<Type>DOM.PARTIJ.PartijAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="VerkoopApi">
 <Type>DOM.VKP.VerkoopAPI</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>VerkoopApi:DOM.VKP.VerkoopAPI</FormalSpec>
+<FormalSpec>PartijApi:DOM.PARTIJ.PartijAPI,VerkoopApi:DOM.VKP.VerkoopAPI</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	Set ..PartijApi = $$$Inject(PartijApi,##class(DOM.DomeinContext).Instance().GeefPartijAPI())
 	Set ..VerkoopApi = $$$Inject(VerkoopApi,##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
+	Set ..AxToAdminUtils = ##class(AXimpl.AxToAdminUtils).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -27,7 +39,7 @@
 	Set AxdEntityCustIterator = ##class(TECH.ListIterator).%New(CustOutQuery.Cust)
 	While AxdEntityCustIterator.HasNext() {
 		#dim Cust as AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = AxdEntityCustIterator.Next()
-		#dim KlantId As %String = "K||"_##class(TECH.StringUtils).LeftTrim(Cust.CustAccount,"0")
+		#dim KlantId As %String = ..AxToAdminUtils.ConvertCustomerID(Cust.CustAccount)
 		
 		If (..VerkoopApi.BestaatKlant(KlantId)) {
 			Do ..UpdateKlant(Cust, KlantId)
@@ -41,7 +53,10 @@
 <Method name="UpdateKlant">
 <FormalSpec>Cust:AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust,KlantId:%String</FormalSpec>
 <Private>1</Private>
-<Implementation><![CDATA[	#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopApi.GeefKlant(KlantId)
+<Implementation><![CDATA[
+	#dim Klant As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(KlantId)
+	
+	;Do Klant.ZetNaam(Cust.Name)
 ]]></Implementation>
 </Method>