Index: AX/common/impl/Formatter.cls.xml
===================================================================
diff -u -r34334 -r34367
--- AX/common/impl/Formatter.cls.xml	(.../Formatter.cls.xml)	(revision 34334)
+++ AX/common/impl/Formatter.cls.xml	(.../Formatter.cls.xml)	(revision 34367)
@@ -85,6 +85,27 @@
 	quit $extract(BTWNr,3,*)
 ]]></Implementation>
 </Method>
+
+<Method name="FormatLandCode2naar3">
+<FormalSpec>LandCodeIn:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	//dees kan beter in een LandService of LandAPI of zoiets
+	//code nog wip : mooie oplossing indien landcodeuit niet gevonden
+	//               testjes op de juiste plaats zetten
+	#dim LandCodeUit As %String = ""
+	#dim LandCode As %String = ""
+	
+	For { 
+		Set LandCode=$Order(^ISO(0,"ISO.LAND",LandCode))  Quit:(LandCode="")||($$$HasLength(LandCodeUit))		
+		If $Piece(^ISO(0,"ISO.LAND",LandCode,0),"\",1) = LandCodeIn {			
+			Set LandCodeUit = $Piece(^ISO(0,"ISO.LAND",LandCode,0),"\",35)
+		}	
+	}
+	
+	Quit LandCodeUit
+]]></Implementation>
+</Method>
 </Class>