Index: vhUnitTest/APPS/PM/BulkActie/Acties/HerrekenProductViaIK/Test.cls.xml
===================================================================
diff -u -r46110 -r46152
--- vhUnitTest/APPS/PM/BulkActie/Acties/HerrekenProductViaIK/Test.cls.xml	(.../Test.cls.xml)	(revision 46110)
+++ vhUnitTest/APPS/PM/BulkActie/Acties/HerrekenProductViaIK/Test.cls.xml	(.../Test.cls.xml)	(revision 46152)
@@ -54,10 +54,10 @@
 
 <Method name="Test: Datum voor valideren van Product">
 <Implementation><![CDATA[
-	#dim RandomBerekenDatumVoorProduct As %Date = ..GeefDatum("24/10/2016")
+	#dim RandomBerekenDatumVoorProduct As %Date = $$INTDATE^vhLib.DataTypes("24/10/2016")
 	
 	Do ..AssertBerekenDatum("datum van product", RandomBerekenDatumVoorProduct, RandomBerekenDatumVoorProduct)
-	Do ..AssertBerekenDatum("vandaag", RandomBerekenDatumVoorProduct, +$Horolog)
+	Do ..AssertBerekenDatum("vandaag", RandomBerekenDatumVoorProduct, $$$CurrentDate)
 ]]></Implementation>
 </Method>
 
@@ -110,14 +110,6 @@
 	Quit MaatwerkProductStub
 ]]></Implementation>
 </Method>
-
-<Method name="GeefDatum">
-<FormalSpec>Datum:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Date</ReturnType>
-<Implementation><![CDATA[	Quit $ZDateH(Datum, 4)
-]]></Implementation>
-</Method>
 </Class>