Index: DOM/VKP/impl/DataM/DataMFactProfAbstract.cls.xml
===================================================================
diff -u -r34817 -r35600
--- DOM/VKP/impl/DataM/DataMFactProfAbstract.cls.xml	(.../DataMFactProfAbstract.cls.xml)	(revision 34817)
+++ DOM/VKP/impl/DataM/DataMFactProfAbstract.cls.xml	(.../DataMFactProfAbstract.cls.xml)	(revision 35600)
@@ -56,11 +56,7 @@
 <Method name="GeefVervalDatumKortingContant">
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%Date</ReturnType>
-<Implementation><![CDATA[
-	do ##class(vhLib.OldSchool).InitVars()
-	New R set R = $$EXTDATE^vhLib.DataTypes(..GeefFactuurDatum(),"DKP")_"\"_..GeefKlant().GeefKortingContantTermijn()
-	do ^cA104
-	quit $$INTDATE^vhLib.DataTypes(R)
+<Implementation><![CDATA[	quit ##class(TECH.PeriodUtils).Add(..GeefFactuurDatum(),..GeefKlant().GeefKortingContantTermijn())
 ]]></Implementation>
 </Method>