Index: DOM/EC/OL/Verlanglijst/Verlanglijst.cls.xml
===================================================================
diff -u -r1107 -r1109
--- DOM/EC/OL/Verlanglijst/Verlanglijst.cls.xml	(.../Verlanglijst.cls.xml)	(revision 1107)
+++ DOM/EC/OL/Verlanglijst/Verlanglijst.cls.xml	(.../Verlanglijst.cls.xml)	(revision 1109)
@@ -299,7 +299,7 @@
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
 	Set AantalMaanden = 2
-	Set Datum = ##class(TECH.DateTime).TimestampToDate(##class(TECH.DateTime).TimeStampBereken(##class(TECH.DateTime).CurrentTimeStamp(),-AantalMaanden,##class(TECH.enu.DatePart).Maand()))
+	Set Datum = ##class(TECH.DateTime).DatumBereken(##class(TECH.DateTime).CurrentDate(),-AantalMaanden,##class(TECH.enu.DatePart).Maand())
 	&SQL(DELETE FROM DOM_EC_OL_Verlanglijst.Verlanglijst WHERE LaatstGebruikt < :Datum)
 ]]></Implementation>
 </Method>
Index: DOM/EC/OL/Winkelkar/Winkelkar.cls.xml
===================================================================
diff -u -r1107 -r1109
--- DOM/EC/OL/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 1107)
+++ DOM/EC/OL/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 1109)
@@ -350,7 +350,7 @@
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
 	Set AantalMaanden = 2
-	Set Datum = ##class(TECH.DateTime).TimestampToDate(##class(TECH.DateTime).TimeStampBereken(##class(TECH.DateTime).CurrentTimeStamp(),-AantalMaanden,##class(TECH.enu.DatePart).Maand()))
+	Set Datum = ##class(TECH.DateTime).DatumBereken(##class(TECH.DateTime).CurrentDate(),-AantalMaanden,##class(TECH.enu.DatePart).Maand())
 	&SQL(DELETE FROM DOM_EC_OL_Winkelkar.Winkelkar 
 		where NOT (Hoofding_Besteld = 1 AND Hoofding_BetalingBevestigd = 1 )
 		AND LaatstGebruikt < :Datum)