Index: vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/AdresZetter/Test.cls.xml
===================================================================
diff -u -r49742 -r49790
--- vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/AdresZetter/Test.cls.xml	(.../Test.cls.xml)	(revision 49742)
+++ vhUnitTest/AXimpl/Dynamics/CustomerIn/Converter/AdresZetter/Test.cls.xml	(.../Test.cls.xml)	(revision 49790)
@@ -20,10 +20,10 @@
 	Do $$$AssertEquals(GezetAdres.GeefNaam(),"Naam HoofdAdres")
 	Do $$$AssertEquals(GezetAdres.GeefAanspreking(),"")
 	Do $$$AssertEquals(GezetAdres.GeefStraat(),"Straat HoofdAdres")
-	Do $$$AssertEquals(GezetAdres.GeefPostcode(),"Postcode HoofdAdres")
+	Do $$$AssertEquals(GezetAdres.GeefPostcode(),"9100")
 	Do $$$AssertEquals(GezetAdres.GeefGemeente(),"Gemeente HoofdAdres")
 	Do $$$AssertEquals(GezetAdres.GeefLandNr(),"1019")
-	Do $$$AssertEquals(GezetAdres.GeefVerzendingWijze(),"OD4;2`OD4;5")
+	Do $$$AssertEquals(GezetAdres.GeefVerzendingWijze(),"")
 	Do $$$AssertEquals(GezetAdres.GeefType(),"")
 	Do $$$AssertEquals(GezetAdres.GeefTelefoon(),"")
 	Do $$$AssertEquals(GezetAdres.GeefOpmerking1(),"")
@@ -33,6 +33,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Als het HoofdAdres in buitenland is wordt de Postcode voorafgegaan door de LandCode en een streepje">
+<Implementation><![CDATA[
+	Set AdresZetter = ##class(AXimpl.Dynamics.CustomerIn.Converter.AdresZetter).%New()
+	#dim Adres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdresFactory).%New().MaakLeverAdres()
+	#dim Address As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress = ..GeefAxHoofdAdresBuitenland()
+	#dim Cust As AXif.Dynamics.CustomerIn.MessageParts.AxdEntityCust = ..GeefAxCust()
+	#dim BestaandLeverAdres As DOM.VKP.LeverAdres = ##class(DOM.VKP.impl.LeverAdres).%New()
+	#dim IsPrimairAdres As %Boolean = $$$True
+	#dim GezetAdres As DOM.VKP.LeverAdres = AdresZetter.ZetAdres(Adres, Address, Cust, BestaandLeverAdres, IsPrimairAdres)
+	
+	Do $$$AssertEquals(GezetAdres.GeefPostcode(),"NL-7442 DV")
+	Do $$$AssertEquals(GezetAdres.GeefLandNr(),"1147")
+]]></Implementation>
+</Method>
+
 <Method name="Test: De properties op het meegegeven AX-object zijn ingevuld en worden dus gebruikt voor een LeverAdres">
 <Implementation><![CDATA[
 	Set AdresZetter = ##class(AXimpl.Dynamics.CustomerIn.Converter.AdresZetter).%New()
@@ -47,7 +62,7 @@
 	Do $$$AssertEquals(GezetAdres.GeefNaam(),"Naam LeverAdres")
 	Do $$$AssertEquals(GezetAdres.GeefAanspreking(),"")
 	Do $$$AssertEquals(GezetAdres.GeefStraat(),"Straat LeverAdres")
-	Do $$$AssertEquals(GezetAdres.GeefPostcode(),"Postcode LeverAdres")
+	Do $$$AssertEquals(GezetAdres.GeefPostcode(),"9100")
 	Do $$$AssertEquals(GezetAdres.GeefGemeente(),"Gemeente LeverAdres")
 	Do $$$AssertEquals(GezetAdres.GeefLandNr(),"1019")
 	Do $$$AssertEquals(GezetAdres.GeefVerzendingWijze(),"OD4;2`OD4;5")
@@ -139,10 +154,9 @@
 	Set AxPostalAddress = ##class(AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress).%New()
 	Set AxPostalAddress.Description = "Naam HoofdAdres"
 	Set AxPostalAddress.Street = "Straat HoofdAdres"
-	Set AxPostalAddress.ZipCode = "Postcode HoofdAdres"
+	Set AxPostalAddress.ZipCode = "9100"
 	Set AxPostalAddress.City = "Gemeente HoofdAdres"
 	Set AxPostalAddress.CountryRegionId = "BEL"
-	Set AxPostalAddress.DlvModeId = "OD4 Di-Vr"
 	
 	Set AxRole = ##class(AXif.Dynamics.CustomerIn.MessageParts.AxdEntityRole).%New()
 	Set AxRole.Name = "Business"
@@ -153,14 +167,31 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAxHoofdAdresBuitenland">
+<Private>1</Private>
+<ReturnType>AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress</ReturnType>
+<Implementation><![CDATA[
+	Set AxPostalAddress = ##class(AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress).%New()
+	Set AxPostalAddress.ZipCode = "7442 DV"
+	Set AxPostalAddress.CountryRegionId = "NLD"
+	
+	Set AxRole = ##class(AXif.Dynamics.CustomerIn.MessageParts.AxdEntityRole).%New()
+	Set AxRole.Name = "Business"
+	
+	Do AxPostalAddress.Role.Insert(AxRole)
+	
+	Quit AxPostalAddress
+]]></Implementation>
+</Method>
+
 <Method name="GeefAxLeverAdres">
 <Private>1</Private>
 <ReturnType>AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress</ReturnType>
 <Implementation><![CDATA[
 	Set AxPostalAddress = ##class(AXif.Dynamics.CustomerIn.MessageParts.AxdEntityPostalAddress).%New()
 	Set AxPostalAddress.Description = "Naam LeverAdres"
 	Set AxPostalAddress.Street = "Straat LeverAdres"
-	Set AxPostalAddress.ZipCode = "Postcode LeverAdres"
+	Set AxPostalAddress.ZipCode = "9100"
 	Set AxPostalAddress.City = "Gemeente LeverAdres"
 	Set AxPostalAddress.CountryRegionId = "BEL"
 	Set AxPostalAddress.DlvModeId = "OD4 Di-Vr"
Index: AXimpl/Dynamics/CustomerIn/Converter/AdresZetter.cls.xml
===================================================================
diff -u -r49786 -r49790
--- AXimpl/Dynamics/CustomerIn/Converter/AdresZetter.cls.xml	(.../AdresZetter.cls.xml)	(revision 49786)
+++ AXimpl/Dynamics/CustomerIn/Converter/AdresZetter.cls.xml	(.../AdresZetter.cls.xml)	(revision 49790)
@@ -45,13 +45,18 @@
 	Do Adres.ZetNaam($Extract(Address.Description,1,27))
 	Do Adres.ZetAanspreking("")
 	Do Adres.ZetStraat(Address.Street)
-	Do Adres.ZetPostcode(Address.ZipCode)
+	If (Address.CountryRegionId = "BEL") {
+		Do Adres.ZetPostcode(Address.ZipCode)
+	} Else {
+		Set Adres.Postcode = ..LandRepository.GeefViaLandCodeIso3(Address.CountryRegionId).GeefCode()_"-"_Address.ZipCode
+	}
 	Do Adres.ZetGemeente(Address.City)
 	Do Adres.ZetLandNr(..LandRepository.GeefViaLandCodeIso3(Address.CountryRegionId).GeefID())
 	Do Adres.ZetTaal(..AxToAdminUtils.ConvertLanguageId(Cust.LanguageId))
 	Do Adres.ZetType("")
 	If $$$Not(IsPrimairAdres) {
 		Do Adres.ZetNaam($Extract(Address.Description,1,25))
+		Do Adres.ZetPostcode(Address.ZipCode)
 		Do Adres.ZetTelefoon(BestaandLeverAdres.GeefTelefoon())
 		Do Adres.ZetOpmerking1($Extract(Address.Nota1External,1,40))
 		Do Adres.ZetOpmerking2($Extract(Address.Nota2External,1,40))