Index: DOM/common/Locatie/impl/LandRepository.cls.xml
===================================================================
diff -u -r35616 -r35618
--- DOM/common/Locatie/impl/LandRepository.cls.xml	(.../LandRepository.cls.xml)	(revision 35616)
+++ DOM/common/Locatie/impl/LandRepository.cls.xml	(.../LandRepository.cls.xml)	(revision 35618)
@@ -18,7 +18,9 @@
 <Method name="BestaatViaID">
 <FormalSpec>LandID:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit $data(^ISO(0,"ISO.LAND",LandID,0))
+<Implementation><![CDATA[
+	Quit:$$$HasLength(LandID) $data(^ISO(0,"ISO.LAND",LandID,0))
+	Quit $$$False
 ]]></Implementation>
 </Method>
 
@@ -39,6 +41,23 @@
 <Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New("Landen zijn read-only"))
 ]]></Implementation>
 </Method>
+
+<Method name="GeefViaLandCode2Lang">
+<FormalSpec>LandCodeIn:%String</FormalSpec>
+<ReturnType>DOM.common.Land</ReturnType>
+<Implementation><![CDATA[
+	#dim LandID As %String = ""
+	#dim LandCode As %String = ""
+	
+	For { Quit:$$$HasLength(LandID)  Set LandCode=$Order(^ISO(0,"ISO.LAND",LandCode))  Quit:(LandCode="")		
+		If $Piece(^ISO(0,"ISO.LAND",LandCode,0),"\",1) = LandCodeIn {			
+			Set LandID = LandCode
+		}
+	}
+	
+	Quit ..GeefViaID(LandID)
+]]></Implementation>
+</Method>
 </Class>