Index: vhLib/LogViewer.cls.xml
===================================================================
diff -u -r821 -r2042
--- vhLib/LogViewer.cls.xml	(.../LogViewer.cls.xml)	(revision 821)
+++ vhLib/LogViewer.cls.xml	(.../LogViewer.cls.xml)	(revision 2042)
@@ -17,7 +17,7 @@
 </Method>
 
 <Method name="GeefSqlStatementMetFilters">
-<FormalSpec>AantalDagen:%Integer,FilterGroepenIterator:TECH.Iterator,FilterNiveauIterator:TECH.Iterator,BijkomendeCondities:%ListOfDataTypes</FormalSpec>
+<FormalSpec>AantalDagen:%Integer,FilterGroepenIterator:TECH.Iterator,FilterNiveauIterator:TECH.Iterator,BijkomendeCondities:%ListOfDataTypes,EnkelTeTrierenOfBehandelen:%Boolean=0</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set QueryBuilder = ##class(TECH.Algo.SQL.QueryEngine.QueryBuilder).%New()
@@ -35,6 +35,9 @@
 	If FilterNiveauIterator.HasNext() { 
 		Do Conditie.VoegToeSubconditie( ..GeefSubConditieVoorFilter(FilterNiveauIterator,"Niveau") )
 	}
+	If EnkelTeTrierenOfBehandelen {
+		Do Conditie.VoegToeSubconditie(##class(TECH.Algo.SQL.QueryEngine.EnkelvoudigeConditie).%New("(TeBehandelen=1 OR TeBehandelen is null)"))
+	}
 	
 	Set BijkomendeConditieIt = ##class(TECH.ListIterator).%New(BijkomendeCondities)
 	While BijkomendeConditieIt.HasNext(){
@@ -48,7 +51,7 @@
 	Do QueryBuilder.ZetWhereConditie(Conditie)
 	
 	#dim Veld As %String
-	For Veld="Datum", "Tijd", "Groep", "Niveau", "Actie", "JobID", "Gebruiker", "DetailTrunc As Detail" {
+	For Veld="Datum", "Tijd", "Groep", "Niveau", "Actie", "JobID", "Gebruiker", "GekendeExceptie->StoryID As Story", "DetailTrunc As Detail" {
 		Do QueryBuilder.SelecteerVeldVanTabel(Veld,Tabel)
 	}
 	
Index: vhLib/Logging.cls.xml
===================================================================
diff -u -r1507 -r2042
--- vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 1507)
+++ vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 2042)
@@ -129,6 +129,15 @@
 <Parameter name="TRUNCATE" value="1"/>
 </Property>
 
+<Property name="TeBehandelen">
+<Type>%Boolean</Type>
+<InitialExpression>1</InitialExpression>
+</Property>
+
+<Property name="GekendeExceptie">
+<Type>TECH.Exceptions.GekendeExceptie</Type>
+</Property>
+
 <Index name="PrimKey">
 <IdKey>1</IdKey>
 <PrimaryKey>1</PrimaryKey>
@@ -201,6 +210,10 @@
 <Properties>Applicatie</Properties>
 </Index>
 
+<Index name="IndexOnGekendeExceptie">
+<Properties>GekendeExceptie</Properties>
+</Index>
+
 <Method name="AAACompilerFirst">
 <ClassMethod>1</ClassMethod>
 <CodeMode>objectgenerator</CodeMode>
@@ -214,6 +227,10 @@
 <Implementation><![CDATA[
 	Set oLog=..%New()
 	Do oLog.Init(.Datum,.Tijd,.Niveau,.Groep,.Actie,.Detail,.ProgLabel)
+	Try {
+		Do ##class(TECH.Exceptions.GekendeExceptieMatcher).%New().KoppelErrorLog( oLog )
+		Set SendMail = oLog.TeBehandelen
+	} Catch {} // Het log-item saven, is belangrijker dan de eventuele koppel-exceptie te behandelen.
 	#dim scSave As %Status = oLog.%Save()
 	
     #dim ServerPrefix As %String = "["_$$$UCase($$$Server)_"] "
@@ -398,6 +415,18 @@
 <Value name="18">
 <Value>Applicatie</Value>
 </Value>
+<Value name="19">
+<Value>TeTonenInDashboard</Value>
+</Value>
+<Value name="20">
+<Value>TeTrierenOfBehandelen</Value>
+</Value>
+<Value name="21">
+<Value>GekendeExceptie</Value>
+</Value>
+<Value name="22">
+<Value>TeBehandelen</Value>
+</Value>
 </Data>
 <Property name="%%CLASSNAME"/>
 <Property name="Actie"/>