Index: DOM/PARTIJ/impl/DataM/DataMLeverancier.cls.xml
===================================================================
diff -u -r34465 -r34583
--- DOM/PARTIJ/impl/DataM/DataMLeverancier.cls.xml	(.../DataMLeverancier.cls.xml)	(revision 34465)
+++ DOM/PARTIJ/impl/DataM/DataMLeverancier.cls.xml	(.../DataMLeverancier.cls.xml)	(revision 34583)
@@ -23,6 +23,18 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
+<Property name="Data1">
+<Type>%String</Type>
+<Private>1</Private>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
+<Property name="Data2">
+<Type>%String</Type>
+<Private>1</Private>
+<Parameter name="TRUNCATE" value="1"/>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>LeverancierNummer:%Integer</FormalSpec>
 <Private>1</Private>
@@ -233,17 +245,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Data0Get">
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	If (i%Data0 = "") {
-		Set i%Data0 = ^KLE(..LeverancierIndex,0)
-	}
-	Quit i%Data0
-]]></Implementation>
-</Method>
-
 <Method name="GeefAanspreking">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit $Piece(..Data0,"\",4)
@@ -258,13 +259,13 @@
 
 <Method name="GeefEmail">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit $Piece(..Data0,"\",19)
+<Implementation><![CDATA[	Quit $Piece(..Data2,"\",19)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefTelefax">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit $Piece(..Data0,"\",18)
+<Implementation><![CDATA[	Quit $Piece(..Data1,"\",24)
 ]]></Implementation>
 </Method>
 
@@ -273,6 +274,39 @@
 <Implementation><![CDATA[	Quit $Piece(..Data0,"\",3)
 ]]></Implementation>
 </Method>
+
+<Method name="Data0Get">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If (i%Data0 = "") {
+		Set i%Data0 = ^KLE(..LeverancierIndex,0)
+	}
+	Quit i%Data0
+]]></Implementation>
+</Method>
+
+<Method name="Data1Get">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If (i%Data1 = "") {
+		Set i%Data1 = ^KLE(..LeverancierIndex,1)
+	}
+	Quit i%Data1
+]]></Implementation>
+</Method>
+
+<Method name="Data2Get">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	If (i%Data2 = "") {
+		Set i%Data2 = ^KLE(..LeverancierIndex,2)
+	}
+	Quit i%Data2
+]]></Implementation>
+</Method>
 </Class>