Index: AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml
===================================================================
diff -u -r50030 -r50040
--- AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml	(.../CustomerInConverter.cls.xml)	(revision 50030)
+++ AXimpl/Dynamics/CustomerIn/Converter/CustomerInConverter.cls.xml	(.../CustomerInConverter.cls.xml)	(revision 50040)
@@ -76,10 +76,11 @@
 <Implementation><![CDATA[
 	#dim KlantPartij As DOM.PARTIJ.Partij = ..PartijApi.GeefPartij(KlantId)
 	#Dim Klant as DOM.VKP.VanHoeckeKlant = ..VerkoopApi.GeefKlant(KlantId)
+	#dim NaamToenaamEnAanspreking As %String = ..AxToAdminUtils.ConvertCustNameToNaamToenaamEnAanspreking(Cust.Name)
 	
-	Do KlantPartij.ZetNaam($Piece(..AxToAdminUtils.ConvertCustNameToNaamToenaamEnAanspreking(Cust.Name),"||",1))
-	Do KlantPartij.ZetToenaam($Piece(..AxToAdminUtils.ConvertCustNameToNaamToenaamEnAanspreking(Cust.Name),"||",2))
-	Do KlantPartij.ZetAanspreking($Piece(..AxToAdminUtils.ConvertCustNameToNaamToenaamEnAanspreking(Cust.Name),"||",3))
+	Do KlantPartij.ZetNaam($Piece(NaamToenaamEnAanspreking,"||",1))
+	Do KlantPartij.ZetToenaam($Piece(NaamToenaamEnAanspreking,"||",2))
+	Do KlantPartij.ZetAanspreking($Piece(NaamToenaamEnAanspreking,"||",3))
 	Do KlantPartij.ZetTaal(..AxToAdminUtils.ConvertLanguageId(Cust.LanguageId))
 	Do KlantPartij.ZetBTWNr(..GeefBTWNummer(Cust))
 	Do KlantPartij.ZetTelefoon1(..GeefTelefoon1(Cust))
@@ -103,11 +104,12 @@
 	Set dtoKlant = ##class(DOM.common.dto.Partij).%New()
 	; nog te bepalen -> mss een template in de data ipv in de code
 	#dim TypeTemplateKlant as DOM.CRM.enu.TypeTemplateKlant = ##class(DOM.CRM.enu.TypeTemplateKlant).Onderneming() ; Consument/Medewerker
+	#dim NaamToenaamEnAanspreking As %String = ..AxToAdminUtils.ConvertCustNameToNaamToenaamEnAanspreking(Cust.Name)
 		
 	Set dtoKlant.KlantNummer = + Cust.CustAccount
-	Set dtoKlant.KlantNaam = $Piece(..AxToAdminUtils.ConvertCustNameToNaamToenaamEnAanspreking(Cust.Name),"||",1)
-	Set dtoKlant.Toenaam = $Piece(..AxToAdminUtils.ConvertCustNameToNaamToenaamEnAanspreking(Cust.Name),"||",2)
-	Set dtoKlant.Aanspreking = $Piece(..AxToAdminUtils.ConvertCustNameToNaamToenaamEnAanspreking(Cust.Name),"||",3)
+	Set dtoKlant.KlantNaam = $Piece(NaamToenaamEnAanspreking,"||",1)
+	Set dtoKlant.Toenaam = $Piece(NaamToenaamEnAanspreking,"||",2)
+	Set dtoKlant.Aanspreking = $Piece(NaamToenaamEnAanspreking,"||",3)
 	Set dtoKlant.Taal = ..AxToAdminUtils.ConvertLanguageId(Cust.LanguageId)
 	Set dtoKlant.Telefoon1 = ..GeefTelefoon1(Cust)
 	Set dtoKlant.Fax = ..GeefFax(Cust) ; wordt blijkbaar niet in service gebruikt !!!!!