Index: AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml
===================================================================
diff -u -r37883 -r37909
--- AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml	(.../CustomerConverter.cls.xml)	(revision 37883)
+++ AXimpl/BizTalkMessage/Converter/CustomerConverter.cls.xml	(.../CustomerConverter.cls.xml)	(revision 37909)
@@ -212,7 +212,11 @@
 		Set CRMAdres.Straat1 = ..Klant.GeefBezoekAdres().GeefStraat()
 		Set CRMAdres.Postcode = ..Klant.GeefBezoekAdres().GeefPostcode()
 		Set CRMAdres.Plaats = ..Klant.GeefBezoekAdres().GeefGemeente()
-		Set CRMAdres.LandCodeISO3 = ..Klant.GeefBezoekAdres().GeefLand().GeefIso3()
+		If ..Klant.GeefBezoekAdres().GeefLandNr() = "" {
+			Set CRMAdres.LandCodeISO3 = ..Klant.GeefAdres().GeefLand().GeefIso3()
+		} Else {
+			Set CRMAdres.LandCodeISO3 = ..Klant.GeefBezoekAdres().GeefLand().GeefIso3()
+		}
 		Set CRMAdres.Telefoon = ..Klant.GeefBezoekAdres().GeefTelefoon()
 		Set CRMAdres.Verzendwijze = ..Klant.GeefVerzendWijze()
 		Set CRMAdres.LeveringAdres = $$$False
Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml
===================================================================
diff -u -r37884 -r37909
--- vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37884)
+++ vhUnitTest/AXimpl/BizTalkMessage/Converter/CustomerConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 37909)
@@ -379,6 +379,22 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="Test: 1 bezoekadres aanwezig, met lege landcode -&gt; landcode overnemen van hoofdadres">
+<Implementation><![CDATA[
+	Set DummyBezoekAdres = ##class(vhTest.Dummy.DOM.common.impl.VH.Adres).%New()
+	Set DummyBezoekAdres.LandNr = ""
+	Do ..Klant.IndienMethodCall("GeefBezoekAdres").DanReturn(DummyBezoekAdres)
+	
+	Set Converter = ##class(AXimpl.BizTalkMessage.Converter.CustomerConverter).%New(..PartijAPI, ..VerkoopAPI)
+	
+	#dim GeconverteerdeKlant As AXBizTalk.Customer = Converter.Convert(..Klant.GeefID())
+	
+	If $$$AssertEquals(GeconverteerdeKlant.Adressen.Count(),2) {
+		Do $$$AssertEquals(GeconverteerdeKlant.Adressen.GetAt(2).LandCodeISO3,"BEL")
+	}
+]]></Implementation>
+</Method>
 </Class>