Index: BL/Derde/Agenda/Agenda.cls.xml
===================================================================
diff -u -r1074 -r1089
--- BL/Derde/Agenda/Agenda.cls.xml	(.../Agenda.cls.xml)	(revision 1074)
+++ BL/Derde/Agenda/Agenda.cls.xml	(.../Agenda.cls.xml)	(revision 1089)
@@ -245,23 +245,61 @@
  	. If eMail[(";"_Initialen_";"),IPNr Do Agenda.eMailIntern.InsertObjectId(IPNr)
  	&sql(CLOSE IPLIJST)
 
- 	
 	Set Ok=Agenda.%Save()
 	Set Result=##class(pxStatus).%New()
 	if Ok { 
 		set Result.Status=Ok 
 		set Result.Data = Agenda.%Id() 
 	}
+
+	if Ok && pxAgenda.Type="B" {
+	   set dtoOorsprong = ##class(APPS.CRM.Interacties.dto.Oorsprong).%New()
+	   set dtoOorsprong.Type = "Bezoek"
+	   set dtoOorsprong.ID = Agenda.%Id()
+	   set Ok = ..StoreInteracties(pxAgenda.Interacties , dtoOorsprong ) 
+	 }
+
 	Set:'Ok Result.Status=$$ParseStatus^vhLib(Ok)
+
+	if Ok Do ..AfterStoreActions(Agenda)
+	
+	Quit Result
+]]></Implementation>
+</Method>
+
+<Method name="AfterStoreActions">
+<FormalSpec>Agenda</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
 	Do ..SendMailExtern(Agenda) ; Verslag doormailen naar de klant
 	Do ..SendMailIntern(Agenda) ; Verslag doormailen naar interne
 	Do ..StoreLookUp(Agenda) ; Lookup bijhouden voor de volgende keer
 	Do ..RijdenWerkPrive(Agenda.Datum)
 
-	Quit Result
+	quit
 ]]></Implementation>
 </Method>
 
+<Method name="StoreInteracties">
+<FormalSpec>Interacties,dtoOorsprong</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	set lbResult = ""
+	
+	set IdxInteractie = ""
+	for { set dtoBehandeldOnderwerp = Interacties.GetNext(.IdxInteractie) quit:IdxInteractie="" 
+	 	if $$$Not($length(dtoBehandeldOnderwerp.ID)) set lbResult = ##class(APPS.CRM.Interacties.BehandeldOnderwerp).CreateRegistratie(dtoBehandeldOnderwerp,dtoOorsprong)
+	 	else  set lbResult = ##class(APPS.CRM.Interacties.BehandeldOnderwerp).UpdateRegistratie(dtoBehandeldOnderwerp)
+	  
+	 	quit:$listlength(lbResult) 
+	}
+	
+	if $listlength(lbResult) Set Status = $$$ERROR($$$GeneralError,$$LCVT^vhLib(lbResult))
+	
+	quit $get(Status,$$$OK)
+]]></Implementation>
+</Method>
+
 <Method name="OpenOrCreateAgendaObject">
 <FormalSpec>pxAgenda</FormalSpec>
 <ReturnType>Derde.Agenda.Agenda</ReturnType>
Index: DOM/CRM/Oorsprong/Bezoek.cls.xml
===================================================================
diff -u
--- DOM/CRM/Oorsprong/Bezoek.cls.xml	(revision 0)
+++ DOM/CRM/Oorsprong/Bezoek.cls.xml	(revision 1089)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="DOM.CRM.Oorsprong.Bezoek">
+<ClassType>persistent</ClassType>
+<IncludeCode>vhLib.Macro</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.CRM.Oorsprong.Abstract</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Oorsprong">
+<Type>Derde.Agenda.Agenda</Type>
+</Property>
+
+<Method name="IsValidID">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ID:%String</FormalSpec>
+<ReturnType>%List</ReturnType>
+<Implementation><![CDATA[
+	set lbResult = ""
+	if $$$Not(##class(Derde.Agenda.Agenda).%ExistsId(ID)) 
+	  {  Set lbResult = lbResult _ $listbuild($listbuild(1000,"ID Bezoek is onbestaand")) }
+	
+	Quit lbResult
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>BezoekDefaultData</DefaultData>
+<Data name="BezoekDefaultData">
+<Structure>listnode</Structure>
+<Subscript>"Bezoek"</Subscript>
+<Value name="1">
+<Value>Oorsprong</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: BL/Derde/Agenda/ToonzaalBezoek.cls.xml
===================================================================
diff -u -r1074 -r1089
--- BL/Derde/Agenda/ToonzaalBezoek.cls.xml	(.../ToonzaalBezoek.cls.xml)	(revision 1074)
+++ BL/Derde/Agenda/ToonzaalBezoek.cls.xml	(.../ToonzaalBezoek.cls.xml)	(revision 1089)
@@ -8,8 +8,6 @@
 <Method name="StoreToonzaalBezoek">
 <FormalSpec><![CDATA[pxToonzaalBezoek:BL.Derde.Agenda.pxToonzaalBezoek,&ToonzaalBezoekID:%String=""]]></FormalSpec>
 <Implementation><![CDATA[
-	
-	
 	if $length(pxToonzaalBezoek.ID) set ToonzaalBezoek = ##class(Derde.Agenda.ToonzaalBezoek).%OpenId(pxToonzaalBezoek.ID)
 	else  Set ToonzaalBezoek = ##class(Derde.Agenda.ToonzaalBezoek).%New()
 	
@@ -24,32 +22,11 @@
 	   set dtoOorsprong.ID = ToonzaalBezoek.%Id()
 	   set scSaved = ..StoreInteracties(pxToonzaalBezoek.Interacties , dtoOorsprong ) 
 	 }
-	
+
+	if scSaved do ..AfterStoreActions(ToonzaalBezoek)
+
 	quit scSaved
 ]]></Implementation>
 </Method>
-
-<Method name="StoreInteracties">
-<FormalSpec>Interacties,dtoOorsprong</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	
-	set lbResult = ""
-	
-	set IdxInteractie = ""
-	for { 
-	 set dtoBehandeldOnderwerp = Interacties.GetNext(.IdxInteractie) 
-	 quit:IdxInteractie="" 
-	 
-	 if $$$Not($length(dtoBehandeldOnderwerp.ID)) set lbResult = ##class(APPS.CRM.Interacties.BehandeldOnderwerp).CreateRegistratie(dtoBehandeldOnderwerp,dtoOorsprong)
-	 else  set lbResult = ##class(APPS.CRM.Interacties.BehandeldOnderwerp).UpdateRegistratie(dtoBehandeldOnderwerp)
-	  
-	 quit:$listlength(lbResult) }
-	 
-	 if $listlength(lbResult) Set Status = $$$ERROR($$$GeneralError,$$LCVT^vhLib(lbResult))
-	
-	quit $get(Status,$$$OK)
-]]></Implementation>
-</Method>
 </Class>
 </Export>
Index: APPS/CRM/Interacties/BehandeldOnderwerp.cls.xml
===================================================================
diff -u -r1073 -r1089
--- APPS/CRM/Interacties/BehandeldOnderwerp.cls.xml	(.../BehandeldOnderwerp.cls.xml)	(revision 1073)
+++ APPS/CRM/Interacties/BehandeldOnderwerp.cls.xml	(.../BehandeldOnderwerp.cls.xml)	(revision 1089)
@@ -98,10 +98,9 @@
 	set dtoMetadata = ##class(APPS.CRM.Interacties.dto.Metadata).%New()
 	
 	set query = " SELECT Metadata , Metadata->Onderwerp AS Onderwerp , Toepassingen_Toepassing AS Toepassing" _
-				" FROM DOM_CRM_Interacties.Metadata_Toepassingen " _
-				" WHERE Toepassingen_Toepassing = ? AND Toepassingen_KlantDivisie = ? "
+				" FROM DOM_CRM_Interacties.Metadata_Toepassingen "
 	
-	set qHandler = $$ExecDynQuery^vhQUERYLIB(query,$listbuild(Toepassing,KlantDivisie))
+	set qHandler = $$ExecDynQuery^vhQUERYLIB(query)
 	while qHandler.Next()
 	 { set Metadata = ##class(DOM.CRM.Interacties.Metadata).%OpenId(qHandler.Get("Metadata"))
 	   
@@ -113,7 +112,7 @@
 	     set Item.GroepID = Onderwerp.Groep.%Id()
 	     set Item.OnderwerpID = OnderwerpID
 	     set Item.Onderwerp = Onderwerp.Omschrijving 
-	     set Item.ToepassingID = qHandler.Get("Toepassing")
+	     set Item.ToepassingID = Toepassing
 	     do dtoMetadata.Items.Insert(Item) 
 	     }