Index: vhUnitTest/Derde/Agenda/ToonzaalBezoek.cls.xml
===================================================================
diff -u -r2159 -r2268
--- vhUnitTest/Derde/Agenda/ToonzaalBezoek.cls.xml	(.../ToonzaalBezoek.cls.xml)	(revision 2159)
+++ vhUnitTest/Derde/Agenda/ToonzaalBezoek.cls.xml	(.../ToonzaalBezoek.cls.xml)	(revision 2268)
@@ -117,8 +117,9 @@
 
 <Method name="TestAddToonzaalBezoek">
 <Implementation><![CDATA[
-	 set pxToonzaalBezoek = ##class(BL.Derde.Agenda.pxToonzaalBezoek).%New()
+	 set pxToonzaalBezoek = ##class(BL.Derde.Agenda.pxAgenda).%New()
 	 
+	 set pxToonzaalBezoek.Type = "TZ"
 	 set pxToonzaalBezoek.Aanleiding = 2
 	 set pxToonzaalBezoek.AantalPersonenEindgebruiker = 2
 	 
@@ -155,16 +156,16 @@
 	 
 	 do pxToonzaalBezoek.Interacties.Insert(dtoBehandeldOnderwerp)
 	 
-	 set scStore = ##class(BL.Derde.Agenda.ToonzaalBezoek).Create(pxToonzaalBezoek.Gebruiker).StoreToonzaalBezoek(pxToonzaalBezoek)
+	 set scStore = ##class(BL.Derde.Agenda.Agenda).Create(pxToonzaalBezoek.Gebruiker).StoreAgenda(pxToonzaalBezoek)
 	 do $$$AssertTrue(scStore,"Save ToonzaalBezoek_1")
 	 
 	 set pxToonzaalBezoek = ""
 	 
  	 set SubID = $order(^Derde.Agenda.AgendaD(22,+$horolog,""),-1)
  	 set ToonzaalbezoekId = "22||"_+$horolog_"||"_SubID
  
-  	 set ToonzaalBezoek = ##class(Derde.Agenda.ToonzaalBezoek).%OpenId(ToonzaalbezoekId)
-	 set pxToonzaalBezoek = ##class(BL.Derde.Agenda.pxToonzaalBezoek).%New()
+  	 set ToonzaalBezoek = ##class(Derde.Agenda.Agenda).%OpenId(ToonzaalbezoekId)
+	 set pxToonzaalBezoek = ##class(BL.Derde.Agenda.pxAgenda).%New()
 	 
 	 do ToonzaalBezoek.Object2Proxy(ToonzaalBezoek,pxToonzaalBezoek)
 	 
@@ -179,6 +180,8 @@
  	 
  	 do $$$AssertEquals(pxToonzaalBezoek.Aanleiding,2,"Aanleiding")
  	 
+ 	 do $$$AssertEquals(pxToonzaalBezoek.Type,"TZ","Type")
+ 	 
  	 do $$$AssertEquals(pxToonzaalBezoek.Architect.ID,14438)
 	 do $$$AssertEquals(pxToonzaalBezoek.AantalPersonenArchitect,1)
 	 
@@ -190,6 +193,7 @@
 	 while qHandler.Next()
 	  { set BehandeldOnderwerp = ##class(DOM.CRM.BehandeldOnderwerp.BehandeldOnderwerp).%OpenId(qHandler.Get("ID"))
         do $$$AssertEquals(BehandeldOnderwerp.OnderwerpGetObjectId(),"UnitTestGroep||UnitTestOnderwerp")
+        do $$$AssertTrue($isObject(BehandeldOnderwerp.Onderwerp),"Test op object")
         do $$$AssertEquals(BehandeldOnderwerp.Acties.GetAt(1).Actie.Omschrijving,"UnitTestActie1")
         do $$$AssertEquals(BehandeldOnderwerp.Acties.GetAt(1).ParamValue,1)
         do $$$AssertEquals(BehandeldOnderwerp.Acties.GetAt(2).Actie.Omschrijving,"UnitTestActie2")
@@ -199,11 +203,11 @@
 	 
 	 set pxToonzaalBezoek.KlantTekst = ..Data("KlantTekst")_" 2nd save "
 	 
-	 set scStore = ##class(BL.Derde.Agenda.ToonzaalBezoek).Create(pxToonzaalBezoek.Gebruiker).StoreToonzaalBezoek(pxToonzaalBezoek)
+	 set scStore = ##class(BL.Derde.Agenda.Agenda).Create(pxToonzaalBezoek.Gebruiker).StoreAgenda(pxToonzaalBezoek)
 	 do $$$AssertTrue(scStore,"Save ToonzaalBezoek_2")
 	 
-	 set ToonzaalBezoek = ##class(Derde.Agenda.ToonzaalBezoek).%OpenId(ToonzaalbezoekId)
-	 set pxToonzaalBezoek = ##class(BL.Derde.Agenda.pxToonzaalBezoek).%New()
+	 set ToonzaalBezoek = ##class(Derde.Agenda.Agenda).%OpenId(ToonzaalbezoekId)
+	 set pxToonzaalBezoek = ##class(BL.Derde.Agenda.pxAgenda).%New()
 	 
 	 do ToonzaalBezoek.Object2Proxy(ToonzaalBezoek,pxToonzaalBezoek)
 	 
Index: WS/Derde/Agenda/AgendaServer.cls.xml
===================================================================
diff -u -r2263 -r2268
--- WS/Derde/Agenda/AgendaServer.cls.xml	(.../AgendaServer.cls.xml)	(revision 2263)
+++ WS/Derde/Agenda/AgendaServer.cls.xml	(.../AgendaServer.cls.xml)	(revision 2268)
@@ -263,28 +263,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GetToonzaalBezoek">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>SessionKey,UserID:%Integer,Datum:%String,SubID:%String</FormalSpec>
-<ReturnType>BL.Derde.Agenda.pxAgenda</ReturnType>
-<WebMethod>1</WebMethod>
-<Implementation><![CDATA[
-	$$$TECHErrorTrapOn
-	
-	$$$ReInstateSession(SessionKey)
-
-	$$$AddToLog($$$logGrpAgenda,"AGENDA","Get","UserID: "_UserID_", Datum: "_Datum_", SubID: "_SubID)
-
-	Set BL=##class(BL.Derde.Agenda.Agenda).%New()
-	Do BL.Initialize(UserID)
-	Set Datum=$ZDH($TR(Datum,"./- ",""),5) ; omvormen naar $H formaat
-	Set Result=BL.GetAgenda(Datum,SubID)
-	
-	$$$TECHErrorTrapOff
-	Quit Result
-]]></Implementation>
-</Method>
-
 <Method name="StoreAgenda">
 <Description><![CDATA[
 Opslaan van een agenda-item, de agenda gegevens zitten vervat in de structuur pxAgenda<BR>
@@ -580,7 +558,7 @@
 	$$$ReInstateSession(SessionKey)
 
 	Set Info = "Naam: "_pxEindgebruiker.Naam _ "ID : " _pxEindgebruiker.ID
-	$$$AddToLog($$$logGrpAgenda,"TOONZAALBEZOEK","StoreEindgebruiker",Info)
+	$$$AddToLog($$$logGrpAgenda,"Agenda","StoreEindgebruiker",Info)
 
 	Set scStore = ##class(Derde.Agenda.Eindgebruiker).StoreEindgebruiker(pxEindgebruiker)
 
@@ -592,34 +570,9 @@
 ]]></Implementation>
 </Method>
 
-<Method name="StoreToonzaalBezoek">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>SessionKey,pxToonzaalBezoek:BL.Derde.Agenda.pxToonzaalBezoek</FormalSpec>
-<ReturnType>BL.Derde.Agenda.pxStatus</ReturnType>
-<WebMethod>1</WebMethod>
-<Implementation><![CDATA[
-	$$$TECHErrorTrapOn
-	
-	$$$ReInstateSession(SessionKey)
-
-	$$$AddToLog($$$logGrpAgenda,"TOONZAALBEZOEK","StoreToonzaalBezoek","")
-	
-	Set scStore = ##class(BL.Derde.Agenda.ToonzaalBezoek).Create(pxToonzaalBezoek.Gebruiker).StoreToonzaalBezoek(pxToonzaalBezoek,.ToonzaalBezoekID)
-
-	Set Result=##class(BL.Derde.Agenda.pxStatus).%New()
-	if scStore { 
-		set Result.Status = scStore
-		set Result.Data = ToonzaalBezoekID 
-	}
-    else { Set Result.Status=$$ParseStatus^vhLib(scStore) }
-    $$$TECHErrorTrapOff
-	Quit Result
-]]></Implementation>
-</Method>
-
 <Method name="GetAanleidingen">
 <Description>
-Ophalen van de mogelijke aanleidingen die geven tot een toonzaalbezoek</Description>
+Ophalen van de mogelijke aanleidingen die geven tot een bezoek</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>SessionKey:%String</FormalSpec>
 <ReturnType>BL.EC.pxXMLDataSet</ReturnType>
@@ -629,7 +582,7 @@
 	
 	$$$ReInstateSession(SessionKey)
 
-	$$$AddToLog($$$logGrpAgenda,"TOONZAALBEZOEK","GetAanleidingen","")
+	$$$AddToLog($$$logGrpAgenda,"Agenda","GetAanleidingen","")
 	
 	Set Result=##class(BL.EC.pxXMLDataSet).%New("BL.Derde.Agenda.AgendaServer:AanleidingList")
 	Set Result.DiffGram=0
@@ -642,7 +595,7 @@
 
 <Method name="GetCateringTypes">
 <Description>
-Ophalen van de mogelijke cateringtypes die gebruikt kunnen worden bij een toonzaalbezoek</Description>
+Ophalen van de mogelijke cateringtypes die gebruikt kunnen worden bij een bezoek</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>SessionKey:%String</FormalSpec>
 <ReturnType>BL.EC.pxXMLDataSet</ReturnType>
@@ -652,7 +605,7 @@
 	
 	$$$ReInstateSession(SessionKey)
 
-	$$$AddToLog($$$logGrpAgenda,"TOONZAALBEZOEK","GetCateringTypes","")
+	$$$AddToLog($$$logGrpAgenda,"Agenda","GetCateringTypes","")
 	
 	Set Result=##class(BL.EC.pxXMLDataSet).%New("BL.Derde.Agenda.AgendaServer:CateringList")
 	Set Result.DiffGram=0
@@ -672,7 +625,7 @@
 
 	$$$ReInstateSession(SessionKey)
 
-	$$$AddToLog($$$logGrpAgenda,"TOONZAALBEZOEK","GetCateringTypes","")
+	$$$AddToLog($$$logGrpAgenda,"Agenda","ZoekEindGebruiker","")
 	
 	Set Result=##class(BL.EC.pxXMLDataSet).%New("BL.Derde.Agenda.AgendaServer:ZoekEindGebruiker")
 	Do Result.SetArgs(pxZoekOpties)
FishEye: Tag 2268 refers to a dead (removed) revision in file `BL/Derde/Agenda/pxToonzaalBezoek.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: BL/Derde/Agenda/pxAgenda.cls.xml
===================================================================
diff -u -r2154 -r2268
--- BL/Derde/Agenda/pxAgenda.cls.xml	(.../pxAgenda.cls.xml)	(revision 2154)
+++ BL/Derde/Agenda/pxAgenda.cls.xml	(.../pxAgenda.cls.xml)	(revision 2268)
@@ -154,5 +154,21 @@
 <Type>APPS.CRM.Interacties.dto.BehandeldOnderwerp.BehandeldOnderwerp</Type>
 <Collection>list</Collection>
 </Property>
+
+<Property name="Aanleiding">
+<Type>%String</Type>
+</Property>
+
+<Property name="AantalPersonenArchitect">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="AantalPersonenEindgebruiker">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="Catering">
+<Type>%String</Type>
+</Property>
 </Class>
 </Export>
FishEye: Tag 2268 refers to a dead (removed) revision in file `BL/Derde/Agenda/ToonzaalBezoek.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?