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