Index: WS/Derde/Agenda/AgendaServer.cls.xml
===================================================================
diff -u -r913 -r995
--- WS/Derde/Agenda/AgendaServer.cls.xml	(.../AgendaServer.cls.xml)	(revision 913)
+++ WS/Derde/Agenda/AgendaServer.cls.xml	(.../AgendaServer.cls.xml)	(revision 995)
@@ -1,10 +1,10 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-23 08:43:38">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-03-28 11:06:17">
 <Class name="WS.Derde.Agenda.AgendaServer">
 <IncludeCode>BL.EC.Common</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%SOAP.WebService</Super>
-<TimeChanged>62145,31480.447439</TimeChanged>
+<TimeChanged>62178,39976.158415</TimeChanged>
 <TimeCreated>59771,30227.507488</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -202,6 +202,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwijderAgenda">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>SessionKey,UserID:%Integer,Datum:%String,SubID:%String</FormalSpec>
+<ReturnType>BL.Derde.Agenda.pxAgenda</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$ReInstateSession(SessionKey)
+
+	$$$AddToLog($$$logGrpAgenda,"AGENDA","Verwijder","UserID: "_UserID_", Datum: "_Datum_", SubID: "_SubID)
+	
+	Set BL=##class(BL.Derde.Agenda.Agenda).%New()
+	set Identifier = UserID_"||"_Datum_"||"_SubID
+	quit BL.VerwijderAgendaObject(Identifier)
+]]></Implementation>
+</Method>
+
 <Method name="GetToonzaalBezoek">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>SessionKey,UserID:%Integer,Datum:%String,SubID:%String</FormalSpec>
@@ -653,5 +669,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="4009018278"/>
+<Checksum value="2750196847"/>
 </Export>