Index: WS/Web/OLParticulier/Winkelkar.cls.xml
===================================================================
diff -u -r1133 -r1558
--- WS/Web/OLParticulier/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 1133)
+++ WS/Web/OLParticulier/Winkelkar.cls.xml	(.../Winkelkar.cls.xml)	(revision 1558)
@@ -19,20 +19,7 @@
 <FormalSpec>Sessie:WS.Web.OLParticulier.dto.Sessie</FormalSpec>
 <ReturnType>%Integer</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[
-	$$$TECHErrorTrapOn
-	
-	$$$chkRequiredParameter(Sessie)
-	$$$chkIsObject(Sessie)
-	
-	$$$LogIncomming(WS.Web.OLParticulier.impl.Logger,GeefAantalProducten)
-	
-	Set WinkelkarID = ..GeefWinkelkarID(Sessie)
-	Set WinkelkarImpl =..GetWinkelkarImpl(Sessie)
-	
-	Set AantalProducten = WinkelkarImpl.GeefAantalProducten(WinkelkarID) 
-
-	Quit AantalProducten
+<Implementation><![CDATA[	Quit 0
 ]]></Implementation>
 </Method>
 
@@ -42,41 +29,15 @@
 <FormalSpec>Sessie:WS.Web.OLParticulier.dto.Sessie</FormalSpec>
 <ReturnType>APPS.Web.OLParticulier.dto.GekozenItemLijst</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[
-	$$$TECHErrorTrapOn
-	
-	$$$chkRequiredParameter(Sessie)
-	$$$chkIsObject(Sessie)
-	
-	$$$LogIncomming(WS.Web.OLParticulier.impl.Logger,GeefInhoud)
-
-	Set WinkelkarID = ..GeefWinkelkarID(Sessie)
-	Set WinkelkarImpl =..GetWinkelkarImpl(Sessie)
-	Set dtoGekozenItemLijst = WinkelkarImpl.GeefInhoud(WinkelkarID)
-	
-	quit dtoGekozenItemLijst
+<Implementation><![CDATA[	Quit ##class(APPS.Web.OLParticulier.dto.GekozenItemLijst).%New()
 ]]></Implementation>
 </Method>
 
 <Method name="GeefItem">
 <FormalSpec>Sessie:WS.Web.OLParticulier.dto.Sessie,ItemUnID:%String</FormalSpec>
 <ReturnType>APPS.Web.OLParticulier.dto.GekozenItemMetCriteria</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[
-	$$$TECHErrorTrapOn
-	
-	$$$chkRequiredParameter(Sessie)
-	$$$chkRequiredParameter(ItemUnID)
-	
-	$$$chkIsObject(Sessie)
-	
-	$$$LogIncomming(WS.Web.OLParticulier.impl.Logger,GeefItem)
-	
-	Set WinkelkarID = ..GeefWinkelkarID(Sessie)
-	Set WinkelkarImpl =..GetWinkelkarImpl(Sessie)
-	Set dtoGekozenItem = WinkelkarImpl.GeefItem(WinkelkarID,.ItemUnID)
-	
-	quit dtoGekozenItem
+<Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
 
@@ -86,21 +47,7 @@
 <FormalSpec>Sessie:WS.Web.OLParticulier.dto.Sessie,ProductIdentifier:%String,ProductCriteria:DOM.PM.OL.Gamma.dto.ProductCriteria,LadeSpec:DOM.PM.OL.Gamma.dto.LadeSpecificatie,Zoekterm:%String</FormalSpec>
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[
-	$$$TECHErrorTrapOn
-	
-	$$$chkRequiredParameter(Sessie)
-	$$$chkRequiredParameter(ProductIdentifier)
-	
-	$$$chkIsObject(Sessie)
-	
-	$$$LogIncomming(WS.Web.OLParticulier.impl.Logger,VoegToeProduct)
-	
-	Set WinkelkarID = ..GeefWinkelkarID(Sessie)
-	Set WinkelkarImpl =..GetWinkelkarImpl(Sessie)
-	Set ItemUnId =  WinkelkarImpl.VoegToeProduct(WinkelkarID,.ProductIdentifier,.ProductCriteria,.LadeSpec,.Zoekterm)
-	
-	quit ItemUnId
+<Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
 
@@ -111,221 +58,72 @@
 <FormalSpec>Sessie:WS.Web.OLParticulier.dto.Sessie,ItemUnID:%String,NieuwAantal:%Integer</FormalSpec>
 <ReturnType>%Float</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[
-	$$$TECHErrorTrapOn
-	
-	$$$chkRequiredParameter(Sessie)
-	$$$chkRequiredParameter(ItemUnID)
-	$$$chkRequiredParameter(NieuwAantal)
-	
-	$$$chkIsObject(Sessie)
-	
-	$$$LogIncomming(WS.Web.OLParticulier.impl.Logger,WijzigProductAantal)
-
-	Set WinkelkarID = ..GeefWinkelkarID(Sessie)
-	Set WinkelkarImpl =..GetWinkelkarImpl(Sessie)
-	If $isObject(WinkelkarImpl) { 
-	  Set TotalePrijs = WinkelkarImpl.WijzigProductAantal(WinkelkarID,.ItemUnID,.NieuwAantal)
-	}
-	Quit TotalePrijs
+<Implementation><![CDATA[	Quit 0
 ]]></Implementation>
 </Method>
 
 <Method name="WisItem">
 <FormalSpec>Sessie:WS.Web.OLParticulier.dto.Sessie,ItemUnID:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[
-	$$$TECHErrorTrapOn
-	
-	$$$chkRequiredParameter(Sessie)
-	$$$chkRequiredParameter(ItemUnID)
-	
-	$$$LogIncomming(WS.Web.OLParticulier.impl.Logger,WisItem)
-
-
-	Set WinkelkarID = ..GeefWinkelkarID(Sessie)
-	Set WinkelkarImpl =..GetWinkelkarImpl(Sessie)
-	If $isObject(WinkelkarImpl) { 
-	  Set scWisItem  = WinkelkarImpl.WisItem(WinkelkarID,.ItemUnID)
-	}
-	Quit $$$OK=scWisItem
+<Implementation><![CDATA[	Quit 0
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalLeverdatum">
 <FormalSpec>Sessie:WS.Web.OLParticulier.dto.Sessie,Levering:APPS.Web.OLParticulier.dto.Levering</FormalSpec>
 <ReturnType>%Date</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[
-	$$$TECHErrorTrapOn
-	
-	$$$chkRequiredParameter(Sessie)
-	$$$chkRequiredParameter(Levering)
-
-	
-	$$$LogIncomming(WS.Web.OLParticulier.impl.Logger,BepaalLeverdatum)
-
-	Set WinkelkarID = ..GeefWinkelkarID(Sessie)
-	Set WinkelkarImpl =..GetWinkelkarImpl(Sessie)
-	If $isObject(WinkelkarImpl) { 
-	  Set Leverdatum  = WinkelkarImpl.BepaalLeverdatum(WinkelkarID,.Levering)
-	}
-	Quit Leverdatum
+<Implementation><![CDATA[	Quit ##class(TECH.DateTime).CurrentDate()
 ]]></Implementation>
 </Method>
 
 <Method name="BestelWinkelkar">
 <FormalSpec>Sessie:WS.Web.OLParticulier.dto.Sessie,Levering:APPS.Web.OLParticulier.dto.Levering,Betalingswijze:APPS.Web.OLParticulier.enu.Betalingswijze,Klant:DOM.dto.Derde.Klant</FormalSpec>
 <ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[
-	$$$TECHErrorTrapOn
-	
-	$$$chkRequiredParameter(Sessie)
-	$$$chkRequiredParameter(Levering)
-	$$$chkRequiredParameter(Betalingswijze)
-	$$$chkRequiredParameter(Klant)
-	
-	$$$chkIsObject(Sessie)
-	$$$chkIsObject(Klant)
-	$$$chkIsObject(Levering)
-
-	$$$LogIncomming(WS.Web.OLParticulier.impl.Logger,BestelWinkelkar)
-
-	Set WinkelkarID = ..GeefWinkelkarID(Sessie)
-	Set WinkelkarImpl =..GetWinkelkarImpl(Sessie) 
-	If $isObject(WinkelkarImpl) { Set WinkelkarUniqueID = WinkelkarImpl.BestelWinkelkar(WinkelkarID,.Levering,.Betalingswijze,.Klant) }
-	Quit WinkelkarUniqueID
+<Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
 
 <Method name="BetalingBevestigd">
 <FormalSpec>Sessie:WS.Web.OLParticulier.dto.Sessie,BetalingsReferentie:%String,Bevestigd:%Boolean,Bedrag:%Float,Munt:%String</FormalSpec>
 <ReturnType>Boolean</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[
-	$$$LogIncomming(WS.Web.OLParticulier.impl.Logger,BetalingBevestigd)
-
-
-	Set WinkelkarID = ..GeefWinkelkarID(Sessie)
-	Set WinkelkarImpl =..GetWinkelkarImpl(Sessie) 
-	If $isObject(WinkelkarImpl) { 
-	  
-	  Set resMethodOK = WinkelkarImpl.BetalingBevestigd(WinkelkarID,.BetalingsReferentie,.Bevestigd,.Bedrag,.Munt)
-	  If Bevestigd && ( resMethodOK ) Do ##class(WS.Web.OLParticulier.impl.Sessie).LinkNieuweWinkelkar(Sessie.Identifier)
-	  
-	  }
-	Quit resMethodOK
+<Implementation><![CDATA[	Quit 0
 ]]></Implementation>
 </Method>
 
 <Method name="GeefOrderbevestigingBccAdressen">
 <FormalSpec>Sessie:WS.Web.OLParticulier.dto.Sessie</FormalSpec>
 <ReturnType>DOM.dto.StringList</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[
-	set bccAdressen = ##class(DOM.dto.StringList).%New()
-	do bccAdressen.Insert("dummy_1@vanhoecke.be")
-	do bccAdressen.Insert("dummy_2@vanhoecke.be")
-	quit bccAdressen
+<Implementation><![CDATA[	Quit ##class(DOM.dto.StringList).%New()
 ]]></Implementation>
 </Method>
 
 <Method name="GebruikCoupon">
 <FormalSpec>Sessie:WS.Web.OLParticulier.dto.Sessie,CouponCode:%String</FormalSpec>
 <ReturnType>APPS.Web.OLParticulier.dto.CouponInfo</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[
-	$$$TECHErrorTrapOn
-	
-	$$$chkRequiredParameter(Sessie)
-	$$$chkRequiredParameter(CouponCode)
-	
-	$$$chkIsObject(Sessie)
-
-	$$$LogIncomming(WS.Web.OLParticulier.impl.Logger, GebruikCoupon)
-	
-	Set WinkelkarID = ..GeefWinkelkarID(Sessie)
-	Set WinkelkarImpl =..GetWinkelkarImpl(Sessie)
-	Set CouponInfo = ""
-	If $isObject(WinkelkarImpl)
-	{
-		Set CouponInfo = WinkelkarImpl.GebruikCoupon(WinkelkarID, CouponCode)
-	}
-	Quit CouponInfo
+<Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
 
 <Method name="IsCouponMogelijk">
 <FormalSpec>Sessie:WS.Web.OLParticulier.dto.Sessie</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[
-	$$$TECHErrorTrapOn
-	
-	$$$chkRequiredParameter(Sessie)
-	
-	$$$chkIsObject(Sessie)
-
-	$$$LogIncomming(WS.Web.OLParticulier.impl.Logger, IsCouponMogelijk)
-	
-	Set WinkelkarID = ..GeefWinkelkarID(Sessie)
-	Set WinkelkarImpl =..GetWinkelkarImpl(Sessie)
-	Set IsCouponMogelijk = 0
-	If $isObject(WinkelkarImpl)
-	{
-		Set IsCouponMogelijk = WinkelkarImpl.IsCouponMogelijk(WinkelkarID)
-	}
-	Quit IsCouponMogelijk
+<Implementation><![CDATA[	Quit 0
 ]]></Implementation>
 </Method>
 
 <Method name="VerwijderCoupon">
 <FormalSpec>Sessie:WS.Web.OLParticulier.dto.Sessie,CouponCode:%String</FormalSpec>
 <ReturnType>APPS.Web.OLParticulier.dto.CouponInfo</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[
-	$$$TECHErrorTrapOn
-	
-	$$$chkRequiredParameter(Sessie)
-	$$$chkRequiredParameter(CouponCode)
-	
-	$$$chkIsObject(Sessie)
-
-	$$$LogIncomming(WS.Web.OLParticulier.impl.Logger, VerwijderCoupon)
-	
-	Set WinkelkarID = ..GeefWinkelkarID(Sessie)
-	Set WinkelkarImpl =..GetWinkelkarImpl(Sessie)
-	Set CouponInfo = ""
-	If $IsObject(WinkelkarImpl)
-	{
-		Set CouponInfo = WinkelkarImpl.VerwijderCoupon(WinkelkarID, CouponCode)
-	}
-	Quit CouponInfo
+<Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
-
-<UDLText name="T">
-<Content><![CDATA[/* Private Methods */
-]]></Content>
-</UDLText>
-
-<Method name="GetWinkelkarImpl">
-<FormalSpec>Sessie:WS.Web.OLParticulier.dto.Sessie</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set APPSContext=##class(WS.Web.OLParticulier.impl.Sessie2APPSContext).CreateAPPSContextFromSessie(Sessie)
-	Quit APPSContext.GeefWinkelkarImpl()
-]]></Implementation>
-</Method>
-
-<Method name="GeefWinkelkarID">
-<FormalSpec>Sessie:WS.Web.OLParticulier.dto.Sessie</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	quit ##class(WS.Web.OLParticulier.impl.Sessie).GeefWinkelkarID(Sessie.Identifier)
-]]></Implementation>
-</Method>
 </Class>
 </Export>
Index: BL/Sys/Clean.cls.xml
===================================================================
diff -u -r1104 -r1558
--- BL/Sys/Clean.cls.xml	(.../Clean.cls.xml)	(revision 1104)
+++ BL/Sys/Clean.cls.xml	(.../Clean.cls.xml)	(revision 1558)
@@ -42,9 +42,6 @@
 	Set %Actie="OL : Opkuisen ongebruikte verlanglijsten"
 	Do ##class(DOM.EC.OL.Verlanglijst.Verlanglijst).VerwijderOudeVerlanglijsten()
 	
-	Set %Actie="OL : Opkuisen ongebruikte winkelkarren"
-	Do ##class(DOM.EC.OL.Winkelkar.Winkelkar).VerwijderOudeWinkelkarren()
-	
 	Quit
 
 CleanTrapD
FishEye: Tag 1558 refers to a dead (removed) revision in file `APPS/Web/OLParticulier/impl/WinkelkarAbstract.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: WS/Web/OLParticulier/impl/Sessie.cls.xml
===================================================================
diff -u -r1074 -r1558
--- WS/Web/OLParticulier/impl/Sessie.cls.xml	(.../Sessie.cls.xml)	(revision 1074)
+++ WS/Web/OLParticulier/impl/Sessie.cls.xml	(.../Sessie.cls.xml)	(revision 1558)
@@ -11,10 +11,6 @@
 <Properties>VerlanglijstID</Properties>
 </Index>
 
-<Index name="Winkelkar">
-<Properties>WinkelkarID</Properties>
-</Index>
-
 <Index name="Main">
 <IdKey>1</IdKey>
 <Properties>ID</Properties>
@@ -31,11 +27,6 @@
 <Required>1</Required>
 </Property>
 
-<Property name="WinkelkarID">
-<Type>%String</Type>
-<Required>1</Required>
-</Property>
-
 <Method name="GeefVerlanglijstID">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>SessieID:%String</FormalSpec>
@@ -50,38 +41,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefWinkelkarID">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>SessieID:%String</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	$$$chkRequiredParameter(SessieID)
-
-	if $$$Not(..%ExistsId(SessieID)) do ..Create(SessieID)
-	set WinkelkarID = ..%OpenId(SessieID).WinkelkarID
-	
-	quit WinkelkarID
-]]></Implementation>
-</Method>
-
-<Method name="LinkNieuweWinkelkar">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>SessieID:%String</FormalSpec>
-<Implementation><![CDATA[
-	set Sessie = ..%OpenId(SessieID)
-	do Sessie.CreatieWinkelkar()
-	do Sessie.%Save()
-	quit
-]]></Implementation>
-</Method>
-
-<Method name="CreatieWinkelkar">
-<Implementation><![CDATA[
-	Set ..WinkelkarID = ##class(DOM.EC.OL.Winkelkar.Winkelkar).GetNewID()
-	Quit
-]]></Implementation>
-</Method>
-
 <Method name="CreatieVerlanglijst">
 <Implementation><![CDATA[
 	set ..VerlanglijstID = ##class(DOM.EC.OL.Verlanglijst.Verlanglijst).GetNewID()
@@ -97,7 +56,6 @@
 	Set Sessie.ID = SessieID
 
 	do Sessie.CreatieVerlanglijst()
-	do Sessie.CreatieWinkelkar()
 	
 	do Sessie.%Save()
 	Quit
FishEye: Tag 1558 refers to a dead (removed) revision in file `vhUnitTest/APPS/Web/OLParticulier/Winkelkar.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
FishEye: Tag 1558 refers to a dead (removed) revision in file `APPS/Web/OLParticulier/impl/WinkelkarVisitor/LeverdatumBepaler.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?