Index: vhTest/Fake/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml
===================================================================
diff -u -r39060 -r39108
--- vhTest/Fake/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 39060)
+++ vhTest/Fake/APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 39108)
@@ -34,8 +34,7 @@
 </Method>
 
 <Method name="ZetLeveradresInOpmerking1">
-<Implementation><![CDATA[
-]]></Implementation>
+<Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>
 
Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml
===================================================================
diff -u -r39070 -r39108
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 39070)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 39108)
@@ -39,6 +39,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LandRepository">
+<Type>DOM.common.Locatie.impl.LandRepository</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>VerkoopAPI:DOM.VKP.VerkoopAPI,ProductlijnToevoeger:APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductlijnToevoeger</FormalSpec>
 <Private>1</Private>
@@ -52,6 +57,7 @@
 	Set ..NietmeeleverenToevoeger = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.NietmeeleverenToevoeger).%New()
 	Set ..TBXDataIoWebClient = ##class(WS.TBX.DataIOWWWSoap).%New()
 	Set ..WebOrder = ##class(WS.TBX.Order).%New()
+	Set ..LandRepository = ##class(DOM.common.Locatie.impl.LandRepository).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -130,7 +136,7 @@
 	Quit:$$$Not($IsObject(..Aanvraag.Order.Aankoper))
 	#dim Adres As %String
 	#dim LandOmschrijving As %String = ""
-	Set:$$$HasLength(..Aanvraag.Order.Aankoper.LeveringLandISO3) LandOmschrijving = ##class(DOM.common.Locatie.impl.LandRepository).%New().GeefViaLandCodeIso3(..Aanvraag.Order.Aankoper.LeveringLandISO3).GeefNaam()
+	Set:$$$HasLength(..Aanvraag.Order.Aankoper.LeveringLandISO3) LandOmschrijving = ..LandRepository.GeefViaLandCodeIso3(..Aanvraag.Order.Aankoper.LeveringLandISO3).GeefNaam()
 	#dim PostcodeEnWoonplaats As %String = ..Aanvraag.Order.Aankoper.LeveringPostcode _ " " _ ..Aanvraag.Order.Aankoper.LeveringWoonplaats
 	Set PostcodeEnWoonplaats = $$$If(PostcodeEnWoonplaats=" ","",PostcodeEnWoonplaats_$$$CRLF)
 	Set Adres = $$$IfLength(..Aanvraag.Order.Aankoper.LeveringNaam,"",$$$CRLF) _ $$$IfLength(..Aanvraag.Order.Aankoper.LeveringStraatNrBus,"",$$$CRLF) _ PostcodeEnWoonplaats _ LandOmschrijving