Index: RPLNOTA.mac.rou
===================================================================
diff -u -r734 -r2520
--- RPLNOTA.mac.rou	(.../RPLNOTA.mac.rou)	(revision 734)
+++ RPLNOTA.mac.rou	(.../RPLNOTA.mac.rou)	(revision 2520)
@@ -135,7 +135,7 @@
 	SELECT ID,Datum,TijdVan,TijdTot,Gebruiker->Initialen,KlantTekst,InternTekst
     INTO AgID,AgDatum,AgTijdVan,AgTijdTot,AgGebruiker,AgKlantOms,AgInternOms
 	FROM Derde_Agenda.Agenda
-    WHERE  Datum<=:VanDat and Datum>=:TotDat and Klant=:KLNr
+    WHERE  Datum<=:VanDat and Datum>=:TotDat and (Klant=:KLNr OR Architect=:KLNr)
     ORDER BY Datum,TijdVan,TijdTot ASC)
  	&sql(OPEN FetchAgenda)
  	For  &sql(FETCH FetchAgenda) Quit:SQLCODE  Do