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