Index: BL/Derde/Agenda/VerwisselGebruiker.cls.xml
===================================================================
diff -u
--- BL/Derde/Agenda/VerwisselGebruiker.cls.xml	(revision 0)
+++ BL/Derde/Agenda/VerwisselGebruiker.cls.xml	(revision 31829)
@@ -0,0 +1,86 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="BL.Derde.Agenda.VerwisselGebruiker">
+<ClassType/>
+<IncludeCode>BL.EC.Common</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+
+<Property name="BLGeoMobile">
+<Type>BL.Derde.Agenda.GeoMobile</Type>
+</Property>
+
+<Property name="User">
+<Type>Res.InternePersoon</Type>
+</Property>
+
+<Method name="WisselGebruiker">
+<Description>
+d ##class(BL.Derde.Agenda.VerwisselGebruiker).WisselGebruiker(17,1121,"3/07/15","24/08/15")</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>UserId1:%String,UserId2:%String,VanDatum:%String,TotDatum:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set TempUserId=17
+	Do ..VeranderGebruiker(UserId1,TempUserId,VanDatum,TotDatum)
+	Do ..VeranderGebruiker(UserId2,UserId1,VanDatum,TotDatum)
+	Do ..VeranderGebruiker(TempUserId,UserId2,VanDatum,TotDatum)
+]]></Implementation>
+</Method>
+
+<Method name="VeranderGebruiker">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>FromUserId:%String,ToUserId:%String,VanDatum:%String,TotDatum:%String</FormalSpec>
+<Implementation><![CDATA[
+ 	Set rs = ##class(%ResultSet).%New()
+	Set rs.ClassName=..%ClassName(1)
+	set rs.QueryName="GetAgendas"
+  Set sc=rs.Execute(FromUserId, $$INTDATE^vhLib.DataTypes(VanDatum), $$INTDATE^vhLib.DataTypes(TotDatum)) 
+  If $$$ISERR(sc) Do DisplayError^%apiOBJ(sc) Quit
+  while rs.Next()
+   {  
+   		Set Agenda =##class(Derde.Agenda.Agenda).%OpenId(rs.Get("ID")) 
+	  	If ..IsValid(Agenda)
+	  	{
+			w rs.Get("ID")," ",$$EXTDATE^vhLib.DataTypes(Agenda.Datum),!
+			Set ModifiedAgenda=..WijzigGebruiker(Agenda,ToUserId)
+	 	    r k
+		 }
+   }
+]]></Implementation>
+</Method>
+
+<Method name="IsValid">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Agenda:Derde.Agenda.Agenda</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit 1
+]]></Implementation>
+</Method>
+
+<Method name="WijzigGebruiker">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Agenda:Derde.Agenda.Agenda,ToUserId:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim NewAgenda as Derde.Agenda.Agenda=Agenda.%ConstructClone()
+	Do NewAgenda.GebruikerSetObjectId(ToUserId)
+	Set sc=NewAgenda.%Save()
+	If $$$ISERR(sc) Do DisplayError^%apiOBJ(sc) Quit ""
+	w "SAVE"
+	Set sc=Agenda.%DeleteId(Agenda.%Id())
+	If $$$ISERR(sc) Do DisplayError^%apiOBJ(sc) Quit ""
+	w "DELETE"
+	Quit NewAgenda
+]]></Implementation>
+</Method>
+
+<Query name="GetAgendas">
+<Type>%SQLQuery</Type>
+<FormalSpec>paGebruiker:%String,paVanDatum:%Date,paTotDatum:%Date</FormalSpec>
+<SqlQuery><![CDATA[SELECT %ID
+FROM Derde_Agenda.Agenda
+ WHERE (Gebruiker = :paGebruiker AND Datum >= :paVanDatum and Datum <=:paTotDatum)]]></SqlQuery>
+</Query>
+</Class>
+
+
+</Export>