Index: vhUnitTest/DOM/AKP/impl/ToeleveringService/BevatToeleveringRevegoProducten/Test.cls.xml
===================================================================
diff -u -r68989 -r74190
--- vhUnitTest/DOM/AKP/impl/ToeleveringService/BevatToeleveringRevegoProducten/Test.cls.xml	(.../Test.cls.xml)	(revision 68989)
+++ vhUnitTest/DOM/AKP/impl/ToeleveringService/BevatToeleveringRevegoProducten/Test.cls.xml	(.../Test.cls.xml)	(revision 74190)
@@ -41,9 +41,7 @@
 
 <Method name="Test: Toelevering bevat één RVG">
 <Implementation><![CDATA[
-	#dim RvgIngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.RVGKenmerken).UnoLinks()
-	Set RvgIngegevenKenmerken.StukLijst = ""
-	#dim RvgProduct As DOM.PM.MaatwerkProduct = ..MaakProduct(RvgIngegevenKenmerken)
+	#dim RvgProduct As DOM.PM.MaatwerkProduct = ..GeefProductStub(123456)
 	#dim RvgProductToeleveringLijn As vhTest.Utils.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
 	Do RvgProductToeleveringLijn.IndienMethodCall("GeefProductID").DanReturn(RvgProduct.GeefID())
 	
@@ -63,8 +61,7 @@
 
 <Method name="Test: Toelevering bevat geen RVG">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerkenStandaardLade = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
-	#dim Product As DOM.PM.MaatwerkProduct = ..MaakProduct(IngegevenKenmerkenStandaardLade)
+	#dim Product As DOM.PM.MaatwerkProduct = ..GeefProductStub(123456)
 	#dim ProductToeleveringLijnStandaardLade As vhTest.Utils.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
 	Do ProductToeleveringLijnStandaardLade.IndienMethodCall("GeefProductID").DanReturn(Product.GeefID())
 	
@@ -84,13 +81,11 @@
 
 <Method name="Test: Toelevering bevat meerdere niet-RVG producten">
 <Implementation><![CDATA[
-	#dim IngegevenKenmerkenTaorLade = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken).StandaardLade()
-	#dim TaorLade As DOM.PM.MaatwerkProduct = ..MaakProduct(IngegevenKenmerkenTaorLade)
+	#dim TaorLade As DOM.PM.MaatwerkProduct = ..GeefProductStub(123456)
 	#dim ProductToeleveringLijnTaor As vhTest.Utils.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
 	Do ProductToeleveringLijnTaor.IndienMethodCall("GeefProductID").DanReturn(TaorLade.GeefID())
 	
-	#dim IngegevenKenmerkenLBXLade = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken).StandaardLade()
-	#dim LBXLade As DOM.PM.MaatwerkProduct = ..MaakProduct(IngegevenKenmerkenLBXLade)
+	#dim LBXLade As DOM.PM.MaatwerkProduct = ..GeefProductStub(123457)
 	#dim ProductToeleveringLijnLBX As vhTest.Utils.DOM.AKP.ProductToeleveringLijn = ##class(vhTest.Utils.DOM.AKP.ProductToeleveringLijn).GeefProductToeleveringLijn()
 	Do ProductToeleveringLijnLBX.IndienMethodCall("GeefProductID").DanReturn(LBXLade.GeefID())
 	
@@ -108,6 +103,16 @@
 	Do ..ProductTypeApiMock.Verifieer()
 ]]></Implementation>
 </Method>
+
+<Method name="GeefProductStub">
+<FormalSpec>ProductId:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set ProductStub = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do ProductStub.IndienMethodCall("GeefID").DanReturn(ProductId)
+	
+	Quit ProductStub
+]]></Implementation>
+</Method>
 </Class>