Deze klasse dient om formattering uit te voeren en conversies te voorzien die geen data nodig hebben. TECH.RegisteredObject vhLib.Logger 1 Logger:vhLib.Logger 1 1 %Status 1 1 KlantID:%String %String 1 SupplierId:%String %String 1 SupplierId:%String %String 1 LeverancierNummer:%String,StockNietStock:%String %Integer 1 ZuluTimeStampStringFormaat:%TimeStamp %Date 1 ZuluTimeStampStringFormaat:%TimeStamp %TimeStamp 1 DlvTerm:%String DOM.CRM.enu.LeveringVoorwaarde N.B. Aangezien deze conversie van ID's zijn data uit globals haalt (en niet hardcoded is), is er de suggestie om een Repository te gebruiken, bij volgende grote wijziging. 1 DlvMode:%String %String 1 DlvMode:%String,LandNr:%String %String 1 Oorsprong:%String BL.Flow.Offerte.enu.Oorsprong 1 OrderStatus:%String DOM.VKP.enu.OrderStatus 1 LanguageId:%String DOM.enu.Taal 1 PostalAddressRole:%String %String 1 Text:%String %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(NettoCustName,29,*)) } Else { Set Naam = $Reverse($Extract($Reverse(Eerste28Karakters),$Find($Reverse(Eerste28Karakters)," "),*)) 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 '"_CustName_"' is '"_$Length(Toenaam)_"'") Set Toenaam = $Extract(Toenaam,1,28) } Quit Naam_"||"_Toenaam_"||"_Aanspreking ]]> PaymTermId:%String %String 0) { Set BetalingTermijn = +AantalDagen_"D" } } ElseIf (##class(TECH.StringUtils).Contains(PaymTermId,"EOM")) { Set BetalingTermijn = (+($Extract(PaymTermId,*-1,*)))_"DEM" } Quit Betalingwijze_"||"_BetalingTermijn ]]> CustClassificationId:%String %String TaxGroup:%String DOM.VKP.enu.BTWRegimeKlant