Index: TECH/Exceptions/Log/impl/ExceptionLogItemVisitor.cls.xml
===================================================================
diff -u
--- TECH/Exceptions/Log/impl/ExceptionLogItemVisitor.cls.xml	(revision 0)
+++ TECH/Exceptions/Log/impl/ExceptionLogItemVisitor.cls.xml	(revision 2604)
@@ -0,0 +1,64 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Exceptions.Log.impl.ExceptionLogItemVisitor">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,TECH.Exceptions.Log.impl.IExceptionLogItemVisitor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="ExceptionLogItem">
+<Type>TECH.Exceptions.Log.impl.ExceptionLogItem</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefExceptionLogItem">
+<ReturnType>TECH.Exceptions.Log.impl.ExceptionLogItem</ReturnType>
+<Implementation><![CDATA[	Quit ..ExceptionLogItem
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkClientExceptionLogItem">
+<FormalSpec>ClientExceptionLogItem:TECH.Exceptions.Log.dto.ClientExceptionLogItem</FormalSpec>
+<Implementation><![CDATA[
+	Set ..ExceptionLogItem = ##class(TECH.Exceptions.Log.impl.ClientExceptionLogItem).%New()
+	Do ..VerwerkExceptionLogItem(ClientExceptionLogItem)
+	Do ..ExceptionLogItem.ZetMachineNaam(ClientExceptionLogItem.MachineNaam)
+	Do ..ExceptionLogItem.ZetOpstartTijdstipVhintra(ClientExceptionLogItem.OpstartTijdstipVhintra)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkExceptionLogItem">
+<FormalSpec>ExceptionLogItem:TECH.Exceptions.Log.dto.ExceptionLogItem</FormalSpec>
+<Implementation><![CDATA[
+	Do ..ExceptionLogItem.ZetClientSessieID(ExceptionLogItem.ClientSessieID)
+	Do ..ExceptionLogItem.ZetGebruikerID(ExceptionLogItem.GebruikerID)
+	Do ..ExceptionLogItem.ZetOpmerkingen(ExceptionLogItem.Opmerkingen)
+	Do ..ExceptionLogItem.ZetStackTrace(ExceptionLogItem.StackTrace)
+	Do:$IsObject(ExceptionLogItem.Exception) ..ExceptionLogItem.ZetLoggedException(..VerwerkException(ExceptionLogItem.Exception))
+	Set Iterator = ##class(TECH.ListIterator).%New(ExceptionLogItem.LokaleVariabelen)
+	While (Iterator.HasNext())
+	{
+		Set KeyValuePair = Iterator.Next()
+		Do ..ExceptionLogItem.VoegToeLokaleVariabele(KeyValuePair.Key,KeyValuePair.Value)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkException">
+<FormalSpec>Exception:TECH.Exceptions.Log.dto.Exception</FormalSpec>
+<Private>1</Private>
+<ReturnType>TECH.Exceptions.Log.impl.LoggedException</ReturnType>
+<Implementation><![CDATA[
+	Set InnerException = ""
+	Set:$IsObject(Exception.InnerException) InnerException = ..VerwerkException(Exception.InnerException)
+	Set LoggedException = ##class(TECH.Exceptions.Log.impl.LoggedException).%New(Exception.CorrelatieID, InnerException, Exception.Niveau, Exception.Sleutel, Exception.Tijdstip)
+	Set Iterator = ##class(TECH.ListIterator).%New(Exception.Parameters)
+	While (Iterator.HasNext())
+	{
+		Set KeyValuePair = Iterator.Next()
+		Do ..ExceptionLogItem.VoegToeParameter(KeyValuePair.Key,KeyValuePair.Value)
+	}
+	Quit LoggedException
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: TECH/Exceptions/Log/dto/ClientExceptionLogItem.cls.xml
===================================================================
diff -u
--- TECH/Exceptions/Log/dto/ClientExceptionLogItem.cls.xml	(revision 0)
+++ TECH/Exceptions/Log/dto/ClientExceptionLogItem.cls.xml	(revision 2604)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Exceptions.Log.dto.ClientExceptionLogItem">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Exceptions.Log.dto.ExceptionLogItem</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="MachineNaam">
+<Type>%String</Type>
+</Property>
+
+<Property name="OpstartTijdstipVhintra">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Method name="Accept">
+<FormalSpec>ExceptionLogItemVisitor:TECH.Exceptions.Log.impl.ExceptionLogItemVisitor</FormalSpec>
+<Implementation><![CDATA[	Do ExceptionLogItemVisitor.VerwerkClientExceptionLogItem(##this)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: TECH/Exceptions/enu/Niveau.cls.xml
===================================================================
diff -u
--- TECH/Exceptions/enu/Niveau.cls.xml	(revision 0)
+++ TECH/Exceptions/enu/Niveau.cls.xml	(revision 2604)
@@ -0,0 +1,27 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Exceptions.enu.Niveau">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>;Error;Waarschuwing</Default>
+</Parameter>
+
+<Method name="Error">
+<ClassMethod>1</ClassMethod>
+<ReturnType>TECH.Exceptions.enu.Niveau</ReturnType>
+<Implementation><![CDATA[	Quit "Error"
+]]></Implementation>
+</Method>
+
+<Method name="Waarschuwing">
+<ClassMethod>1</ClassMethod>
+<ReturnType>TECH.Exceptions.enu.Niveau</ReturnType>
+<Implementation><![CDATA[	Quit "Waarschuwing"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: TECH/Exceptions/Log/dto/ExceptionLogItem.cls.xml
===================================================================
diff -u
--- TECH/Exceptions/Log/dto/ExceptionLogItem.cls.xml	(revision 0)
+++ TECH/Exceptions/Log/dto/ExceptionLogItem.cls.xml	(revision 2604)
@@ -0,0 +1,35 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Exceptions.Log.dto.ExceptionLogItem">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="ClientSessieID">
+<Type>%String</Type>
+</Property>
+
+<Property name="GebruikerID">
+<Type>%String</Type>
+</Property>
+
+<Property name="Opmerkingen">
+<Type>%String</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="StackTrace">
+<Type>%String</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="LokaleVariabelen">
+<Type>TECH.KeyValuePair</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="Exception">
+<Type>TECH.Exceptions.Log.dto.Exception</Type>
+</Property>
+</Class>
+</Export>
Index: TECH/Exceptions/Log/impl/ClientExceptionLogItem.cls.xml
===================================================================
diff -u
--- TECH/Exceptions/Log/impl/ClientExceptionLogItem.cls.xml	(revision 0)
+++ TECH/Exceptions/Log/impl/ClientExceptionLogItem.cls.xml	(revision 2604)
@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Exceptions.Log.impl.ClientExceptionLogItem">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Exceptions.Log.impl.ExceptionLogItem</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="MachineNaam">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OpstartTijdstipVhintra">
+<Type>%TimeStamp</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefMachineNaam">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..MachineNaam
+]]></Implementation>
+</Method>
+
+<Method name="ZetMachineNaam">
+<FormalSpec>Waarde:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..MachineNaam = Waarde
+]]></Implementation>
+</Method>
+
+<Method name="GeefOpstartTijdstipVhintra">
+<ReturnType>%TimeStamp</ReturnType>
+<Implementation><![CDATA[	Quit ..OpstartTijdstipVhintra
+]]></Implementation>
+</Method>
+
+<Method name="ZetOpstartTijdstipVhintra">
+<FormalSpec>Waarde:%TimeStamp</FormalSpec>
+<Implementation><![CDATA[	Set ..OpstartTijdstipVhintra = Waarde
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>ClientExceptionLogItemDefaultData</DefaultData>
+<Data name="ClientExceptionLogItemDefaultData">
+<Structure>listnode</Structure>
+<Subscript>"ClientExceptionLogItem"</Subscript>
+<Value name="1">
+<Value>MachineNaam</Value>
+</Value>
+<Value name="2">
+<Value>OpstartTijdstipVhintra</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: TECH/Exceptions/Log/LogService.cls.xml
===================================================================
diff -u
--- TECH/Exceptions/Log/LogService.cls.xml	(revision 0)
+++ TECH/Exceptions/Log/LogService.cls.xml	(revision 2604)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Exceptions.Log.LogService">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="RegistreerExceptionLogItem">
+<FormalSpec>ExceptionLogItemDto:TECH.Exceptions.Log.dto.ExceptionLogItem</FormalSpec>
+<ReturnType>TECH.Exceptions.Log.impl.ExceptionLogItem</ReturnType>
+<Implementation><![CDATA[
+	Set Visitor = ##class(TECH.Exceptions.Log.impl.ExceptionLogItemVisitor).%New()
+	Do ExceptionLogItemDto.Accept(Visitor)
+	Set ExceptionLogItem = Visitor.GeefExceptionLogItem()
+	Do ExceptionLogItem.Save()
+	Quit ExceptionLogItem
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: TECH/Exceptions/Log/impl/LoggedException.cls.xml
===================================================================
diff -u
--- TECH/Exceptions/Log/impl/LoggedException.cls.xml	(revision 0)
+++ TECH/Exceptions/Log/impl/LoggedException.cls.xml	(revision 2604)
@@ -0,0 +1,138 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Exceptions.Log.impl.LoggedException">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="CorrelatieID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="InnerException">
+<Type>TECH.Exceptions.Log.impl.LoggedException</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Niveau">
+<Type>TECH.Exceptions.enu.Niveau</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Sleutel">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Tijdstip">
+<Type>%TimeStamp</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Parameters">
+<Type>%String</Type>
+<Collection>array</Collection>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>CorrelatieID:%String,InnerException:LoggedException,Niveau:TECH.Exceptions.enu.Niveau,Sleutel:%String,Tijdstip:%TimeStamp</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..CorrelatieID = CorrelatieID
+	Set ..InnerException = InnerException
+	Set ..Niveau = Niveau
+	Set ..Sleutel = Sleutel
+	Set ..Tijdstip = Tijdstip
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefCorrelatieID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..CorrelatieID
+]]></Implementation>
+</Method>
+
+<Method name="GeefInnerException">
+<ReturnType>TECH.Exceptions.Log.impl.LoggedException</ReturnType>
+<Implementation><![CDATA[	Quit ..InnerException
+]]></Implementation>
+</Method>
+
+<Method name="GeefNiveau">
+<ReturnType>TECH.Exceptions.enu.Niveau</ReturnType>
+<Implementation><![CDATA[	Quit ..Niveau
+]]></Implementation>
+</Method>
+
+<Method name="Sleutel">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..Sleutel
+]]></Implementation>
+</Method>
+
+<Method name="Tijdstip">
+<ReturnType>%TimeStamp</ReturnType>
+<Implementation><![CDATA[	Quit ..Tijdstip
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeParameter">
+<FormalSpec>Key:%String,Value:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..Parameters.InsertAt(Value,Key)
+]]></Implementation>
+</Method>
+
+<Method name="GeefParameterIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..Parameters)
+]]></Implementation>
+</Method>
+
+<Method name="OnDelete">
+<Implementation><![CDATA[	Do:$IsObject(..InnerException) ..InnerException.Delete()
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^TECH.Except8A4.LoggedExcept601D</DataLocation>
+<DefaultData>LoggedExceptionDefaultData</DefaultData>
+<IdLocation>^TECH.Except8A4.LoggedExcept601D</IdLocation>
+<IndexLocation>^TECH.Except8A4.LoggedExcept601I</IndexLocation>
+<StreamLocation>^TECH.Except8A4.LoggedExcept601S</StreamLocation>
+<Data name="LoggedExceptionDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>CorrelatieID</Value>
+</Value>
+<Value name="3">
+<Value>InnerException</Value>
+</Value>
+<Value name="4">
+<Value>Niveau</Value>
+</Value>
+<Value name="5">
+<Value>Sleutel</Value>
+</Value>
+<Value name="6">
+<Value>Tijdstip</Value>
+</Value>
+</Data>
+<Data name="Parameters">
+<Attribute>Parameters</Attribute>
+<Structure>subnode</Structure>
+<Subscript>"Parameters"</Subscript>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: TECH/Exceptions/Log/impl/ExceptionLogItem.cls.xml
===================================================================
diff -u
--- TECH/Exceptions/Log/impl/ExceptionLogItem.cls.xml	(revision 0)
+++ TECH/Exceptions/Log/impl/ExceptionLogItem.cls.xml	(revision 2604)
@@ -0,0 +1,164 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Exceptions.Log.impl.ExceptionLogItem">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="ClientSessieID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="GebruikerID">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Opmerkingen">
+<Type>%String</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="StackTrace">
+<Type>%String</Type>
+<Collection>list</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="LokaleVariabelen">
+<Type>%CacheString</Type>
+<Collection>array</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="LoggedException">
+<Type>TECH.Exceptions.Log.impl.LoggedException</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="GeefClientSessieID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..ClientSessieID
+]]></Implementation>
+</Method>
+
+<Method name="ZetClientSessieID">
+<FormalSpec>Waarde:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..ClientSessieID = Waarde
+]]></Implementation>
+</Method>
+
+<Method name="GeefGebruikerID">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..GebruikerID
+]]></Implementation>
+</Method>
+
+<Method name="ZetGebruikerID">
+<FormalSpec>Waarde:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..GebruikerID = Waarde
+]]></Implementation>
+</Method>
+
+<Method name="GeefOpmerkingenIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..Opmerkingen)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeOpmerking">
+<FormalSpec>Waarde:%String</FormalSpec>
+<Implementation><![CDATA[	Do ..Opmerkingen.Insert(Waarde)
+]]></Implementation>
+</Method>
+
+<Method name="ZetOpmerkingen">
+<FormalSpec>Opmerkingen:%ListOfDataTypes</FormalSpec>
+<Implementation><![CDATA[	Set ..Opmerkingen = Opmerkingen
+]]></Implementation>
+</Method>
+
+<Method name="GeefStackTraceIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..StackTrace)
+]]></Implementation>
+</Method>
+
+<Method name="ZetStackTrace">
+<FormalSpec>StackTrace:%ListOfDataTypes</FormalSpec>
+<Implementation><![CDATA[	Set ..StackTrace = StackTrace
+]]></Implementation>
+</Method>
+
+<Method name="GeefLokaleVariabelenIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.ListIterator).%New(..LokaleVariabelen)
+]]></Implementation>
+</Method>
+
+<Method name="VoegToeLokaleVariabele">
+<FormalSpec>Sleutel:%String,Waarde:%CacheString</FormalSpec>
+<Implementation><![CDATA[	Do ..LokaleVariabelen.SetAt(Waarde, Sleutel)
+]]></Implementation>
+</Method>
+
+<Method name="GeefLoggedException">
+<ReturnType>TECH.Exceptions.Log.impl.LoggedException</ReturnType>
+<Implementation><![CDATA[	Quit ..LoggedException
+]]></Implementation>
+</Method>
+
+<Method name="ZetLoggedException">
+<FormalSpec>Waarde:TECH.Exceptions.Log.impl.LoggedException</FormalSpec>
+<Implementation><![CDATA[	Set ..LoggedException = Waarde
+]]></Implementation>
+</Method>
+
+<Method name="OnDelete">
+<Implementation><![CDATA[	Do:$IsObject(..LoggedException) ..LoggedException.Delete()
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^TECH.Except8A4.ExceptionLog660D</DataLocation>
+<DefaultData>ExceptionLogItemDefaultData</DefaultData>
+<IdLocation>^TECH.Except8A4.ExceptionLog660D</IdLocation>
+<IndexLocation>^TECH.Except8A4.ExceptionLog660I</IndexLocation>
+<StreamLocation>^TECH.Except8A4.ExceptionLog660S</StreamLocation>
+<Data name="ExceptionLogItemDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>ClientSessieID</Value>
+</Value>
+<Value name="3">
+<Value>GebruikerID</Value>
+</Value>
+<Value name="4">
+<Value>Opmerkingen</Value>
+</Value>
+<Value name="5">
+<Value>StackTrace</Value>
+</Value>
+<Value name="6">
+<Value>Exceptie</Value>
+</Value>
+<Value name="7">
+<Value>LoggedException</Value>
+</Value>
+</Data>
+<Data name="LokaleVariabelen">
+<Attribute>LokaleVariabelen</Attribute>
+<Structure>subnode</Structure>
+<Subscript>"LokaleVariabelen"</Subscript>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: TECH/KeyValuePair.cls.xml
===================================================================
diff -u
--- TECH/KeyValuePair.cls.xml	(revision 0)
+++ TECH/KeyValuePair.cls.xml	(revision 2604)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.KeyValuePair">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Key">
+<Type>%CacheString</Type>
+</Property>
+
+<Property name="Value">
+<Type>%CacheString</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Key:%CacheString,Value:%CacheString</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..Key = Key
+	Set ..Value = Value
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/TECH/Exceptions/TestLogService.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Exceptions/TestLogService.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Exceptions/TestLogService.cls.xml	(revision 2604)
@@ -0,0 +1,54 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.TECH.Exceptions.TestLogService">
+<Description>
+Do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","TECH.Exceptions.TestLogService")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestRegistreerLogItem">
+<Implementation><![CDATA[
+	Set ExceptionLogItem = ##class(TECH.Exceptions.Log.dto.ClientExceptionLogItem).%New()
+	Set ExceptionLogItem.ClientSessieID = 123
+	Set ExceptionLogItem.GebruikerID = 14
+	Do ExceptionLogItem.Opmerkingen.Insert("Opmerking1")
+	Do ExceptionLogItem.StackTrace.Insert("StackTrace1")
+	Do ExceptionLogItem.LokaleVariabelen.Insert(##class(TECH.KeyValuePair).%New("Key","Value"))
+	Set ExceptionLogItem.MachineNaam = "De machinenaam"
+	Set ExceptionLogItem.OpstartTijdstipVhintra = ##class(TECH.DateTime).CurrentTimeStamp()
+	
+	Set Exception = ##class(TECH.Exceptions.Log.dto.Exception).%New()
+	Set Exception.CorrelatieID = 456
+	Set Exception.Niveau = ##class(TECH.Exceptions.enu.Niveau).Error()
+	Set Exception.Sleutel = "De sleutel"
+	Set Exception.Tijdstip = ##class(TECH.DateTime).CurrentTimeStamp()
+	
+	Set ExceptionLogItem.Exception = Exception
+	
+	Set InnerException = ##class(TECH.Exceptions.Log.dto.Exception).%New()
+	Set InnerException.CorrelatieID = 789
+	Set InnerException.Niveau = ##class(TECH.Exceptions.enu.Niveau).Waarschuwing()
+	Set InnerException.Sleutel = "De sleutel innerexceptie"
+	Set InnerException.Tijdstip = ##class(TECH.DateTime).CurrentTimeStamp()
+	
+	Set Exception.InnerException = InnerException
+	
+	Set LogService = ##class(TECH.Exceptions.Log.LogService).%New()
+	Set LogItem = LogService.RegistreerExceptionLogItem(ExceptionLogItem)
+	
+	Do $$$AssertTrue($IsObject(LogItem),"Het item is geregistreerd")
+	Do $$$AssertEquals(LogItem.GeefClientSessieID(),123)
+	Do $$$AssertEquals(LogItem.GeefGebruikerID(),14)
+	Do $$$AssertEquals(LogItem.GeefOpmerkingenIterator().Next(),"Opmerking1")
+	Do $$$AssertEquals(LogItem.GeefStackTraceIterator().Next(),"StackTrace1")
+	Do $$$AssertEquals(LogItem.GeefLokaleVariabelenIterator().Next(),"Value")
+	Do $$$AssertEquals(LogItem.GeefMachineNaam(),"De machinenaam")
+	Do $$$AssertEquals(LogItem.GeefOpstartTijdstipVhintra(),ExceptionLogItem.OpstartTijdstipVhintra)
+	
+	
+	Do LogItem.Delete()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: CSC Excepties.prj.xml
===================================================================
diff -u
--- CSC Excepties.prj.xml	(revision 0)
+++ CSC Excepties.prj.xml	(revision 2604)
@@ -0,0 +1,29 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Project name="CSC Excepties" LastModified="2011-10-31 15:22:55">
+  <Items>
+    <ProjectItem name="TECH.Exceptions.AbstractOmschrijvingException" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.BaseException" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.Exception" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.FileException" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.GeneralErrorException" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.InvalidInputException" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.LockedException" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.Log.LogService" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.Log.dto.ClientExceptionLogItem" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.Log.dto.Exception" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.Log.dto.ExceptionLogItem" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.Log.impl.ClientExceptionLogItem" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.Log.impl.ExceptionLogItem" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.Log.impl.ExceptionLogItemVisitor" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.Log.impl.IExceptionLogItemVisitor" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.Log.impl.LoggedException" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.ObjectExpectedException" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.RuntimeException" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.SaveFailedException" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.StatusException" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.enu.Niveau" type="CLS"/>
+    <ProjectItem name="vhUnitTest.TECH.Exceptions.TestLogService" type="CLS"/>
+  </Items>
+</Project>
+</Export>
Index: TECH/Exceptions/Log/impl/IExceptionLogItemVisitor.cls.xml
===================================================================
diff -u
--- TECH/Exceptions/Log/impl/IExceptionLogItemVisitor.cls.xml	(revision 0)
+++ TECH/Exceptions/Log/impl/IExceptionLogItemVisitor.cls.xml	(revision 2604)
@@ -0,0 +1,13 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Exceptions.Log.impl.IExceptionLogItemVisitor">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="VerwerkClientExceptionLogItem">
+<Abstract>1</Abstract>
+<FormalSpec>ClientExceptionLogItem:TECH.Exceptions.Log.dto.ClientExceptionLogItem</FormalSpec>
+</Method>
+</Class>
+</Export>
Index: TECH/Exceptions/Log/dto/Exception.cls.xml
===================================================================
diff -u
--- TECH/Exceptions/Log/dto/Exception.cls.xml	(revision 0)
+++ TECH/Exceptions/Log/dto/Exception.cls.xml	(revision 2604)
@@ -0,0 +1,32 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Exceptions.Log.dto.Exception">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+
+<Property name="CorrelatieID">
+<Type>%String</Type>
+</Property>
+
+<Property name="InnerException">
+<Type>TECH.Exceptions.Log.dto.Exception</Type>
+</Property>
+
+<Property name="Niveau">
+<Type>TECH.Exceptions.enu.Niveau</Type>
+</Property>
+
+<Property name="Sleutel">
+<Type>%String</Type>
+</Property>
+
+<Property name="Tijdstip">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Property name="Parameters">
+<Type>TECH.KeyValuePair</Type>
+<Collection>list</Collection>
+</Property>
+</Class>
+</Export>