Index: DOM/EC/OL/Verlanglijst/Verlanglijst.cls.xml
===================================================================
diff -u -r1075 -r1103
--- DOM/EC/OL/Verlanglijst/Verlanglijst.cls.xml	(.../Verlanglijst.cls.xml)	(revision 1075)
+++ DOM/EC/OL/Verlanglijst/Verlanglijst.cls.xml	(.../Verlanglijst.cls.xml)	(revision 1103)
@@ -71,6 +71,13 @@
 <Unique>1</Unique>
 </Index>
 
+<Property name="LaatstGebruikt">
+<Description>
+Datum waarop verlanglijst voor het laatste gebruikt werd.
+Kan gecreeerd of geopend zijn.</Description>
+<Type>%Integer</Type>
+</Property>
+
 <Method name="WijzigingenToegelaten">
 <ReturnType>Boolean</ReturnType>
 <Implementation><![CDATA[	quit 1
@@ -227,7 +234,12 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ID:%Integer</FormalSpec>
 <ReturnType>Verlanglijst</ReturnType>
-<Implementation><![CDATA[	Quit ..%OpenId(ID)
+<Implementation><![CDATA[
+	Set Verlanglijst = ..%OpenId(ID)
+	
+	Set Verlanglijst.LaatstGebruikt = +$h
+	
+	Quit ..%OpenId(ID)
 ]]></Implementation>
 </Method>
 
@@ -242,6 +254,8 @@
 	if ..%ExistsId(ID) { set Verlanglijst = ..Open(ID) }
 	else  { set Verlanglijst = ..Create(ID) }
 	
+	Set Verlanglijst.LaatstGebruikt = +$h
+	
 	Quit Verlanglijst
 ]]></Implementation>
 </Method>
@@ -261,6 +275,7 @@
 <Method name="Save">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Set ..LaatstGebruikt = +$h
 	set scSaved = ..%Save()
 	quit scSaved
 ]]></Implementation>
@@ -285,6 +300,19 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderOudeVerlanglijsten">
+<Description>
+Niet gebruikte verlanglijsten na x-aantal maanden verwijderen
+Do ##class(DOM.EC.OL.Verlanglijst.Verlanglijst).VerwijderOudeVerlanglijsten()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set AantalMaanden = 2
+	Set Datum =  ($P($zd($h),"/",1)-AantalMaanden)_"/"_$P($zd($h),"/",2)_"/"_$P($zd($h),"/",3)
+	Set Datum = $zdh(Datum)
+	&SQL(DELETE FROM DOM_EC_OL_Verlanglijst.Verlanglijst WHERE LaatstGebruikt < :Datum)
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^DOM.EC.OL.VerlanglijstD</DataLocation>
@@ -305,6 +333,12 @@
 <Value name="4">
 <Value>Root</Value>
 </Value>
+<Value name="5">
+<Value>DatumLaatstGebruikt</Value>
+</Value>
+<Value name="6">
+<Value>LaatstGebruikt</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: DOM/EC/OL/Winkelkar/Winkelkar.cls.xml
===================================================================
diff -u -r1075 -r1103
--- DOM/EC/OL/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 1075)
+++ DOM/EC/OL/Winkelkar/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 1103)
@@ -71,6 +71,13 @@
 <Unique>1</Unique>
 </Index>
 
+<Property name="LaatstGebruikt">
+<Description>
+Datum waarop winkelkar voor het laatste gebruikt werd.
+Kan gecreeerd of geopend zijn.</Description>
+<Type>%Integer</Type>
+</Property>
+
 <Method name="WijzigingenToegelaten">
 <ReturnType>Boolean</ReturnType>
 <Implementation><![CDATA[
@@ -91,6 +98,7 @@
 	Set ..ID = ID
 	Set ..Root = ##class(GroepLijn).%New("ROOT")
 	Do ..Inhoud.Insert(..Root)
+	Set ..LaatstGebruikt = +$h
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -278,7 +286,10 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>ID:%Integer</FormalSpec>
 <ReturnType>Winkelkar</ReturnType>
-<Implementation><![CDATA[	Quit ..%OpenId(ID)
+<Implementation><![CDATA[
+	Set Winkelkar = ..%OpenId(ID)
+	Set Winkelkar.LaatstGebruikt = +$h
+	Quit Winkelkar
 ]]></Implementation>
 </Method>
 
@@ -292,7 +303,7 @@
 	
 	if ..%ExistsId(ID) { set Winkelkar = ..Open(ID) }
 	else  { set Winkelkar = ..Create(ID) }
-	
+	Set Winkelkar.LaatstGebruikt = +$h
 	Quit Winkelkar
 ]]></Implementation>
 </Method>
@@ -312,6 +323,7 @@
 <Method name="Save">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Set ..LaatstGebruikt = +$h
 	set scSaved = ..%Save()
 	quit scSaved
 ]]></Implementation>
@@ -336,6 +348,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderOudeWinkelkarren">
+<Description>
+Niet gebruikte winkelkarren na x-aantal maanden verwijderen
+Do ##class(DOM.EC.OL.Winkelkar.Winkelkar).VerwijderOudeWinkelkarren()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set AantalMaanden = 2
+	Set Datum =  ($P($zd($h),"/",1)-AantalMaanden)_"/"_$P($zd($h),"/",2)_"/"_$P($zd($h),"/",3)
+	Set Datum = $zdh(Datum)
+	&SQL(DELETE FROM DOM_EC_OL_Winkelkar.Winkelkar 
+		where NOT (Hoofding_Besteld = 1 AND Hoofding_BetalingBevestigd = 1 )
+		AND LaatstGebruikt < :Datum)
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^DOM.EC.OL.WinkelkarD</DataLocation>
@@ -353,6 +380,9 @@
 <Value name="3">
 <Value>Root</Value>
 </Value>
+<Value name="4">
+<Value>LaatstGebruikt</Value>
+</Value>
 </Data>
 </Storage>
 </Class>