Index: DOM/OV/impl/DataM/DataMAdres.cls.xml
===================================================================
diff -u -r734 -r903
--- DOM/OV/impl/DataM/DataMAdres.cls.xml	(.../DataMAdres.cls.xml)	(revision 734)
+++ DOM/OV/impl/DataM/DataMAdres.cls.xml	(.../DataMAdres.cls.xml)	(revision 903)
@@ -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-01-27 17:00:58">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-08 16:35:42">
 <Class name="DOM.OV.impl.DataM.DataMAdres">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,DOM.common.Adres</Super>
-<TimeChanged>62047,41411.184236</TimeChanged>
+<TimeChanged>62158,59740.873847</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Naam">
@@ -36,8 +36,23 @@
 <Private>1</Private>
 </Property>
 
+<Property name="LandNr">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Taal">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KlantAdresNr">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>Naam:%String,Toenaam:%String,Aanspreking:%String,Straat:%String,Postcode:%String,Gemeente:%String</FormalSpec>
+<FormalSpec>Naam:%String,Toenaam:%String,Aanspreking:%String,Straat:%String,Postcode:%String,Gemeente:%String,LandNr:%String,Taal:%String,KlantAdresNr:%String</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -48,10 +63,25 @@
 	Set ..Straat = Straat
 	Set ..Postcode = Postcode
 	Set ..Gemeente = Gemeente
+	Set ..LandNr = LandNr
+	Set ..Taal = $G(Taal)
+	Set ..KlantAdresNr = $G(KlantAdresNr)
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="CreateFromDelimitedString">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Node:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>DataMAdres</ReturnType>
+<Implementation><![CDATA[
+	Set Adres=..%New($P(Node,"\",2),$P(Node,"\",3),$P(Node,"\",4),$P(Node,"\",5),$P(Node,"\",6),$P(Node,"\",7),$P(Node,"\",8),$P(Node,"\",9),$P(Node,"\",1))
+	Quit Adres
+]]></Implementation>
+</Method>
+
 <Method name="GeefNaam">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..Naam
@@ -88,11 +118,35 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefLandNr">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..LandNr
+]]></Implementation>
+</Method>
+
+<Method name="GeefTaal">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Taal
+]]></Implementation>
+</Method>
+
+<Method name="GeefAdresKey">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..KlantAdresNr_";"_..Naam_";"_..Toenaam_";"_..Straat_";"_..Postcode
+]]></Implementation>
+</Method>
+
+<Method name="GeefKlantAdresNr">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..KlantAdresNr
+]]></Implementation>
+</Method>
+
 <Method name="ToString">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..GeefAanspreking()_" "_..GeefNaam()_" "_..GeefToenaam()_" - "_..GeefStraat()_" "_..GeefPostcode()_" "_..GeefGemeente()
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1059867669"/>
+<Checksum value="3997409686"/>
 </Export>