Index: TECH/Exceptions/GekendeExceptieMatcher.cls.xml
===================================================================
diff -u
--- TECH/Exceptions/GekendeExceptieMatcher.cls.xml	(revision 0)
+++ TECH/Exceptions/GekendeExceptieMatcher.cls.xml	(revision 2041)
@@ -0,0 +1,59 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Exceptions.GekendeExceptieMatcher">
+<Super>%RegisteredObject</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Set L = ##class(vhLib.Logging).Create( ##class(vhLib.Logger).%New("Testgroep"),,,"E","Testgroep","Testactie","Testdetail",,0)
+Do ##class(TECH.Exceptions.GekendeExceptieMatcher).%New().KoppelErrorLog( L )
+Write L.GekendeExceptie
+*/
+]]></Content>
+</UDLText>
+
+<Method name="KoppelErrorLog">
+<FormalSpec><![CDATA[&ErrorLog:vhLib.Logging]]></FormalSpec>
+<Implementation><![CDATA[
+		#Dim Gevonden As Boolean = 0
+		#dim Query As %String = "SELECT ID FROM TECH_Exceptions.GekendeExceptie WHERE ? [ SubStringVoorHerkenning"
+		#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder().VoerUit(Query, $ListBuild(ErrorLog.Detail))
+		while ('Gevonden && ResultSet.Next()) {
+			#dim GekendeExceptieID As %String = ResultSet.Data("ID")
+			#Dim GekendeExceptie As TECH.Exceptions.GekendeExceptie = ##class(TECH.Exceptions.GekendeExceptie).OpenId( GekendeExceptieID )
+			Set Gevonden = 1
+			Set ErrorLog.GekendeExceptie = GekendeExceptie
+			Set ErrorLog.TeBehandelen = GekendeExceptie.IsTeBehandelen
+		}
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Set GE = ##class(TECH.Exceptions.GekendeExceptie).OpenId(11)
+Do ##class(TECH.Exceptions.GekendeExceptieMatcher).%New().KoppelGekendeExceptieAanOudeErrorLogs( GE )
+*/
+]]></Content>
+</UDLText>
+
+<Method name="KoppelGekendeExceptieAanOudeErrorLogs">
+<FormalSpec>GekendeExceptie:TECH.Exceptions.GekendeExceptie</FormalSpec>
+<Implementation><![CDATA[
+		#Dim Gevonden As Boolean = 0
+		#dim Query As %String = "SELECT ID FROM vhLib.Logging WHERE Detail [ ?"
+		#dim ResultSet As TECH.ResultSet = ##class(TECH.Context).Instance().GeefQueryAPI().GeefQueryUitvoerder().VoerUit(Query, $ListBuild(GekendeExceptie.SubStringVoorHerkenning))
+		while (ResultSet.Next()) {
+			#dim ErrorLogID As %String = ResultSet.Data("ID")
+			#Dim ErrorLog As vhLib.Logging = ##class(vhLib.Logging).OpenId( ErrorLogID )
+			Set ErrorLog.GekendeExceptie = GekendeExceptie
+			Set ErrorLog.TeBehandelen = GekendeExceptie.IsTeBehandelen
+			Do ErrorLog.Save()
+		}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TECH/Exceptions/GekendeExceptie.cls.xml
===================================================================
diff -u
--- TECH/Exceptions/GekendeExceptie.cls.xml	(revision 0)
+++ TECH/Exceptions/GekendeExceptie.cls.xml	(revision 2041)
@@ -0,0 +1,85 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="TECH.Exceptions.GekendeExceptie">
+<ClassType>persistent</ClassType>
+<Super>TECH.VhChangeInfo</Super>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Set E=##class(TECH.Exceptions.GekendeExceptie).%New(), E.StoryID="ICT123", E.SubStringVoorHerkenning="Test", E.OmschrijvingVanGekendProbleem="Test", E.IsTeBehandelen="0"
+Do E.Save()
+*/
+]]></Content>
+</UDLText>
+
+<Property name="StoryID">
+<Type>%String</Type>
+<Required>1</Required>
+<Parameter name="MAXLEN" value="50"/>
+</Property>
+
+<Property name="SubStringVoorHerkenning">
+<Type>%String</Type>
+<Required>1</Required>
+<Parameter name="MAXLEN" value="30000"/>
+</Property>
+
+<Property name="OmschrijvingVanGekendProbleem">
+<Type>%String</Type>
+<Required>1</Required>
+<Parameter name="MAXLEN" value="1000"/>
+</Property>
+
+<Property name="IsTeBehandelen">
+<Type>%Boolean</Type>
+<InitialExpression>1</InitialExpression>
+<Required>1</Required>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^TECH.ExcepB30C.GekendeExce12A7D</DataLocation>
+<DefaultData>GekendeExceptieDefaultData</DefaultData>
+<IdLocation>^TECH.ExcepB30C.GekendeExce12A7D</IdLocation>
+<IndexLocation>^TECH.ExcepB30C.GekendeExce12A7I</IndexLocation>
+<StreamLocation>^TECH.ExcepB30C.GekendeExce12A7S</StreamLocation>
+<Data name="GekendeExceptieDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>AangemaaktDoor</Value>
+</Value>
+<Value name="3">
+<Value>AangemaaktOp</Value>
+</Value>
+<Value name="4">
+<Value>GewijzigdDoor</Value>
+</Value>
+<Value name="5">
+<Value>GewijzigdOp</Value>
+</Value>
+<Value name="6">
+<Value>IsTeBehandelen</Value>
+</Value>
+<Value name="7">
+<Value>InstanceVersion</Value>
+</Value>
+<Value name="8">
+<Value>OmschrijvingVanGekendProbleem</Value>
+</Value>
+<Value name="9">
+<Value>StoryID</Value>
+</Value>
+<Value name="10">
+<Value>SubStringVoorHerkenning</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>