Index: UI/TBXWeb/GroepOrderVerwerker.cls.xml
===================================================================
diff -u -r320 -r326
--- UI/TBXWeb/GroepOrderVerwerker.cls.xml	(.../GroepOrderVerwerker.cls.xml)	(revision 320)
+++ UI/TBXWeb/GroepOrderVerwerker.cls.xml	(.../GroepOrderVerwerker.cls.xml)	(revision 326)
@@ -16,9 +16,9 @@
 	
 	set Service = ##class(APPS.TBXWeb.OrderService).%New()
 	
-HasNext
 	while itOrderIDs.HasNext() {
-		set $ztrap="onError"
+HasNext
+		;set $ztrap="onError"
 		set OrderID = itOrderIDs.Next()
 		set Order = ##class(WS.TBX.Order).%OpenId(OrderID)
 		set OrderBezwaren = Service.GeefBezwarenTegenToevWOAanWGO(..GroepOrder,Order)
Index: TECH/Process.cls.xml
===================================================================
diff -u -r325 -r326
--- TECH/Process.cls.xml	(.../Process.cls.xml)	(revision 325)
+++ TECH/Process.cls.xml	(.../Process.cls.xml)	(revision 326)
@@ -64,7 +64,7 @@
 <FormalSpec>From:%Integer=1</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set Txt = ""
+	set Txt = ""
 	For i=From:1:$ESTACK { 
 		Set Txt=Txt_$$$CRLF_i_"   "_$STACK($STACK-i)_" : "_$STACK($STACK-i,"PLACE")_" -> "_$STACK($STACK-i,"MCODE")
 	}
Index: vhUnitTest/WS/TBX/TestGroepOrder.cls.xml
===================================================================
diff -u -r320 -r326
--- vhUnitTest/WS/TBX/TestGroepOrder.cls.xml	(.../TestGroepOrder.cls.xml)	(revision 320)
+++ vhUnitTest/WS/TBX/TestGroepOrder.cls.xml	(.../TestGroepOrder.cls.xml)	(revision 326)
@@ -1,7 +1,9 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="vhUnitTest.WS.TBX.TestGroepOrder">
+<ProcedureBlock>1</ProcedureBlock>
 <Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="TestZetBonType">
 <Implementation><![CDATA[
@@ -30,12 +32,12 @@
 	do GroepOrder.ZetBonType(##class(APPS.TBXWeb.enu.BonType).Bestelbon())
 	do $$$AssertTrue(GroepOrder.%Save())
 		
-	Kill
-		
+	Kill Order1,Order2,GroepOrder
+
 	do $$$AssertEquals(##class(WS.TBX.OrderAbstract).%OpenId(1).BonType,##class(APPS.TBXWeb.enu.BonType).Bestelbon())
 	do $$$AssertEquals(##class(WS.TBX.OrderAbstract).%OpenId(2).BonType,##class(APPS.TBXWeb.enu.BonType).Bestelbon())
 	do $$$AssertEquals(##class(WS.TBX.OrderAbstract).%OpenId(3).BonType,##class(APPS.TBXWeb.enu.BonType).Bestelbon())
-		
+	
 	do ..ZetBonTypeCleanUp()
 ]]></Implementation>
 </Method>
Index: APPS/TBXWeb/TestUtils.cls.xml
===================================================================
diff -u -r320 -r326
--- APPS/TBXWeb/TestUtils.cls.xml	(.../TestUtils.cls.xml)	(revision 320)
+++ APPS/TBXWeb/TestUtils.cls.xml	(.../TestUtils.cls.xml)	(revision 326)
@@ -67,7 +67,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	set TestDomeinNaam = ""
-	if ( $length(DomeinNaam) ) && ( ##class(APPS.TBXWeb.enu.DomeinNaam).IsValid(DomeinNaam) ) {
+	if ( $length(DomeinNaam) ) && ( ##class(APPS.TBXWeb.enu.DomeinNaam).IsValidDT(DomeinNaam) ) {
 		set TestDomeinNaam = $zconvert($$$Server_"."_..GeefReferentieDomeinNaam(DomeinNaam),"L")_".local"
 	} else {
 		set Exception = ##class(TECH.Exceptions.InvalidInputException).%New(DomeinNaam_" is ongeldig")
Index: vhDeploy/JCL/Deploy20130110RedirectMail.cls.xml
===================================================================
diff -u
--- vhDeploy/JCL/Deploy20130110RedirectMail.cls.xml	(revision 0)
+++ vhDeploy/JCL/Deploy20130110RedirectMail.cls.xml	(revision 326)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.JCL.Deploy20130110RedirectMail">
+<ClassType/>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Default>ConfigItem : vhLib.Mail_RedirectMailToDevelopment</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	set Instance = ##class(TECH.Config.ConfigMgr).Instance()
+	if Instance.GetOmgeving()="PROD" {
+		do Instance.ZetString("vhLib.Mail_RedirectMailToDevelopment",0)
+	} else {
+		do Instance.ZetString("vhLib.Mail_RedirectMailToDevelopment",1)
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/TBXWeb/TBXContext.cls.xml
===================================================================
diff -u -r320 -r326
--- APPS/TBXWeb/TBXContext.cls.xml	(.../TBXContext.cls.xml)	(revision 320)
+++ APPS/TBXWeb/TBXContext.cls.xml	(.../TBXContext.cls.xml)	(revision 326)
@@ -5,6 +5,7 @@
 <IncludeCode>APPS.TBXWeb,PRGACNTs</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <UDLText name="T">
 <Content><![CDATA[
Index: vhUnitTest/TECH/Exceptions/TestLogService.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/Exceptions/TestLogService.cls.xml	(revision 0)
+++ vhUnitTest/TECH/Exceptions/TestLogService.cls.xml	(revision 326)
@@ -0,0 +1,67 @@
+<?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(APPS.common.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(APPS.common.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(APPS.common.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(APPS.common.ExceptionLogService).%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)
+	
+	Set LoggedException = LogItem.GeefLoggedException()
+	Do $$$AssertTrue($IsObject(LoggedException),"De exceptie is opgeslagen")
+	Do $$$AssertEquals(LoggedException.GeefCorrelatieID(),456)
+	Do $$$AssertEquals(LoggedException.GeefNiveau(),##class(TECH.Exceptions.enu.Niveau).Error())
+	Do $$$AssertEquals(LoggedException.GeefSleutel(),"De sleutel")
+	Do $$$AssertEquals(LoggedException.GeefTijdstip(),Exception.Tijdstip)
+	
+	Set LoggedInnerException = LoggedException.GeefInnerException()
+	Do $$$AssertTrue($IsObject(LoggedInnerException),"De innerexceptie is opgeslagen")
+	Do $$$AssertEquals(LoggedInnerException.GeefCorrelatieID(),789)
+	Do $$$AssertEquals(LoggedInnerException.GeefNiveau(),##class(TECH.Exceptions.enu.Niveau).Waarschuwing())
+	Do $$$AssertEquals(LoggedInnerException.GeefSleutel(),"De sleutel innerexceptie")
+	Do $$$AssertEquals(LoggedInnerException.GeefTijdstip(),InnerException.Tijdstip)
+	
+	Do LogItem.Delete()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/TBXWeb/enu/BonType.cls.xml
===================================================================
diff -u -r320 -r326
--- APPS/TBXWeb/enu/BonType.cls.xml	(.../BonType.cls.xml)	(revision 320)
+++ APPS/TBXWeb/enu/BonType.cls.xml	(.../BonType.cls.xml)	(revision 326)
@@ -4,9 +4,10 @@
 <ClassType>datatype</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.Enumeration</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="VALUELIST">
-<Default>,OFF,BBON,INKP</Default>
+<Default>,OFF,BBON,INKP,OFFAV</Default>
 </Parameter>
 
 <Method name="Offerte">
Index: BL/EC/pxDynaPlug.cls.xml
===================================================================
diff -u -r7 -r326
--- BL/EC/pxDynaPlug.cls.xml	(.../pxDynaPlug.cls.xml)	(revision 7)
+++ BL/EC/pxDynaPlug.cls.xml	(.../pxDynaPlug.cls.xml)	(revision 326)
@@ -64,13 +64,9 @@
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Taal:%String=""</FormalSpec>
 <Implementation><![CDATA[
-	 d WLIP^vhDBG(195,"Start Test Fill DOpts")
-	 d WLIP^vhDBG(195,"timer "_$$RestartTimer^vhLib())
 	 Set pxDynaPlug=..Create("TEST","Test van Wim")
 	 Set sc=pxDynaPlug.FillTBXDesignOptions(.Taal)
-	 d WLIP^vhDBG(195,"time to fill DO's "_$$RestartTimer^vhLib())
 	 d ObjToXMLFile^vhLib(pxDynaPlug,"\\Notes01\DataWV\Temp\pxDynaplug.xml","DYNAPLUG")   
-	 d WXIP^vhDBG(195,pxDynaPlug)
 	Quit
 ]]></Implementation>
 </Method>
Index: Default_JoC.prj.xml
===================================================================
diff -u
--- Default_JoC.prj.xml	(revision 0)
+++ Default_JoC.prj.xml	(revision 326)
@@ -0,0 +1,87 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Project name="Default_JoC" LastModified="2013-01-10 16:43:03">
+  <Items>
+    <ProjectItem name="APPS.TBXWeb.OrderVerwerkService" type="CLS"/>
+    <ProjectItem name="APPS.TBXWeb.TBXContext" type="CLS"/>
+    <ProjectItem name="APPS.TBXWeb.TestUtils" type="CLS"/>
+    <ProjectItem name="APPS.TBXWeb.Vertaler" type="CLS"/>
+    <ProjectItem name="APPS.TBXWeb.WebOrderVerwerkService" type="CLS"/>
+    <ProjectItem name="APPS.TBXWeb.WeborderVerwerkService" type="CLS"/>
+    <ProjectItem name="APPS.TBXWeb.WeborderVerwerkService1" type="CLS"/>
+    <ProjectItem name="APPS.TBXWeb.enu.DomeinNaam" type="CLS"/>
+    <ProjectItem name="APPS.common.dto.Applicatie" type="CLS"/>
+    <ProjectItem name="APPS.common.dto.ClientExceptionLogItem" type="CLS"/>
+    <ProjectItem name="APPS.common.dto.Exception" type="CLS"/>
+    <ProjectItem name="APPS.common.dto.ExceptionLogItem" type="CLS"/>
+    <ProjectItem name="APPS.common.dto.Icoon" type="CLS"/>
+    <ProjectItem name="APPS.common.dto.StockNiveaus" type="CLS"/>
+    <ProjectItem name="APPS.common.dto.VhPersistent" type="CLS"/>
+    <ProjectItem name="Const.inc" type="MAC"/>
+    <ProjectItem name="DOM.enu.Taal" type="CLS"/>
+    <ProjectItem name="TECH.Algo.SQL.QueryEngine.CombinatieConditie" type="CLS"/>
+    <ProjectItem name="TECH.Algo.SQL.QueryEngine.EnkelvoudigeConditie" type="CLS"/>
+    <ProjectItem name="TECH.Algo.SQL.QueryEngine.ForeignKey" type="CLS"/>
+    <ProjectItem name="TECH.Algo.SQL.QueryEngine.IWhereConditie" type="CLS"/>
+    <ProjectItem name="TECH.Algo.SQL.QueryEngine.QueryBuilder" type="CLS"/>
+    <ProjectItem name="TECH.Algo.SQL.QueryEngine.SelectieVeld" type="CLS"/>
+    <ProjectItem name="TECH.Algo.SQL.QueryEngine.Tabel" type="CLS"/>
+    <ProjectItem name="TECH.Concurrency.DbUtils" type="CLS"/>
+    <ProjectItem name="TECH.Concurrency.ObjectLock" type="CLS"/>
+    <ProjectItem name="TECH.Concurrency.Transactie" type="CLS"/>
+    <ProjectItem name="TECH.Concurrency.TransactionMgr" type="CLS"/>
+    <ProjectItem name="TECH.Concurrency.TxIsolatieLevel" type="CLS"/>
+    <ProjectItem name="TECH.Concurrency.TxScope" type="CLS"/>
+    <ProjectItem name="TECH.Concurrency.TxScopeOptie" type="CLS"/>
+    <ProjectItem name="TECH.Concurrency.TxStatus" type="CLS"/>
+    <ProjectItem name="TECH.Concurrency.VhConcurrencyPart" type="CLS"/>
+    <ProjectItem name="TECH.Concurrency.VhPersistent" type="CLS"/>
+    <ProjectItem name="TECH.Context.RuntimeContext" type="CLS"/>
+    <ProjectItem name="TECH.Error.impl.ErrorHandler" type="CLS"/>
+    <ProjectItem name="TECH.File.FileReader" type="CLS"/>
+    <ProjectItem name="TECH.File.FileWriter" type="CLS"/>
+    <ProjectItem name="TECH.Lock" type="CLS"/>
+    <ProjectItem name="TECH.Lock.LockUtils" type="CLS"/>
+    <ProjectItem name="TECH.Process" type="CLS"/>
+    <ProjectItem name="TECH.PubSub.Event" type="CLS"/>
+    <ProjectItem name="TECH.PubSub.EventData" type="CLS"/>
+    <ProjectItem name="TECH.PubSub.EventRaiser" type="CLS"/>
+    <ProjectItem name="TECH.PubSub.EventSubscription" type="CLS"/>
+    <ProjectItem name="TECH.PubSub.OrchestrationContext" type="CLS"/>
+    <ProjectItem name="TECH.PubSub.WachtendEvent" type="CLS"/>
+    <ProjectItem name="TECH.PubSub.impl.EventDispatcher" type="CLS"/>
+    <ProjectItem name="TECH.PubSub.impl.PubSubLogger" type="CLS"/>
+    <ProjectItem name="TECH.PubSub.impl.SimpelEventRaiser" type="CLS"/>
+    <ProjectItem name="TECH.PubSub.impl.WachtendEventAanmaken" type="CLS"/>
+    <ProjectItem name="TECH.StringUtils" type="CLS"/>
+    <ProjectItem name="TECH.System" type="CLS"/>
+    <ProjectItem name="TECH.UniekeWaardenIterator" type="CLS"/>
+    <ProjectItem name="TECH.XMLDataSet" type="CLS"/>
+    <ProjectItem name="WS.TBX.OrderAbstract" type="CLS"/>
+    <ProjectItem name="WS.TBX.OrderCopy" type="CLS"/>
+    <ProjectItem name="svn.Deploy" type="CLS"/>
+    <ProjectItem name="svn.Helper" type="CLS"/>
+    <ProjectItem name="svn.StudioHook" type="CLS"/>
+    <ProjectItem name="vhDeploy.JCL.Deploy20120924CopyMakenVanTBXOrder" type="CLS"/>
+    <ProjectItem name="vhDeploy.JCL.Deploy20130110RedirectMail" type="CLS"/>
+    <ProjectItem name="vhLib.Logging" type="CLS"/>
+    <ProjectItem name="vhUnitTest.APPS.TBXWeb.OrderVerwerkService" type="CLS"/>
+    <ProjectItem name="vhUnitTest.APPS.TBXWeb.OrderVerwerkServiceMock" type="CLS"/>
+    <ProjectItem name="vhUnitTest.APPS.TBXWeb.TestOrderVerwerkService" type="CLS"/>
+    <ProjectItem name="vhUnitTest.APPS.TBXWeb.WebOrderVerwerkService" type="CLS"/>
+    <ProjectItem name="vhUnitTest.APPS.TBXWeb.WeborderVerwerkService" type="CLS"/>
+    <ProjectItem name="vhUnitTest.APPS.TBXWeb.WeborderVerwerkService1" type="CLS"/>
+    <ProjectItem name="vhUnitTest.Logger" type="CLS"/>
+    <ProjectItem name="vhUnitTest.Manager" type="CLS"/>
+    <ProjectItem name="vhUnitTest.Report" type="CLS"/>
+    <ProjectItem name="vhUnitTest.TECH.Exceptions.KlasseA" type="CLS"/>
+    <ProjectItem name="vhUnitTest.TECH.Exceptions.KlasseB" type="CLS"/>
+    <ProjectItem name="vhUnitTest.TECH.Exceptions.KlasseC" type="CLS"/>
+    <ProjectItem name="vhUnitTest.TECH.Exceptions.TestExceptions" type="CLS"/>
+    <ProjectItem name="vhUnitTest.TECH.Exceptions.TestLogService" type="CLS"/>
+    <ProjectItem name="vhUnitTest.TestCase" type="CLS"/>
+    <ProjectItem name="vhUnitTest.Utils" type="CLS"/>
+    <ProjectItem name="zTryout.JCL.TestClass1" type="CLS"/>
+  </Items>
+</Project>
+</Export>