Index: AXimpl/AxToAdminUtils.cls.xml
===================================================================
diff -u -r49543 -r49753
--- AXimpl/AxToAdminUtils.cls.xml	(.../AxToAdminUtils.cls.xml)	(revision 49543)
+++ AXimpl/AxToAdminUtils.cls.xml	(.../AxToAdminUtils.cls.xml)	(revision 49753)
@@ -5,6 +5,23 @@
 Deze klasse dient om formattering uit te voeren en conversies te voorzien die geen data nodig hebben.</Description>
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Logger:vhLib.Logger</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..Logger = $$$Inject(Logger,##class(vhLib.Logger).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="ConvertCustomerID">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>KlantID:%String</FormalSpec>
@@ -281,6 +298,28 @@
 	Quit Result
 ]]></Implementation>
 </Method>
+
+<Method name="ConvertCustNameToNaamEnToenaam">
+<FormalSpec>Name:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Naam,Toenaam As %String
+	#dim Eerste28Karakters As %String = $Extract(Name,1,28)
+	If (($Length(Name) <= 28) || ($Extract(Name,29) = " ")) {
+		Set Naam = Eerste28Karakters
+		Set Toenaam = ##class(TECH.StringUtils).LeftTrim($Extract(Name,29,*))
+	} Else {
+		Set Naam = $Reverse($Extract($Reverse(Eerste28Karakters),$Find($Reverse(Eerste28Karakters)," "),*))
+		Set Toenaam = ##class(TECH.StringUtils).LeftTrim($Extract(Name,$Length(Naam)+1,*))
+	}
+	If ($Length(Toenaam) > 28) {
+		Do ..Logger.Warning("Klant synchronizatie AX - Admin","De maximale veldlengte voor Toenaam is 28. Lengte Toenaam voor '"_Name_"' is '"_$Length(Toenaam)_"'")
+		Set Toenaam = $Extract(Toenaam,1,28)
+	}
+	
+	Quit Naam_"||"_Toenaam
+]]></Implementation>
+</Method>
 </Class>