Index: vhUnitTest/AXimpl/BizTalkMessage/Converter/AddressUpsertConverter/Convert/Test.cls.xml
===================================================================
diff -u -r38266 -r38269
--- vhUnitTest/AXimpl/BizTalkMessage/Converter/AddressUpsertConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 38266)
+++ vhUnitTest/AXimpl/BizTalkMessage/Converter/AddressUpsertConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 38269)
@@ -24,6 +24,8 @@
 	Do ##super(aTestName)
 	
 	Set ..VerkoopAPI = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Set ..Klant = ##class(vhTest.Mock.DOM.VKP.VanHoeckeKlant).%New()
+	Do ..Klant.IndienMethodCall("GeefAdres").DanReturn(##class(vhTest.Utils.DOM.VKP.LeverAdres).Belgisch())
 	Do ..VerkoopAPI.IndienMethodCall("GeefKlant",$$$ElkeWaarde).DanReturn(..Klant)
 	
 	Set ..Leveradres = ##class(vhTest.Fake.DOM.VKP.LeverAdres).%New(1)
@@ -58,6 +60,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Geen landcode in leveradres -&gt; defaulten naar landcode van hoofdadres">
+<Implementation><![CDATA[
+	Do ..Leveradres.ZetLandNr("")
+	
+	#dim GeconverteerdeLeverAdres As AXBizTalk.Crm.Address.Upsert.Address = ..GeefAddress(..Leveradres.GeefID())
+	Do $$$AssertEquals(GeconverteerdeLeverAdres.LandCodeISO3,"BEL")
+]]></Implementation>
+</Method>
+
 <Method name="GeefAddress">
 <FormalSpec>LeveradresId:%String</FormalSpec>
 <ReturnType>AXBizTalk.Crm.Address.Upsert.Address</ReturnType>