Index: DOM/VKP/impl/DataM/DataMFactProfAbstract.cls.xml
===================================================================
diff -u -r34617 -r34786
--- DOM/VKP/impl/DataM/DataMFactProfAbstract.cls.xml	(.../DataMFactProfAbstract.cls.xml)	(revision 34617)
+++ DOM/VKP/impl/DataM/DataMFactProfAbstract.cls.xml	(.../DataMFactProfAbstract.cls.xml)	(revision 34786)
@@ -53,6 +53,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVervalDatumKortingContant">
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[
+	do ##class(vhLib.OldSchool).InitVars()
+	New R set R = $$EXTDATE^vhLib.DataTypes(..GeefFactuurDatum()+1,"DKP")_"\"_..GeefKlant().GeefKortingContantTermijn()
+	do ^cA104
+	quit $$INTDATE^vhLib.DataTypes(R)
+]]></Implementation>
+</Method>
+
 <Method name="GeefMuntPariteit">
 <ReturnType>%Decimal</ReturnType>
 <Implementation><![CDATA[	Quit $P(..NodeAlg,"\",4)