Index: DOM/PARTIJ/impl/DataM/DataMKlant.cls.xml
===================================================================
diff -u -r29059 -r33555
--- DOM/PARTIJ/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 29059)
+++ DOM/PARTIJ/impl/DataM/DataMKlant.cls.xml	(.../DataMKlant.cls.xml)	(revision 33555)
@@ -34,6 +34,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="AlleenLezenNode1">
+<Type>TECH.Persistentie.GlobalNode</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AlleenLezenNode2">
+<Type>TECH.Persistentie.GlobalNode</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="AlleenLezenNode7">
+<Type>TECH.Persistentie.GlobalNode</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="IsNieuwToegevoegd">
 <Type>%Boolean</Type>
 <Private>1</Private>
@@ -46,6 +61,9 @@
 	Set ..KlantNummer = KlantNummer
 	Set ..Persisted = 0
 	Set ..Node = ##class(TECH.Persistentie.GlobalPersistenceMgr).Instance().GeefNode("^DKL","K","KL.A",..KlantNummer,0)
+	Set ..AlleenLezenNode1 = ##class(TECH.Persistentie.GlobalPersistenceMgr).Instance().GeefNode("^DKL","K","KL.A",..KlantNummer,1)
+	Set ..AlleenLezenNode2 = ##class(TECH.Persistentie.GlobalPersistenceMgr).Instance().GeefNode("^DKL","K","KL.A",..KlantNummer,2)
+	Set ..AlleenLezenNode7 = ##class(TECH.Persistentie.GlobalPersistenceMgr).Instance().GeefNode("^DKL","K","KL.A",..KlantNummer,7)
 	Set ..IsNieuwToegevoegd = '$Data(^DKL("K","KL.A",..KlantNummer,0))
 	Quit $$$OK
 ]]></Implementation>
@@ -388,6 +406,30 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefTelefax">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..AlleenLezenNode1.GeefPiece(24)
+]]></Implementation>
+</Method>
+
+<Method name="GeefWebstek">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..AlleenLezenNode7.GeefPiece(2)
+]]></Implementation>
+</Method>
+
+<Method name="GeefEmail">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..AlleenLezenNode2.GeefPiece(19)
+]]></Implementation>
+</Method>
+
+<Method name="GeefGsm">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..AlleenLezenNode2.GeefPiece(20)
+]]></Implementation>
+</Method>
+
 <Method name="GeefTijdstipLaatsteWijziging">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ..GeefPiece(28)