Index: AXimpl/BizTalkMessage/Converter/AddressUpsertConverter.cls.xml =================================================================== diff -u -r38310 -r38317 --- AXimpl/BizTalkMessage/Converter/AddressUpsertConverter.cls.xml (.../AddressUpsertConverter.cls.xml) (revision 38310) +++ AXimpl/BizTalkMessage/Converter/AddressUpsertConverter.cls.xml (.../AddressUpsertConverter.cls.xml) (revision 38317) @@ -23,6 +23,11 @@ 1 + +AX.common.impl.Formatter +1 + + VerkoopAPI:DOM.VKP.VerkoopAPI,LeveradresRepository:AXimpl.BizTalkMessage.Converter.AddressUpsertConverter.LeveradresRepository 1 @@ -32,6 +37,7 @@ @@ -44,13 +50,13 @@ Set ..Address.Straat1 = Adres.GeefStraat() Set ..Address.Klantnummer = ##class(AX.common.impl.ConvertAdminToAX).ConvertCustomerID(Adres.GeefKlantId()) - Set ..Address.Postcode = Adres.GeefPostcode() - Set ..Address.Plaats = Adres.GeefGemeente() If Adres.GeefLandNr()="" { Set ..Address.LandCodeISO3 = ..VerkoopAPI.GeefKlant(Adres.GeefKlantId()).GeefAdres().GeefLand().GeefIso3() } Else { Set ..Address.LandCodeISO3 = Adres.GeefLand().GeefIso3() } + Set ..Address.Postcode = ..Formatter.FormatPostcode(Adres.GeefPostcode(),..Address.LandCodeISO3) + Set ..Address.Plaats = Adres.GeefGemeente() Set ..Address.Telefoon = Adres.GeefTelefoon() Set ..Address.Verzendwijze = $$SHOW^KLVERZW(,,,Adres.GeefVerzendingWijze()) Set ..Address.BezoekAdres = $$$False Index: AX/common/impl/Formatter.cls.xml =================================================================== diff -u -r37971 -r38317 --- AX/common/impl/Formatter.cls.xml (.../Formatter.cls.xml) (revision 37971) +++ AX/common/impl/Formatter.cls.xml (.../Formatter.cls.xml) (revision 38317) @@ -145,6 +145,18 @@ quit $Extract($$$Trim(##class(TECH.StringUtils).Replace(Name,";"," ")),1,60) ]]> + + +Postcode:%String,LandISO3:%String +%String + + Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/FormatPostcode/Test.cls.xml =================================================================== diff -u --- vhUnitTest/AXimpl/BizTalkMessage/Converter/FormatPostcode/Test.cls.xml (revision 0) +++ vhUnitTest/AXimpl/BizTalkMessage/Converter/FormatPostcode/Test.cls.xml (revision 38317) @@ -0,0 +1,56 @@ + + + +vhUnitTest.TestCase + + + + + + + + + + + + + + + + + + + + Index: AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml =================================================================== diff -u -r38280 -r38317 --- AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml (.../CustomerConverter.cls.xml) (revision 38280) +++ AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml (.../CustomerConverter.cls.xml) (revision 38317) @@ -209,7 +209,7 @@ 1