Index: vhUnitTest/DOM/VKP/TestAPI.cls.xml
===================================================================
diff -u -r29059 -r35645
--- vhUnitTest/DOM/VKP/TestAPI.cls.xml	(.../TestAPI.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/VKP/TestAPI.cls.xml	(.../TestAPI.cls.xml)	(revision 35645)
@@ -7,6 +7,11 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
 
+<Parameter name="ProductIDxDwarsverdelingInkortbaar">
+<Type>%String</Type>
+<Default>579262</Default>
+</Parameter>
+
 <Method name="TestAPIOpvragen">
 <Implementation><![CDATA[
 	Set VerkoopPrijsAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopPrijsAPI()
@@ -23,12 +28,12 @@
 	Set Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
 	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,##class(DOM.VKP.enu.Klant).Halux(),Personality)
 	
-	Set AankoopPrijsInfo = AankoopPrijsAPI.GeefAankoopPrijsInfo(579262, BerekeningsSpecificatie)
+	Set AankoopPrijsInfo = AankoopPrijsAPI.GeefAankoopPrijsInfo(..#ProductIDxDwarsverdelingInkortbaar, BerekeningsSpecificatie)
 	Set BasisPrijs = AankoopPrijsInfo.GeefReferentiePrijs()
 	
 	Set VerkoopPrijsAPI = DomeinContext.GeefVerkoopPrijsAPI()
 	
-	Set VerkoopPrijsInfo = VerkoopPrijsAPI.GeefVerkoopPrijsInfo(579262, BasisPrijs, BerekeningsSpecificatie)
+	Set VerkoopPrijsInfo = VerkoopPrijsAPI.GeefVerkoopPrijsInfo(..#ProductIDxDwarsverdelingInkortbaar, BasisPrijs, BerekeningsSpecificatie)
 	
 	Do $$$AssertTrue($IsObject(VerkoopPrijsInfo),"Het object is teruggegeven")
 	Do $$$AssertTrue(VerkoopPrijsInfo.GeefLijstPrijs() > 0,"De lijstprijs is ingevuld")
@@ -46,7 +51,7 @@
 	
 	Set Berekening = ##class(DOM.VKP.impl.VanHoeckeVoorHaluxBerekening).%New() // type berekening is niet echt relevant
 	Set Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
-	Set ProductID = 579262
+	Set ProductID = ..#ProductIDxDwarsverdelingInkortbaar
 	Set Dag = $Piece($H,",")
 	Set GeldigVan = Dag - 1
 	Set GeldigTot = Dag + 1
@@ -57,7 +62,7 @@
 	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,KlantID,Personality)
 	
 	Set DomeinContext = ##class(DOM.DomeinContext).Instance()
-	Set VerkoopPrijsInfo = DomeinContext.GeefVerkoopPrijsAPI().GeefVerkoopPrijsInfo(579262, 10, BerekeningsSpecificatie)
+	Set VerkoopPrijsInfo = DomeinContext.GeefVerkoopPrijsAPI().GeefVerkoopPrijsInfo(..#ProductIDxDwarsverdelingInkortbaar, 10, BerekeningsSpecificatie)
 	
 	Do $$$AssertTrue($IsObject(VerkoopPrijsInfo),"Het verkoopprijsinfo object werd berekend")
 	
@@ -73,7 +78,7 @@
 	
 	Set Berekening = ##class(DOM.VKP.impl.VanHoeckeVoorHaluxBerekening).%New() // type berekening is niet echt relevant
 	Set Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
-	Set ProductID = 579262
+	Set ProductID = ..#ProductIDxDwarsverdelingInkortbaar
 	Set Dag = $Piece($H,",")
 	Set Tag = "UTTag"
 	Set VerkoopPrijs = ##class(DOM.VKP.impl.VerkoopPrijzen).%New(Berekening, KlantNr, Personality, ProductID,"",,,Tag)
@@ -83,7 +88,7 @@
 	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,KlantID,Personality,Tag)
 	
 	Set DomeinContext = ##class(DOM.DomeinContext).Instance()
-	Set VerkoopPrijsInfo = DomeinContext.GeefVerkoopPrijsAPI().GeefVerkoopPrijsInfo(579262, 10, BerekeningsSpecificatie)
+	Set VerkoopPrijsInfo = DomeinContext.GeefVerkoopPrijsAPI().GeefVerkoopPrijsInfo(..#ProductIDxDwarsverdelingInkortbaar, 10, BerekeningsSpecificatie)
 	
 	Do $$$AssertTrue($IsObject(VerkoopPrijsInfo),"Het verkoopprijsinfo object werd berekend")