Index: DOM/AKP/impl/DataM/DataMToeleveringAPI.cls.xml
===================================================================
diff -u -r44733 -r44973
--- DOM/AKP/impl/DataM/DataMToeleveringAPI.cls.xml	(.../DataMToeleveringAPI.cls.xml)	(revision 44733)
+++ DOM/AKP/impl/DataM/DataMToeleveringAPI.cls.xml	(.../DataMToeleveringAPI.cls.xml)	(revision 44973)
@@ -92,6 +92,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeProduct">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering,ProductID:%String,Aantal:%Integer</FormalSpec>
+<ReturnType>DOM.AKP.ProductToeleveringLijn</ReturnType>
+<Implementation><![CDATA[
+	Do ##class(vhLib.OldSchool).InitVars()
+	
+	#dim ToeleveringLijn As DOM.AKP.ProductToeleveringLijn = Toelevering.MaakNieuweProductLijn(ProductID)
+	Do ToeleveringLijn.ZetAantal(Aantal)
+	Do ToeleveringLijn.ZetMunt(Toelevering.GeefMunt())
+	quit ToeleveringLijn
+]]></Implementation>
+</Method>
+
 <Method name="Bewaar">
 <FormalSpec>Toelevering:DOM.AKP.Toelevering</FormalSpec>
 <Implementation><![CDATA[	Do Toelevering.Save()