Index: DOM/LEV/impl/DataM/DataMToeleveringAPI.cls.xml
===================================================================
diff -u -r946 -r1012
--- DOM/LEV/impl/DataM/DataMToeleveringAPI.cls.xml	(.../DataMToeleveringAPI.cls.xml)	(revision 946)
+++ DOM/LEV/impl/DataM/DataMToeleveringAPI.cls.xml	(.../DataMToeleveringAPI.cls.xml)	(revision 1012)
@@ -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-16 08:25:37">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-15 09:45:38">
 <Class name="DOM.LEV.impl.DataM.DataMToeleveringAPI">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,DOM.LEV.ToeleveringAPI</Super>
-<TimeChanged>62166,30417.380907</TimeChanged>
+<TimeChanged>62196,35152.087104</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefToelevering">
@@ -13,12 +13,24 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefLeverancierToeleveringIt">
+<Method name="GeefLeverancier">
 <FormalSpec>LeverancierNummer:%Integer</FormalSpec>
+<ReturnType>DOM.LEV.Leverancier</ReturnType>
+<Implementation><![CDATA[	Quit ##class(DOM.LEV.impl.DataM.DataMLeverancier).%New(LeverancierNummer)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeverancierHalux">
+<ReturnType>DOM.LEV.Leverancier</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefLeverancier(6332)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLeverancierIterator">
 <ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.LEV.impl.DataM.DataMLeverancierToeleveringIt).%New(LeverancierNummer)
+<Implementation><![CDATA[	Quit ##class(DOM.LEV.impl.DataM.DataMLeverancierIterator).%New()
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2024791893"/>
+<Checksum value="137191844"/>
 </Export>