Index: AX/common/impl/Formatter.cls.xml
===================================================================
diff -u -r34987 -r35212
--- AX/common/impl/Formatter.cls.xml	(.../Formatter.cls.xml)	(revision 34987)
+++ AX/common/impl/Formatter.cls.xml	(.../Formatter.cls.xml)	(revision 35212)
@@ -141,7 +141,7 @@
 <Implementation><![CDATA[
 	#dim Name As %String = $$$Trim(Partij.GeefNaam())_$$$IfLength($$$Trim(Partij.GeefToenaam())," ","")
 	set:##class(APPS.common.enu.JuridischeVorm).IsValid(Partij.GeefAanspreking()) Name = Name _ $$$IfLength(Partij.GeefAanspreking()," ","")
-	quit $$$Trim(##class(TECH.StringUtils).Replace(Name,";"," "))
+	quit $Extract($$$Trim(##class(TECH.StringUtils).Replace(Name,";"," ")),1,60)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml
===================================================================
diff -u -r35206 -r35212
--- vhUnitTest/AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 35206)
+++ vhUnitTest/AX/Uitgaand/VKP/VanHoeckeKlant/impl/AifConverter.cls.xml	(.../AifConverter.cls.xml)	(revision 35212)
@@ -99,6 +99,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Naam variaties - Klantnaam afbreken op 60">
+<Implementation><![CDATA[
+	do ..Partij.IndienMethodCall("GeefNaam").DanReturn("Een zeer lange klantnaam van meer dan 60 karakters lang die afgekapt dient te worden")
+	do ..Partij.IndienMethodCall("GeefToenaam").DanReturn("")
+	
+	#dim AxKlant As AXaif.Customer.AxdCustomer = ..ConvertToAxdCustomer()
+	
+	#dim CustTable As AXaif.Customer.AxdEntityCustTable = AxKlant.CustTable.GetAt(1)
+	#dim Party As AXaif.Customer.AxdEntityDirPartyDirOrganization = CustTable.DirParty.GetAt(1)
+	
+	do $$$AssertEquals(Party.Name,"Een zeer lange klantnaam van meer dan 60 karakters lang die ")
+	do $$$AssertEquals(Party.OrganizationName.GetAt(1).Name,"Een zeer lange klantnaam van meer dan 60 karakters lang die ")
+	do $$$AssertEquals(Party.DirPartyPostalAddressView.GetAt(1).LocationName,"Een zeer lange klantnaam van meer dan 60 karakters lang die ")
+]]></Implementation>
+</Method>
+
 <Method name="Test: Naam variaties - Een naam en een toenaam worden geconcateneerd">
 <Implementation><![CDATA[
 	do ..Partij.IndienMethodCall("GeefNaam").DanReturn("Klantnaam")