Index: vhUnitTest/DOM/AKP/TestAPI.cls.xml
===================================================================
diff -u -r29059 -r35645
--- vhUnitTest/DOM/AKP/TestAPI.cls.xml	(.../TestAPI.cls.xml)	(revision 29059)
+++ vhUnitTest/DOM/AKP/TestAPI.cls.xml	(.../TestAPI.cls.xml)	(revision 35645)
@@ -17,13 +17,15 @@
 
 <Method name="TestAankoopPrijs">
 <Implementation><![CDATA[
+	#define ProductIDxDwarsverdelingInkortbaar   579262
+	
 	Set DomeinContext = ##class(DOM.DomeinContext).Instance()
 	Set AankoopPrijsAPI = DomeinContext.GeefAankoopPrijsAPI()
 	
 	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)
 	
 	Do $$$AssertTrue($IsObject(AankoopPrijsInfo),"Het object is teruggegeven")
 	Do $$$AssertTrue(AankoopPrijsInfo.GeefReferentiePrijs() > 0,"De prijs is ingevuld")