Index: AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml
===================================================================
diff -u -r34274 -r34301
--- AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml (.../DixfConverter.cls.xml) (revision 34274)
+++ AX/Uitgaand/AKP/Leverancier/impl/DixfConverter.cls.xml (.../DixfConverter.cls.xml) (revision 34301)
@@ -30,6 +30,8 @@
Set AxLeverancier.LanguageID = ..Formatter.FormatLanguageId(Leverancier.GeefTaal())
Set AxLeverancier.LocationRole = "Business"
Set AxLeverancier.CountryRegionId = Leverancier.GeefLandCodeIso()
+ Set AxLeverancier.ZipCode = ##class(DOM.common.impl.AdresUtils).CorrigeerPostcode(Leverancier.GeefPostnummer(),Leverancier.GeefLandNr())
+ Set AxLeverancier.City = Leverancier.GeefWoonplaats()
Quit AxLeverancier
]]>
Index: DOM/AKP/Leverancier.cls.xml
===================================================================
diff -u -r29059 -r34301
--- DOM/AKP/Leverancier.cls.xml (.../Leverancier.cls.xml) (revision 29059)
+++ DOM/AKP/Leverancier.cls.xml (.../Leverancier.cls.xml) (revision 34301)
@@ -57,6 +57,11 @@
%String
+
+1
+%String
+
+
1
%String
Index: vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml
===================================================================
diff -u -r34274 -r34301
--- vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml (.../Convert.cls.xml) (revision 34274)
+++ vhUnitTest/AX/Uitgaand/AKP/Leverancier/impl/DixfConverter/Convert.cls.xml (.../Convert.cls.xml) (revision 34301)
@@ -23,8 +23,11 @@
Do ..Leverancier.IndienMethodCall("GeefNaam").DanReturn("Naam")
Do ..Leverancier.IndienMethodCall("GeefToenaam").DanReturn("Toenaam")
Do ..Leverancier.IndienMethodCall("GeefAanspreking").DanReturn("Aanspreking")
- do ..Leverancier.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Nederlands())
- do ..Leverancier.IndienMethodCall("GeefLandCodeIso").DanReturn("BEL")
+ Do ..Leverancier.IndienMethodCall("GeefTaal").DanReturn(##class(DOM.enu.Taal).Nederlands())
+ Do ..Leverancier.IndienMethodCall("GeefLandCodeIso").DanReturn("BEL")
+ Do ..Leverancier.IndienMethodCall("GeefPostnummer").DanReturn("9100")
+ Do ..Leverancier.IndienMethodCall("GeefLandNr").DanReturn("1019")
+ do ..Leverancier.IndienMethodCall("GeefWoonplaats").DanReturn("Sint-Niklaas")
]]>
@@ -148,6 +151,76 @@
Do $$$AssertEquals(..AxLeverancier.CountryRegionId,"BEL")
]]>
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Index: AXdixf/Vendor/Vendor.cls.xml
===================================================================
diff -u -r34274 -r34301
--- AXdixf/Vendor/Vendor.cls.xml (.../Vendor.cls.xml) (revision 34274)
+++ AXdixf/Vendor/Vendor.cls.xml (.../Vendor.cls.xml) (revision 34301)
@@ -26,6 +26,14 @@
%String
+
+
+%String
+
+
+
+%String
+
Index: vhTest/Mock/DOM/AKP/Leverancier.cls.xml
===================================================================
diff -u -r29059 -r34301
--- vhTest/Mock/DOM/AKP/Leverancier.cls.xml (.../Leverancier.cls.xml) (revision 29059)
+++ vhTest/Mock/DOM/AKP/Leverancier.cls.xml (.../Leverancier.cls.xml) (revision 34301)
@@ -85,6 +85,12 @@
]]>
+
+%String
+
+
+
%String