Index: vhTest/Mock/DOM/AKP/ToeleveringAPI.cls.xml
===================================================================
diff -u -r44733 -r44973
--- vhTest/Mock/DOM/AKP/ToeleveringAPI.cls.xml	(.../ToeleveringAPI.cls.xml)	(revision 44733)
+++ vhTest/Mock/DOM/AKP/ToeleveringAPI.cls.xml	(.../ToeleveringAPI.cls.xml)	(revision 44973)
@@ -75,6 +75,13 @@
 <Implementation><![CDATA[	do ..VerwerkMethodCall("VerwijderToelevering",ToeleveringID)
 ]]></Implementation>
 </Method>
+
+<Method name="VoegToeProduct">
+<FormalSpec>Toelevering:DOM.AKP.Toelevering,ProductID:%String,Aantal:%Integer</FormalSpec>
+<ReturnType>DOM.AKP.ProductToeleveringLijn</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("VoegToeProduct",Toelevering,ProductID,Aantal)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/AKP/ToeleveringAPI.cls.xml
===================================================================
diff -u -r44733 -r44973
--- DOM/AKP/ToeleveringAPI.cls.xml	(.../ToeleveringAPI.cls.xml)	(revision 44733)
+++ DOM/AKP/ToeleveringAPI.cls.xml	(.../ToeleveringAPI.cls.xml)	(revision 44973)
@@ -55,6 +55,12 @@
 <ReturnType>DOM.AKP.ToeleveringService</ReturnType>
 </Method>
 
+<Method name="VoegToeProduct">
+<Abstract>1</Abstract>
+<FormalSpec>Toelevering:DOM.AKP.Toelevering,ProductID:%String,Aantal:%Integer</FormalSpec>
+<ReturnType>DOM.AKP.ProductToeleveringLijn</ReturnType>
+</Method>
+
 <Method name="IsToeleveringVanHaluxZonderVanHoeckeOrder">
 <Abstract>1</Abstract>
 <FormalSpec>ToeleveringID:%String</FormalSpec>
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()