Index: AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml
===================================================================
diff -u -r37804 -r37805
--- AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml	(.../CustomerConverter.cls.xml)	(revision 37804)
+++ AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml	(.../CustomerConverter.cls.xml)	(revision 37805)
@@ -29,10 +29,22 @@
 <Implementation><![CDATA[
 	#dim Partij As DOM.PARTIJ.Partij = ..PartijAPI.GeefPartij(KlantId)
 	#dim Klant As DOM.VKP.VanHoeckeKlant = ..VerkoopAPI.GeefKlant(KlantId)
-	Set Formatter = ##class(AX.common.impl.Formatter).%New()
 	
 	Set Customer = ##class(AXBizTalk.Customer).%New()
 	
+	Do ..ConvertAccountInformatie(Partij, Klant, Customer)
+	Do ..ConvertAdminSegmentering(Partij, Klant, Customer)
+	
+	Quit Customer
+]]></Implementation>
+</Method>
+
+<Method name="ConvertAccountInformatie">
+<FormalSpec><![CDATA[Partij:DOM.PARTIJ.Partij,Klant:DOM.VKP.VanHoeckeKlant,&Customer:AXBizTalk.Customer]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Formatter = ##class(AX.common.impl.Formatter).%New()
+	
 	Set Customer.Klantnummer = Partij.GeefID()
 	Set Customer.Naam = Formatter.FormatPartyName(Partij,160)
 	Set Customer.Toenaam = $Extract(Partij.GeefToenaam(),1,50)
@@ -44,10 +56,6 @@
 	Set Customer.Fax = Partij.GeefTelefax()
 	Set Customer.VerkortNummer = Partij.GeefVerkortNummer()
 	Set Customer.Email = Partij.GeefEmail()
-	
-	Do ..ConvertAdminSegmentering(Partij, Klant, Customer)
-	
-	Quit Customer
 ]]></Implementation>
 </Method>