Index: DOM/OV/impl/DataM/DataMAdres.cls.xml
===================================================================
diff -u -r903 -r946
--- DOM/OV/impl/DataM/DataMAdres.cls.xml	(.../DataMAdres.cls.xml)	(revision 903)
+++ DOM/OV/impl/DataM/DataMAdres.cls.xml	(.../DataMAdres.cls.xml)	(revision 946)
@@ -1,9 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-08 16:35:42">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-17 11:15:59">
 <Class name="DOM.OV.impl.DataM.DataMAdres">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,DOM.common.Adres</Super>
-<TimeChanged>62158,59740.873847</TimeChanged>
+<TimeChanged>62167,40638.834617</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Naam">
@@ -37,7 +37,7 @@
 </Property>
 
 <Property name="LandNr">
-<Type>%String</Type>
+<Type>%Integer</Type>
 <Private>1</Private>
 </Property>
 
@@ -52,7 +52,7 @@
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>Naam:%String,Toenaam:%String,Aanspreking:%String,Straat:%String,Postcode:%String,Gemeente:%String,LandNr:%String,Taal:%String,KlantAdresNr:%String</FormalSpec>
+<FormalSpec>Naam:%String,Toenaam:%String,Aanspreking:%String,Straat:%String,Postcode:%String,Gemeente:%String,LandNr:%Integer,Taal:%String,KlantAdresNr:%String</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -119,11 +119,17 @@
 </Method>
 
 <Method name="GeefLandNr">
-<ReturnType>%String</ReturnType>
+<ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[	Quit ..LandNr
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLandCode">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $$LAND^vhRtn1(..GeefLandNr(),1)
+]]></Implementation>
+</Method>
+
 <Method name="GeefTaal">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..Taal
@@ -148,5 +154,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3997409686"/>
+<Checksum value="816213203"/>
 </Export>