Index: vhUnitTest/APPS/CRM/Interacties.cls.xml
===================================================================
diff -u -r1133 -r1227
--- vhUnitTest/APPS/CRM/Interacties.cls.xml	(.../Interacties.cls.xml)	(revision 1133)
+++ vhUnitTest/APPS/CRM/Interacties.cls.xml	(.../Interacties.cls.xml)	(revision 1227)
@@ -13,7 +13,8 @@
  	set sc = ##super() 
  
    	do ExecDynQuery^vhQUERYLIB("DELETE FROM DOM_CRM_BehandeldOnderwerp.BehandeldOnderwerp WHERE KLANT = ?",$listbuild(1000))
- 
+   	do ..AanmakenTestBezoek(),..AanmakenOnderwerpen()
+
  	quit $$$OK
 ]]></Implementation>
 </Method>
@@ -22,20 +23,23 @@
 <Description>
 TestAddRegistratie_Klant_1000</Description>
 <Implementation><![CDATA[
+  
   set lbSaved = ..AddRegistratie01()
   do $$$AssertEquals(lbSaved,"")
   
+  quit:lbSaved'=""
+  
   set Registraties = ##class(APPS.CRM.Interacties.BehandeldOnderwerp).GetRegistraties(1000)
   set amRegistraties = Registraties.BehandeldeOnderwerpen.Count()
   
   Do $$$AssertEquals(amRegistraties,1)
   
   set dtoBehandeldOnderwerp = Registraties.BehandeldeOnderwerpen.GetAt(1)
   
-  Do $$$AssertEquals(dtoBehandeldOnderwerp.Acties.GetAt(1),"Bestelling")
+  Do $$$AssertEquals(dtoBehandeldOnderwerp.Acties.GetAt(1),"UnitTestActie1")
   Do $$$AssertEquals(dtoBehandeldOnderwerp.ActieWaarden.GetAt(1),1)
 
-  Do $$$AssertEquals(dtoBehandeldOnderwerp.Acties.GetAt(2),"Brochure")
+  Do $$$AssertEquals(dtoBehandeldOnderwerp.Acties.GetAt(2),"UnitTestActie2")
   Do $$$AssertEquals(dtoBehandeldOnderwerp.ActieWaarden.GetAt(2),3)
  
   Do $$$AssertEquals(dtoBehandeldOnderwerp.DerdeType,"K")
@@ -58,10 +62,10 @@
 
   set dtoBehandeldOnderwerp = ##class(APPS.CRM.Interacties.dto.BehandeldOnderwerp.BehandeldOnderwerp).%New()
 
-  set dtoBehandeldOnderwerp.OnderwerpID = "Product||Aventos"
+  set dtoBehandeldOnderwerp.OnderwerpID = "UnitTestGroep||UnitTestOnderwerp"
   
-  do dtoBehandeldOnderwerp.Acties.Insert("Bestelling")
-  do dtoBehandeldOnderwerp.Acties.Insert("Brochure")
+  do dtoBehandeldOnderwerp.Acties.Insert("UnitTestActie1")
+  do dtoBehandeldOnderwerp.Acties.Insert("UnitTestActie2")
   
   do dtoBehandeldOnderwerp.ActieWaarden.Insert(1)
   do dtoBehandeldOnderwerp.ActieWaarden.Insert(3)
@@ -73,9 +77,50 @@
   set dtoBehandeldOnderwerp.DerdeID = "1000"
   
   set lbResult = ##class(APPS.CRM.Interacties.BehandeldOnderwerp).CreateRegistratie(dtoBehandeldOnderwerp,dtoOorsprong)
+  
+  quit lbResult
 ]]></Implementation>
 </Method>
 
+<Method name="AanmakenTestBezoek">
+<Private>1</Private>
+<Implementation><![CDATA[
+	set pxBezoek = ##class(BL.Derde.Agenda.pxAgenda).%New()
+	set pxBezoek.ID = "22||61894||42"
+	set pxBezoek.Gebruiker = 22
+	set pxBezoek.Datum = $zd(61894,3)
+	set pxBezoek.TijdVan = "09:00"
+	set pxBezoek.TijdTot = "10:00"
+	set pxBezoek.TijdDuur = "01:00"
+	set pxBezoek.DerdeType = "K"
+	set pxBezoek.DerdeRef = 1000
+	set pxBezoek.Type = "B"
+	set pxBezoek.SubID = 42
+
+
+	set blAgenda = ##class(BL.Derde.Agenda.Agenda).Create(22)
+	
+	set pxStatus = blAgenda.StoreAgenda(pxBezoek,.ID)
+]]></Implementation>
+</Method>
+
+<Method name="AanmakenOnderwerpen">
+<Private>1</Private>
+<Implementation><![CDATA[
+	
+	set Groep = ##class(DOM.CRM.BehandeldOnderwerp.Groep).%New()
+	set Groep.Omschrijving = "UnitTestGroep"
+	do Groep.%Save()
+	
+	set Onderwerp = ##class(DOM.CRM.BehandeldOnderwerp.Onderwerp).%New()
+	do Onderwerp.GroepSetObjectId("UnitTestGroep")
+	set Onderwerp.Omschrijving = "UnitTestOnderwerp"
+	do Onderwerp.%Save()
+	
+	quit
+]]></Implementation>
+</Method>
+
 <Method name="TestAddRegistratie02">
 <Description>
 TestAddRegistratie_GeenKlantOfLeverancier</Description>
@@ -86,10 +131,10 @@
 
   set dtoBehandeldOnderwerp = ##class(APPS.CRM.Interacties.dto.BehandeldOnderwerp.BehandeldOnderwerp).%New()
 
-  set dtoBehandeldOnderwerp.OnderwerpID = "Product||Aventos"
+  set dtoBehandeldOnderwerp.OnderwerpID = "UnitTestGroep||UnitTestOnderwerp"
   
-  do dtoBehandeldOnderwerp.Acties.Insert("Bestelling")
-  do dtoBehandeldOnderwerp.Acties.Insert("Brochure")
+  do dtoBehandeldOnderwerp.Acties.Insert("UnitTestActie1")
+  do dtoBehandeldOnderwerp.Acties.Insert("UnitTestActie2")
   
   do dtoBehandeldOnderwerp.ActieWaarden.Insert(1)
   do dtoBehandeldOnderwerp.ActieWaarden.Insert(3)
@@ -117,10 +162,10 @@
 
   set dtoBehandeldOnderwerp = ##class(APPS.CRM.Interacties.dto.BehandeldOnderwerp.BehandeldOnderwerp).%New()
 
-  set dtoBehandeldOnderwerp.OnderwerpID = "Product||Aventos"
+  set dtoBehandeldOnderwerp.OnderwerpID = "UnitTestGroep||UnitTestOnderwerp"
   
-  do dtoBehandeldOnderwerp.Acties.Insert("Bestelling")
-  do dtoBehandeldOnderwerp.Acties.Insert("Brochure")
+  do dtoBehandeldOnderwerp.Acties.Insert("UnitTestActie1")
+  do dtoBehandeldOnderwerp.Acties.Insert("UnitTestActie2")
   
   do dtoBehandeldOnderwerp.ActieWaarden.Insert(1)
   do dtoBehandeldOnderwerp.ActieWaarden.Insert(3)