Index: AXimpl/AxToAdminUtils.cls.xml =================================================================== diff -u -r49753 -r49906 --- AXimpl/AxToAdminUtils.cls.xml (.../AxToAdminUtils.cls.xml) (revision 49753) +++ AXimpl/AxToAdminUtils.cls.xml (.../AxToAdminUtils.cls.xml) (revision 49906) @@ -299,25 +299,43 @@ ]]> - -Name:%String + +CustName:%String %String 1) { + #dim Laatste2Woorden As %String = $Piece(CustName," ",Occurrences)_" "_$Piece(CustName," ",Occurrences + 1) + If (##class(APPS.common.enu.JuridischeVorm).IsValid(Laatste2Woorden)) { + Set Aanspreking = Laatste2Woorden + } ElseIf (##class(APPS.common.enu.JuridischeVorm).IsValid(LaatsteWoord)) { + Set Aanspreking = LaatsteWoord + } + } ElseIf (Occurrences = 1) { + If (##class(APPS.common.enu.JuridischeVorm).IsValid(LaatsteWoord)) { + Set Aanspreking = LaatsteWoord + } + } + + Set NettoCustName = ##class(TECH.StringUtils).RightTrim($Extract(CustName,1,*-$Length(Aanspreking))) + #dim Eerste28Karakters As %String = $Extract(NettoCustName,1,28) + + If (($Length(NettoCustName) <= 28) || ($Extract(NettoCustName,29) = " ")) { Set Naam = Eerste28Karakters - Set Toenaam = ##class(TECH.StringUtils).LeftTrim($Extract(Name,29,*)) + Set Toenaam = ##class(TECH.StringUtils).LeftTrim($Extract(NettoCustName,29,*)) } Else { Set Naam = $Reverse($Extract($Reverse(Eerste28Karakters),$Find($Reverse(Eerste28Karakters)," "),*)) - Set Toenaam = ##class(TECH.StringUtils).LeftTrim($Extract(Name,$Length(Naam)+1,*)) + Set Toenaam = ##class(TECH.StringUtils).LeftTrim($Extract(NettoCustName,$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)_"'") + Do ..Logger.Warning("Klant synchronizatie AX - Admin","De maximale veldlengte voor Toenaam is 28. Lengte Toenaam voor '"_CustName_"' is '"_$Length(Toenaam)_"'") Set Toenaam = $Extract(Toenaam,1,28) } - Quit Naam_"||"_Toenaam + Quit Naam_"||"_Toenaam_"||"_Aanspreking ]]>