Index: DOM/LEV/impl/DataM/DataMLeverancier.cls.xml
===================================================================
diff -u -r1090 -r1240
--- DOM/LEV/impl/DataM/DataMLeverancier.cls.xml	(.../DataMLeverancier.cls.xml)	(revision 1090)
+++ DOM/LEV/impl/DataM/DataMLeverancier.cls.xml	(.../DataMLeverancier.cls.xml)	(revision 1240)
@@ -20,6 +20,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Data2">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>LeverancierNummer:%Integer</FormalSpec>
 <Private>1</Private>
@@ -54,13 +59,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefEmail">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Piece(..Data2,"\",19)
+]]></Implementation>
+</Method>
+
 <Method name="GeefLeverancierActiefStatus">
 <ReturnType>DOM.enu.ActiefStatus</ReturnType>
 <Implementation><![CDATA[	Quit $Piece(..Data0,"\",30)
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLeverancierNr">
+<Method name="GeefNummer">
 <ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[	Quit ..LeverancierNummer
 ]]></Implementation>
@@ -72,6 +83,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefPersonen">
+<ReturnType>%ListOfObjects</ReturnType>
+<Implementation><![CDATA[
+	Set Personen = ##class(%ListOfObjects).%New()
+	Set LeverancierNummer = ..GeefNummer()
+	Set VolgNummer = ""
+	Set VolgNummer = $Order(^PERS("L",LeverancierNummer,VolgNummer))
+	While (VolgNummer '= "")
+	{
+		Set Persoon = ##class(DOM.LEV.impl.DataM.DataMPersoon).%New(LeverancierNummer,VolgNummer)
+		Do Persoon.Open()
+		Do Personen.Insert(Persoon)
+		Set VolgNummer = $Order(^PERS("L",LeverancierNummer,VolgNummer))
+	}
+	Quit Personen
+]]></Implementation>
+</Method>
+
 <Method name="GeefToeleveringIterator">
 <ReturnType>TECH.Iterator</ReturnType>
 <Implementation><![CDATA[	Quit ##class(DOM.LEV.impl.DataM.DataMLeverancierToeleveringIt).%New(..LeverancierNummer)
@@ -94,5 +123,16 @@
 	Quit i%Data0
 ]]></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>
 </Export>