Index: BL/Derde/Agenda/Agenda.cls.xml
===================================================================
diff -u -r2707 -r2721
--- BL/Derde/Agenda/Agenda.cls.xml	(.../Agenda.cls.xml)	(revision 2707)
+++ BL/Derde/Agenda/Agenda.cls.xml	(.../Agenda.cls.xml)	(revision 2721)
@@ -376,13 +376,18 @@
 <FormalSpec>Agenda</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
+	
 	Set:'$isObject(Agenda) Agenda=##class(Derde.Agenda.Agenda).%OpenId(Agenda)
 	Quit:'$isObject(Agenda)
+	Set Derde = Agenda.Klant
+	If '$IsObject(Derde){
+		Set Derde = Agenda.Architect	
+	} 
 	Quit:$TR(Agenda.KlantTekst,"~ ","")="" ; Geen tekst
 	;Quit:Agenda.eMailVerzondenOp'="" ; Reeds verzonden
-	Quit:'$isObject(Agenda.Klant) ; Geen klant
+	Quit:'$isObject(Derde) ; Geen klant
 	Quit:Agenda.Type'?1(1"B",1"T") ; alleen bezoek en telefoon
-	Set %Taal=Agenda.Klant.Taal
+	Set %Taal=Derde.Taal
 	Set Subject=$$$Translate($S(Agenda.Type="T":"AG:Verslag telefoon",1:"AG:Verslag bezoek"))_" "_$$FormatDateTime^vhLib("dd-mmm-jj",Agenda.Datum,%Taal)
 	Set GesprokenMetTekst="" 
 	Set To=""
@@ -450,10 +455,14 @@
 <Implementation><![CDATA[
  	New (Agenda,%this)
 	s %ClientIP="192.168.1.15"
-
+	
 	Set:'$isObject(Agenda) Agenda=##class(Derde.Agenda.Agenda).%OpenId(Agenda)
 	Quit:'$isObject(Agenda)
-	Quit:'$isObject(Agenda.Klant) ; Geen klant
+	Set Derde = Agenda.Klant
+	If '$IsObject(Derde){
+		Set Derde = Agenda.Architect	
+	}
+	Quit:'$isObject(Derde) ; Geen klant
 	Quit:($TR(Agenda.KlantTekst,"~ ","")="")&&($TR(Agenda.InternTekst,"~ ","")="") ; Geen tekst
 	Set Subject="Verslag van bezoek op "_$$FormatDateTime^vhLib("dd-mmm-jj",Agenda.Datum,"N")
 	
@@ -467,9 +476,10 @@
 	
 	; Vanuit de Agenda zijn er geen interne gebruikers opgegeven -> defaulten naar interne gebruikers
   	Set Q="K",D="\",U=";"
+  	Set VerslagGrp=""
+  	Set VerslagDerdeID = ""
  	If $isObject(Agenda.Klant)&&'Agenda.eMailIntern.Count() { 
-	 	 Set VerslagGrp=""
-	 	 
+	 	 Set VerslagDerdeID = Agenda.Klant.%Id()
 	 	 if ( (Agenda.Klant.Sektor>0)&&(Agenda.Klant.Sektor<10) ) || ( (Agenda.Klant.Sektor>39)&&(Agenda.Klant.Sektor<99) ) {
 		 	set VerslagGrp="GeoVerslagIP"
 	 	 }
@@ -482,21 +492,27 @@
 	 	 if (Agenda.Klant.Sektor>29)&&(Agenda.Klant.Sektor<39) {
 		 	set VerslagGrp="GeoVerslagAR"
 	 	 }
-	 	 
-		 Set IPNr=$S(VerslagGrp["KS":"",1:$$INTVW^KLOPV(Agenda.Klant.%Id()))
-		 Set:IPNr&&(";"_InternTo_";")'[(";"_IPNr_";") InternTo=InternTo_$S($L(InternTo):";",1:"")_IPNr ; interne verantw
-		 Set InternTo=InternTo_$S($L(InternTo)&&$L(VerslagGrp):";",1:"")_VerslagGrp
- 	}
+ 	}elseif($isObject(Agenda.Architect)&&'Agenda.eMailIntern.Count()){
+	 	Set VerslagDerdeID = Agenda.Architect.%Id()
+		 set VerslagGrp="GeoVerslagAR"	
+	}
+	
+	If (VerslagGrp '= ""){
+		
+		Set IPNr=$S(VerslagGrp["KS":"",1:$$INTVW^KLOPV(VerslagDerdeID))
+	 	Set:IPNr&&(";"_InternTo_";")'[(";"_IPNr_";") InternTo=InternTo_$S($L(InternTo):";",1:"")_IPNr ; interne verantw
+		Set InternTo=InternTo_$S($L(InternTo)&&$L(VerslagGrp):";",1:"")_VerslagGrp	
+	}
 
  	Quit:InternTo="" ; geen interne gebruikers
  	
-	If $isObject(Agenda.Klant) Do
+	If $isObject(Derde) Do
 	. Set BetrTyp="KL"
-	. Set Betreft=Agenda.Klant.%Id()
+	. Set Betreft=Derde.%Id()
 	. Set Lnk=1,Lnk(1)="KL\"_Betreft_"\R\L"
 	Else  If $isObject(Agenda.Leverancier) Do
 	. Set BetrTyp="LE"
-	. Set Betreft=Agenda.Klant.%Id()
+	. Set Betreft=Agenda.Leverancier.%Id()
 	Else  If Agenda.Prospect'="" Do
 	. Set Body($I(Body))="Prospect:"_Agenda.Prospect_"~~"