Index: TECH/Lock.cls.xml
===================================================================
diff -u
--- TECH/Lock.cls.xml	(revision 0)
+++ TECH/Lock.cls.xml	(revision 2182)
@@ -0,0 +1,103 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Lock">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="LockKey">
+<Type>%String</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>LockKey:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..LockKey = LockKey
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Lock">
+<Description>
+Lock(TimeOut [Default: 10], LockType [Default: Exclusive])
+Indien reeds een exclusieve lock geplaatst is, dan wordt een fout gethrowed.
+</Description>
+<FormalSpec>TimeOut:%Integer=10,LockType:TECH.enu.LockType="X"</FormalSpec>
+<Implementation><![CDATA[
+	Set Status = ..GeefStatus()
+	/// Als shared lock is opgezet, en nog een shared lock gevraagd wordt, dan lock raisen.
+	If ((Status = ##class(TECH.enu.LockType).Shared()) && (LockType = ##class(TECH.enu.LockType).Shared())){
+		LOCK +@(..LockKey)#"S"
+	}
+	/// Als shared lock is opgezet, en een exclusive lock gevraagd wordt : Fout
+	ElseIf ((Status = ##class(TECH.enu.LockType).Shared()) && (LockType = ##class(TECH.enu.LockType).Exclusive())){
+		Set Exception = ##class(TECH.Exceptions.LockedException).%New("Kan geen exclusieve lock verkrijgen voor "_..LockKey_", heeft reeds een shared lock")
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	///  Als exclusive lock is opgezet : Fout
+	ElseIf(Status = ##class(TECH.enu.LockType).Exclusive()){
+		Set Exception = ##class(TECH.Exceptions.LockedException).%New("Kan geen "_LockType_" lock verkrijgen voor "_..LockKey_", heeft reeds een exclusive lock")
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	/// Geen lock opgezet : Lock opzetten
+	ElseIf(Status = ""){
+		If (LockType = ##class(TECH.enu.LockType).Shared()){
+			LOCK +@(..LockKey)#"S"
+		}ElseIf(LockType = ##class(TECH.enu.LockType).Exclusive()){
+			LOCK @(..LockKey)	
+		}
+	}
+	/// Toch lock opgezet, maar van onbekend type : Fout
+	Else{			
+		Set Exception = ##class(TECH.Exceptions.LockedException).%New("Kan geen "_LockType_" lock verkrijgen voor "_..LockKey_", status : '"_$$LCVT^vhLib(Status)_"'")
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="UnLock">
+<Description>
+Unlocken
+Indien LockType leeg is wordt het type opgevraagd en de unlock uitgevoerd.</Description>
+<FormalSpec>LockType:TECH.enu.LockType=""</FormalSpec>
+<Implementation><![CDATA[
+	
+	If (LockType = ##class(TECH.enu.LockType).Shared()){
+		LOCK -@(..LockKey)#"S"		
+	}ElseIf(LockType = ##class(TECH.enu.LockType).Exclusive()){
+		LOCK -@(..LockKey)
+	}Else{
+		LOCK -@(..LockKey)#..GeefStatus()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefStatus">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ^$LOCK(..LockKey,"MODE")
+]]></Implementation>
+</Method>
+
+<Method name="HeeftLock">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..GeefStatus() '= "")
+]]></Implementation>
+</Method>
+
+<Method name="HeeftExclusiveLock">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..GeefStatus() = ##class(TECH.enu.LockType).Exclusive())
+]]></Implementation>
+</Method>
+
+<Method name="HeeftSharedLock">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit (..GeefStatus() = ##class(TECH.enu.LockType).Shared())
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/TECH/File/dto/HoofdObject.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/File/dto/HoofdObject.cls.xml	(revision 0)
+++ vhUnitTest/TECH/File/dto/HoofdObject.cls.xml	(revision 2182)
@@ -0,0 +1,20 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.TECH.File.dto.HoofdObject">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Eigenschap1">
+<Type>%String</Type>
+</Property>
+
+<Property name="Eigenschap2">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="SubObject">
+<Type>vhUnitTest.TECH.File.dto.Object1</Type>
+</Property>
+</Class>
+</Export>
Index: vhUnitTest/TECH/TestFileHandler.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/TestFileHandler.cls.xml	(revision 0)
+++ vhUnitTest/TECH/TestFileHandler.cls.xml	(revision 2182)
@@ -0,0 +1,258 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.TECH.TestFileHandler">
+<Description>
+do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","TECH.TestFileHandler")</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="TxtEersteLijn">
+<Type>%String</Type>
+<Default>Dit is de eerste lijn</Default>
+</Parameter>
+
+<Parameter name="TxtTweedeLijn">
+<Type>%String</Type>
+<Default>Dit is de tweede lijn</Default>
+</Parameter>
+
+<Method name="TestSchrijfImmediateFile">
+<Description>
+Testen om file onmiddelijk weg te schrijven</Description>
+<Implementation><![CDATA[
+	Set WriteImmediate = 1
+	Set TempDir = ##class(TECH.Config.ConfigMgr).Instance().GetString("vhDev.TempFilePath")	
+	Set Bestandsnaam = "TestBestandImmediate.txt"	
+	Set Bestand = ##class(TECH.Files).AppendFile(TempDir,Bestandsnaam)
+	
+	Do ..SchrijfNaarBestand(Bestand,WriteImmediate)
+	
+	Do $$$AssertTrue(##class(TECH.File).Exists(Bestand),"Het bestand is aangemaakt.")
+	Set FileReader = ##class(TECH.File.FileReader).%New(Bestand)
+	Set EersteLijn = FileReader.ReadLine()
+	Set TweedeLijn = FileReader.ReadLine()
+	Do FileReader.Close()
+	
+	Do $$$AssertEquals(..#TxtEersteLijn,EersteLijn,"Eerste lijn goed uitgelezen.")
+	Do $$$AssertEquals(..#TxtTweedeLijn,TweedeLijn,"Tweede lijn goed uitgelezen.")
+	
+	Set Gelukt =  ##class(TECH.File).Delete(Bestand)
+	Do $$$AssertTrue(Gelukt,"Bestand is verwijderd.")
+]]></Implementation>
+</Method>
+
+<Method name="TestSchrijfTweeKeerNaElkaar">
+<Description>
+Testen om file onmiddelijk weg te schrijven</Description>
+<Implementation><![CDATA[
+	Set WriteImmediate = 1
+	Set TempDir = ##class(TECH.Config.ConfigMgr).Instance().GetString("vhDev.TempFilePath")	
+	Set Bestandsnaam = "TestBestandImmediate.txt"	
+	Set Bestand = ##class(TECH.Files).AppendFile(TempDir,Bestandsnaam)
+	
+	Do ..SchrijfNaarBestand(Bestand,WriteImmediate)
+	
+	Do $$$AssertTrue(##class(TECH.File).Exists(Bestand),"Het bestand is aangemaakt.")
+	Set FileReader = ##class(TECH.File.FileReader).%New(Bestand)
+	Set EersteLijn = FileReader.ReadLine()
+	Set TweedeLijn = FileReader.ReadLine()
+	Do FileReader.Close()
+	
+	Do $$$AssertEquals(..#TxtEersteLijn,EersteLijn,"Eerste lijn goed uitgelezen.")
+	Do $$$AssertEquals(..#TxtTweedeLijn,TweedeLijn,"Tweede lijn goed uitgelezen.")
+	
+	
+	Set FileWriter = ##class(TECH.File.FileWriter).%New(Bestand, WriteImmediate)
+	
+	Set TxtEersteLijn = "Dit is de eerste lijn_Nieuwe inhoud"
+	Set TxtTweedeLijn = "Dit is de tweede lijn_nieuwe inhoud"
+	
+	Do FileWriter.Write(TxtEersteLijn)
+	Do FileWriter.Write($C(13,10)_TxtTweedeLijn)	
+	Do FileWriter.Close()
+	
+	
+	Set Gelukt =  ##class(TECH.File).Delete(Bestand)
+	Do $$$AssertTrue(Gelukt,"Bestand is verwijderd.")
+]]></Implementation>
+</Method>
+
+<Method name="TestSchrijfFile">
+<Description>
+Testen om file eerst lokaal aan te maken en dan te kopieren over het netwerk.
+In UniTest blijf het op het lokaal systeem en niet over netwerk.</Description>
+<Implementation><![CDATA[
+	Set WriteImmediate = 0
+	Set TempDir = ##class(TECH.Config.ConfigMgr).Instance().GetString("vhDev.TempFilePath")	
+	Set Bestandsnaam = "TestBestand2.txt"	
+	Set Bestand = ##class(TECH.Files).AppendFile(TempDir,Bestandsnaam)
+	
+	Do ..SchrijfNaarBestand(Bestand,WriteImmediate)
+	
+	Do $$$AssertTrue(##class(TECH.File).Exists(Bestand),"Het bestand is aangemaakt.")
+	
+	Set FileReader = ##class(TECH.File.FileReader).%New(Bestand)
+	Set EersteLijn = FileReader.ReadLine()
+	Set TweedeLijn = FileReader.ReadLine()
+	
+	Do $$$AssertEquals(..#TxtEersteLijn,EersteLijn,"Eerste lijn goed uitgelezen.")
+	Do $$$AssertEquals(..#TxtTweedeLijn,TweedeLijn,"Tweede lijn goed uitgelezen.")
+	Do FileReader.Close()
+	Set Gelukt =  ##class(TECH.File).Delete(Bestand)
+	Do $$$AssertTrue(Gelukt,"Bestand is verwijderd.")
+]]></Implementation>
+</Method>
+
+<Method name="TestSchrijfXMLFile">
+<Description>
+Testen om file eerst lokaal aan te maken en dan te kopieren over het netwerk.
+In UniTest blijf het op het lokaal systeem en niet over netwerk.</Description>
+<Implementation><![CDATA[
+	Set WriteImmediate = 1
+	Set TempDir = ##class(TECH.Config.ConfigMgr).Instance().GetString("vhDev.TempFilePath")	
+	Set Bestandsnaam = "TestBestand.xml"	
+	Set Bestand = ##class(TECH.Files).AppendFile(TempDir,Bestandsnaam)
+	
+	Set FileWriter = ##class(TECH.File.FileWriter).%New(Bestand, WriteImmediate)
+	
+	Set XMLdto = ..GeefXMLdto()
+	
+	Do FileWriter.WriteXML(XMLdto)
+	
+	Do FileWriter.Close()
+	
+	Do $$$AssertTrue(##class(TECH.File).Exists(Bestand),"Het bestand is aangemaakt.")
+	
+	Set dtoHoofdObject = ""
+	Set XMLReader = ##class(%XML.Reader).%New()
+	Set Status=XMLReader.OpenFile(Bestand)
+	If $$$ISOK(Status){
+		Do XMLReader.Correlate("HoofdObject","vhUnitTest.TECH.File.dto.HoofdObject") 
+		Do XMLReader.Next(.Object,.sc)
+		Set dtoHoofdObject = Object
+	}
+	Do XMLReader.Close()
+	Set XMLReader = ""
+	
+	Do $$$AssertTrue($IsObject(dtoHoofdObject),"Dto is als object uitgelezen.")
+	
+	Do $$$AssertEquals(dtoHoofdObject.Eigenschap1,"Unit Test","Eerste property was goed ingevuld.")
+	Do $$$AssertEquals(dtoHoofdObject.Eigenschap2,123,"Tweede property was goed ingevuld.")
+	Do $$$AssertTrue($IsObject(dtoHoofdObject.SubObject),"SubDto is als object uitgelezen.")
+	Do $$$AssertEquals(dtoHoofdObject.SubObject.SubEigenschap,"Unit Test Sub","Eerste property van SubObject was goed ingevuld.")
+	
+	Set Gelukt =  ##class(TECH.File).Delete(Bestand)
+	Do $$$AssertTrue(Gelukt,"Bestand is verwijderd.")
+]]></Implementation>
+</Method>
+
+<Method name="TestSchrijfTweeKeerNaarFile">
+<Description>
+Schrijf vanuit hetzelfde proces twee maal naar zelfde file, terwijl de eerste nog open staat.</Description>
+<Implementation><![CDATA[
+	Set WriteImmediate = 0
+	Set TempDir = ##class(TECH.Config.ConfigMgr).Instance().GetString("vhDev.TempFilePath")	
+	Set Bestandsnaam = "TestBestandNetwerk.txt"	
+	Set Bestand = ##class(TECH.Files).AppendFile(TempDir,Bestandsnaam)
+	
+	Set FileWriter1 = ##class(TECH.File.FileWriter).%New(Bestand, WriteImmediate)
+
+	
+	Do FileWriter1.Write(..#TxtEersteLijn)
+	Set $ZTRAP = "CatchInGebruik"
+	Set IsInFoutGegaan = 0
+	Set FileWriter2 = ##class(TECH.File.FileWriter).%New(Bestand, WriteImmediate)
+	Do FileWriter2.Write(..#TxtEersteLijn_"ViaFileWriter2")
+	
+	Do FileWriter1.Write($C(13,10)_..#TxtTweedeLijn)	
+	GoTo Einde
+CatchInGebruik
+	Set Exception = ##class(TECH.ExceptionHandler).Catch("TECH.Exceptions.FileException")
+	Set IsInFoutGegaan = 1
+	Do $$$AssertTrue(Exception.GeefOmschrijving()["Er wordt reeds naar de file","Omschrijving ok.")
+Einde Set $ZTRAP = ""
+	Do FileWriter1.Close()	
+	Do $$$AssertTrue(IsInFoutGegaan,"FileHandler kon tweede keer bestand niet openen.")
+	
+	Set Gelukt =  ##class(TECH.File).Delete(Bestand)
+	Do $$$AssertTrue(Gelukt,"Bestand is verwijderd.")
+]]></Implementation>
+</Method>
+
+<Method name="TestSchrijfTweeKeerNaarFileJob">
+<Description>
+Schrijf vanuit een ander proces twee maal naar zelfde file, terwijl de eerste nog open staat.</Description>
+<Implementation><![CDATA[
+	Set WriteImmediate = 0
+	Set TempDir = ##class(TECH.Config.ConfigMgr).Instance().GetString("vhDev.TempFilePath")	
+	Set Bestandsnaam = "TestBestandJob.txt"	
+	Set Bestand = ##class(TECH.Files).AppendFile(TempDir,Bestandsnaam)
+	
+	Set FileWriter1 = ##class(TECH.File.FileWriter).%New(Bestand, WriteImmediate)
+	
+	Do FileWriter1.Write(..#TxtEersteLijn)
+	Set IsInFoutGegaan = 0
+	
+	Set ^IsInFoutGegaanBijJob = 0
+	JOB ClassMethod^vhLib("vhUnitTest.TECH.TestFileHandler","SchrijfIets",3,Bestand,WriteImmediate,"Vanuit tweede filehandler")
+	
+	Do FileWriter1.Write($C(13,10)_..#TxtTweedeLijn)	
+	Do FileWriter1.Close()	
+	
+	/// even wachten zodat job zeker is uitgevoerd.
+	h 1
+	Do $$$AssertTrue(^IsInFoutGegaanBijJob,"FileHandler kon tweede keer bestand niet openen in ander proces.")
+	Kill ^IsInFoutGegaanBijJob
+	
+	Set Gelukt =  ##class(TECH.File).Delete(Bestand)
+	Do $$$AssertTrue(Gelukt,"Bestand is verwijderd.")
+]]></Implementation>
+</Method>
+
+<Method name="SchrijfIets">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Bestand:%String,WriteImmediate:%Boolean,Inhoud:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set $ZTRAP = "CatchInGebruik"
+	Set FileWriter = ##class(TECH.File.FileWriter).%New(Bestand, WriteImmediate)
+	Do FileWriter.Write(Inhoud)
+	Do FileWrite.Close()
+	Quit
+CatchInGebruik
+	Set $ZTRAP = ""
+	Set ^IsInFoutGegaanBijJob = 1
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="SchrijfNaarBestand">
+<FormalSpec>Bestand:%String,WriteImmediate:%Boolean</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set FileWriter = ##class(TECH.File.FileWriter).%New(Bestand, WriteImmediate)
+	
+	Set TxtEersteLijn = "Dit is de eerste lijn"
+	Set TxtTweedeLijn = "Dit is de tweede lijn"
+	
+	Do FileWriter.Write(TxtEersteLijn)
+	Do FileWriter.Write($C(13,10)_TxtTweedeLijn)	
+	Do FileWriter.Close()
+]]></Implementation>
+</Method>
+
+<Method name="GeefXMLdto">
+<Private>1</Private>
+<ReturnType>vhUnitTest.TECH.File.dto.HoofdObject</ReturnType>
+<Implementation><![CDATA[
+	Set dto = ##class(vhUnitTest.TECH.File.dto.HoofdObject).%New()
+	Set dto.Eigenschap1 = "Unit Test"
+	Set dto.Eigenschap2 = 123
+	Set dto.SubObject = ##class(vhUnitTest.TECH.File.dto.Object1).%New()
+	Set dto.SubObject.SubEigenschap = "Unit Test Sub"
+	Quit dto
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: TECH/enu/LockType.cls.xml
===================================================================
diff -u
--- TECH/enu/LockType.cls.xml	(revision 0)
+++ TECH/enu/LockType.cls.xml	(revision 2182)
@@ -0,0 +1,31 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.enu.LockType">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%String</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>,S,X</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>;Shared;Exclusive</Default>
+</Parameter>
+
+<Method name="Shared">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "S"
+]]></Implementation>
+</Method>
+
+<Method name="Exclusive">
+<ClassMethod>1</ClassMethod>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "X"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: TECH/File/FileReader.cls.xml
===================================================================
diff -u
--- TECH/File/FileReader.cls.xml	(revision 0)
+++ TECH/File/FileReader.cls.xml	(revision 2182)
@@ -0,0 +1,76 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.File.FileReader">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Bestand">
+<Type>%String</Type>
+</Property>
+
+<Property name="FileCharacterStream">
+<Type>%FileCharacterStream</Type>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+Bestand : Directory + bestand</Description>
+<FormalSpec>Bestand:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	
+	Set ..Bestand = Bestand
+	
+	If ##class(TECH.File).Exists(..Bestand)
+	{
+		Set ..FileCharacterStream = ##class(%FileCharacterStream).%New()
+		Set ..FileCharacterStream.Filename = ..Bestand
+		Do ..FileCharacterStream.Rewind()
+	}Else{
+		Set Exception = ##class(TECH.Exceptions.FileException).%New("Het bestand '"_..Bestand_"' bestaat niet.")
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Close">
+<Implementation><![CDATA[
+	Do ..FileCharacterStream.%Close()
+	Set ..FileCharacterStream = ""
+]]></Implementation>
+</Method>
+
+<Method name="ReadLine">
+<Description>
+Leest een lijn uit. 
+Resultaat -1 = einde van bestand.</Description>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Line = -1
+	If ('..FileCharacterStream.AtEnd){
+		Set Line = ..FileCharacterStream.ReadLine()
+	}
+	Quit Line
+]]></Implementation>
+</Method>
+
+<Method name="AtEnd">
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	Quit ..FileCharacterStream.AtEnd
+]]></Implementation>
+</Method>
+
+<Method name="%OnClose">
+<Description><![CDATA[
+This callback method is invoked by the <METHOD>%Close</METHOD> method to 
+provide notification that the current object is being closed.]]></Description>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Do ..Close()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: TECH/PubSub/impl/EventDispatcher.cls.xml
===================================================================
diff -u -r1074 -r2182
--- TECH/PubSub/impl/EventDispatcher.cls.xml	(.../EventDispatcher.cls.xml)	(revision 1074)
+++ TECH/PubSub/impl/EventDispatcher.cls.xml	(.../EventDispatcher.cls.xml)	(revision 2182)
@@ -20,7 +20,8 @@
 DispatchError
 			Set $ZTRAP=""
 			Set Logger = ##class(TECH.PubSub.impl.PubSubLogger).%New()
-			Do Logger.ErrorMail("Foutieve subscription","Event: "_Event.Type_", Class: "_Subscription.RespondingClass_", Method: "_Subscription.RespondingMethod_", Error: "_$ZE)
+			Set Exception = ##class(TECH.ExceptionHandler).Catch()
+			Do Logger.ErrorMail("Foutieve subscription","Event: "_Event.Type_", Class: "_Subscription.RespondingClass_", Method: "_Subscription.RespondingMethod_", Error: "_$C(13,10)_Exception.ToString())
 EindeIf
 		}
 		Else {
Index: APPS/VisiDot/Afhandelaar.cls.xml
===================================================================
diff -u -r2104 -r2182
--- APPS/VisiDot/Afhandelaar.cls.xml	(.../Afhandelaar.cls.xml)	(revision 2104)
+++ APPS/VisiDot/Afhandelaar.cls.xml	(.../Afhandelaar.cls.xml)	(revision 2182)
@@ -30,12 +30,12 @@
 	Set Locatie = ..GeefDoelLocatie(ProcessedData)
 	Do ##class(%File).CreateDirectoryChain(Locatie)
 	Set DoelLocatie = ##class(TECH.Files).AppendFile(Locatie,BestandNaam)
-	Set FileStream = ##class(%FileCharacterStream).%New()
-	Do ProcessedData.XMLExportToStream(.FileStream,"","literal,indent")
-	Do FileStream.SaveStream()
-	Set Status = ##class(%File).Rename(FileStream.Filename,DoelLocatie)
-	If ($$$ISERR(Status)) Do ##class(vhLib.Logger).%New("APPS.VisiDot").ErrorMail("BewaarData", "Kon data van webservice niet opslaan naar bestand '"_DoelLocatie_"'")
-	Set FileStream = ""
+	
+	Set WriteImmediate = 0
+	Set FileWriter = ##class(TECH.File.FileWriter).%New(DoelLocatie,WriteImmediate)
+	Do FileWriter.WriteXML(ProcessedData)
+	Do FileWriter.Close()
+	Set FileWriter = ""
 ]]></Implementation>
 </Method>
 </Class>
Index: TECH/File/FileWriter.cls.xml
===================================================================
diff -u
--- TECH/File/FileWriter.cls.xml	(revision 0)
+++ TECH/File/FileWriter.cls.xml	(revision 2182)
@@ -0,0 +1,146 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.File.FileWriter">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="FileCharacterStream">
+<Type>%Library.FileCharacterStream</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Bestand">
+<Type>%String</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Lock">
+<Type>TECH.Lock</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WriteImmediate">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Description>
+FileHandler die ook locking en rechten beheerd voor de file
+Bestand : Directory + bestand
+WriteImmediate : Schrijft onmiddelijk op de definitieve locatie, (voor over netwerk te sturen deze op false zetten !)</Description>
+<FormalSpec>Bestand:%String,WriteImmediate:%Boolean=1</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	
+	Set ..Bestand = Bestand
+	Set ..WriteImmediate = WriteImmediate
+	
+	/// Nagaan of reeds naar bestand wordt geschreven door ander process
+	Set ..Lock = ##class(TECH.Lock).%New(..GeefLockKey())
+	If ('..Lock.HeeftLock()) {
+		Do ..Lock.Lock(##class(TECH.enu.LockType).Exclusive())
+	}Else{
+		Set Exception = ##class(TECH.Exceptions.FileException).%New("Er wordt reeds naar de file '"_..Bestand_"' geschreven.",1)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	/// Zo nodig doel locatie aanmaken
+	Set DoelLocatie = ##class(TECH.File).GetDirectory(Bestand)
+	If ('##class(TECH.File).DirectoryExists(DoelLocatie)){
+		Do ##class(TECH.File).CreateDirectoryChain(DoelLocatie)
+	}
+	
+	/// Stream aanmaken	
+	Set ..FileCharacterStream=##class(%FileCharacterStream).%New()	
+	If (..WriteImmediate){
+		Set ..FileCharacterStream.Filename = ..Bestand
+	}Else{
+		Set TempDir = ##class(TECH.Config.ConfigMgr).Instance().GetString("vhDev.TempFilePath")	
+		Set TempFile = $job_"_"_##class(TECH.DateTime).CurrentTime()_"_"_$random(99999999)
+		Set TempBestand = ##class(TECH.Files).AppendFile(TempDir,TempFile)
+		Set ..FileCharacterStream.Filename = TempBestand
+	}
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="Close">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set $ZTRAP = "Catch"
+	Set Filename = ..FileCharacterStream.Filename
+	Do ..FileCharacterStream.SaveStream()
+	Do ..FileCharacterStream.%Close()
+	/// Bestand kopieren indien WriteImmediate niet aan stond.
+	/// Handig voor snelheid bij wegschrijven naar netwerklocatie
+	If ('..WriteImmediate){
+		Set Gelukt = ##class(%File).CopyFile(Filename,..Bestand)		
+		If (Gelukt){
+			Set DeleteGelukt = ##class(TECH.File).Delete(Filename)
+			If (DeleteGelukt){
+				Set Exception = ##class(TECH.Exceptions.FileException).%New("Bestand kon niet worden verwijdert '"_Filename_"'",0)
+				Do ##class(TECH.ExceptionHandler).Throw(Exception)	
+			}			
+		}Else{
+			Set Exception = ##class(TECH.Exceptions.FileException).%New("Bestand kon niet worden verplaatst. '"_Filename_"' naar '"_..Bestand_"'.",0)
+			Do ##class(TECH.ExceptionHandler).Throw(Exception)
+		}
+	}		
+	Set ..FileCharacterStream = ""
+Catch	
+	Set $ZTRAP = ""
+	Do ..Lock.UnLock(##class(TECH.enu.LockType).Exclusive())
+]]></Implementation>
+</Method>
+
+<Method name="Write">
+<FormalSpec>Inhoud:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = ..FileCharacterStream.Write(Inhoud)
+	If $$$ISERR(Status){
+		Set Exception = ##class(TECH.Exceptions.FileException).%New("File is reeds extern geopend voor wijzigingen '"_..Bestand_"'.",Status)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)	
+	}
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="WriteXML">
+<FormalSpec>XMLObject:%XML.Adaptor,XMLExportOpties:%String="literal,indent"</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = XMLObject.XMLExportToStream(..FileCharacterStream,"",XMLExportOpties)
+	If $$$ISERR(Status){
+		Set Exception = ##class(TECH.Exceptions.FileException).%New("Kon niet exporteren naar XML '"_XMLObject_"'.",Status)
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)	
+	}
+	Quit Status
+]]></Implementation>
+</Method>
+
+<Method name="GeefLockKey">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "^FileHandler("""_..Bestand_""")"
+]]></Implementation>
+</Method>
+
+<Method name="%OnClose">
+<Description><![CDATA[
+This callback method is invoked by the <METHOD>%Close</METHOD> method to 
+provide notification that the current object is being closed.
+Wordt ook bij een Kill uitgevoerd]]></Description>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..Close()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: JBL FileHandler.prj.xml
===================================================================
diff -u
--- JBL FileHandler.prj.xml	(revision 0)
+++ JBL FileHandler.prj.xml	(revision 2182)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Project name="JBL FileHandler" LastModified="2011-09-26 17:14:06">
+  <Items>
+    <ProjectItem name="TECH.File.FileReader" type="CLS"/>
+    <ProjectItem name="TECH.File.FileWriter" type="CLS"/>
+    <ProjectItem name="TECH.File.StreamHandler" type="CLS"/>
+    <ProjectItem name="TECH.Lock" type="CLS"/>
+    <ProjectItem name="TECH.enu.LockType" type="CLS"/>
+    <ProjectItem name="vhUnitTest.TECH.File.dto.HoofdObject" type="CLS"/>
+    <ProjectItem name="vhUnitTest.TECH.File.dto.Object1" type="CLS"/>
+    <ProjectItem name="vhUnitTest.TECH.TestFileHandler" type="CLS"/>
+  </Items>
+</Project>
+</Export>
Index: APPS/CRM/KlantService.cls.xml
===================================================================
diff -u -r2178 -r2182
--- APPS/CRM/KlantService.cls.xml	(.../KlantService.cls.xml)	(revision 2178)
+++ APPS/CRM/KlantService.cls.xml	(.../KlantService.cls.xml)	(revision 2182)
@@ -124,7 +124,6 @@
 Do ##class(APPS.CRM.KlantService).MaakKlantBestand()</Description>
 <ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
-	$$$TECHErrorTrapOn
 	Set KlantService = ##class(APPS.CRM.KlantService).%New()
 	Set dtoKlantBestand = ##class(APPS.CRM.dto.KlantBestand).%New()
 	Set dtoKlantBestand.Klanten = ##class(%ListOfObjects).%New()
@@ -136,10 +135,9 @@
 	
 	Set Bestandsnaam = ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.CRM.KlantService.KlantBestand")
 	
-	set KlantBestand = KlantService.ExportXML(dtoKlantBestand, Bestandsnaam)
+	Do ..SchrijfKlantDto(Bestandsnaam, dtoKlantBestand)
 	
-	$$$TECHErrorTrapOff
-	Quit KlantBestand
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -149,19 +147,12 @@
 <FormalSpec>KlantNr:%Integer,Bestandsnaam:%String=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	$$$TECHErrorTrapOn
 	$$$chkRequiredParameter(KlantNr)
 	
 	if '$length(Bestandsnaam) {
-		If ($ZU(5) = "ADMIN1"){
-			Set Bestandsnaam = "\\FOP\VHINTRA\APPS.CRM\KLANT_::datum::.XML"
-		}Else{
-			Set ConfigMgr = ##class(TECH.Config.ConfigMgr).Instance()
-			Do ##class(vhLib.Logger).%New("APPS.CRM.KlantService").Info("VulKlantWijzigingenBestandAan","KlantNr : "_KlantNr)
-			Do ##class(vhLib.Logger).%New("APPS.CRM.KlantService").Info("VulKlantWijzigingenBestandAan","ConfigMgr is Object ? "_$IsObject(ConfigMgr))
-			Set Bestandsnaam = ConfigMgr.GetString("APPS.CRM.KlantService.KlantBestandIncrementeel")
-			Do ##class(vhLib.Logger).%New("APPS.CRM.KlantService").Info("VulKlantWijzigingenBestandAan","Bestandsnaam KlantBestand : "_Bestandsnaam)	
-		}		
+		Set ConfigMgr = ##class(TECH.Config.ConfigMgr).Instance()
+		Set Bestandsnaam = ConfigMgr.GetString("APPS.CRM.KlantService.KlantBestandIncrementeel")
+		
 		Set Datum = ""_$zd($h,3)
 		set Bestandsnaam = $$Replace^vhLib.String(Bestandsnaam,"::datum::",Datum)
 	}
@@ -174,6 +165,8 @@
 		Do XMLReader.Next(.Object,.sc)
 		Set dtoKlantBestand = Object
 	}
+	Do XMLReader.Close()
+	Set XMLReader = ""
 	
 	/// Indien de klant diezelfde dag al was gewijzigd, de vorige KlantId eruit halen.
 	/// Dit voorkomt ook duplicate data in het xml bestand.
@@ -188,14 +181,51 @@
 	Set Klant = KlantAPI.GeefKlant(KlantNr)
 	Set dtoKlantId = ..Klant2KlantId(Klant)			
 	Do dtoKlantBestand.Klanten.Insert(dtoKlantId)		
+	Do ..SchrijfKlantDto(Bestandsnaam, dtoKlantBestand)
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="SchrijfKlantDto">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Bestandsnaam:%String,dtoKlantBestand:APPS.CRM.dto.KlantBestand</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set AantalPogingen = 0
 	
-	set KlantBestand = ..ExportXML(dtoKlantBestand, Bestandsnaam)
-	
-	$$$TECHErrorTrapOff
-	Quit KlantBestand
+SchrijfSeq
+	Set $ZTRAP = "Catch"
+	Do ..SchrijfKlantBestand(Bestandsnaam,dtoKlantBestand)
+	Quit $$$OK
+Catch
+	Set $ZTRAP = ""
+	Set Exception = ##class(TECH.ExceptionHandler).Catch()
+	If (Exception.%Extends("TECH.Exceptions.LockedException"))	{
+		If (AantalPogingen < 3){
+			Hang 1
+			GoTo SchrijfSeq
+		}Else{
+			Do ##class(TECH.ExceptionHandler).Rethrow(Exception)	
+		}
+	}Else{
+	    Do ##class(TECH.ExceptionHandler).Rethrow(Exception)
+	}
 ]]></Implementation>
 </Method>
 
+<Method name="SchrijfKlantBestand">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Bestandsnaam:%String,dtoKlantBestand:APPS.CRM.dto.KlantBestand</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set WriteImmediate = 0		
+	Set FileWriter = ##class(TECH.File.FileWriter).%New(Bestandsnaam,WriteImmediate)
+	Do FileWriter.WriteXML(dtoKlantBestand)
+	Do FileWriter.Close()
+	Set FileWrite = ""
+]]></Implementation>
+</Method>
+
 <Method name="InitSubscription">
 <Description>
 Do ##class(APPS.CRM.KlantService).InitSubscription()</Description>
@@ -273,16 +303,5 @@
 	Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
 ]]></Implementation>
 </Method>
-
-<Method name="ExportXML">
-<FormalSpec>XML:APPS.CRM.dto.KlantBestand,Bestandsnaam:%String=""</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set FileStream = ##class(%FileCharacterStream).%New()
-	Set FileStream.Filename = Bestandsnaam
-	Set sc=$$ProxyToXMLStream^vhLib(XML,FileStream,"", 1)
-	Quit FileStream.SaveStream()
-]]></Implementation>
-</Method>
 </Class>
 </Export>
Index: vhUnitTest/TECH/File/dto/Object1.cls.xml
===================================================================
diff -u
--- vhUnitTest/TECH/File/dto/Object1.cls.xml	(revision 0)
+++ vhUnitTest/TECH/File/dto/Object1.cls.xml	(revision 2182)
@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.TECH.File.dto.Object1">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="SubEigenschap">
+<Type>%String</Type>
+</Property>
+</Class>
+</Export>
Index: APPS/LEV/LeverancierService.cls.xml
===================================================================
diff -u -r1234 -r2182
--- APPS/LEV/LeverancierService.cls.xml	(.../LeverancierService.cls.xml)	(revision 1234)
+++ APPS/LEV/LeverancierService.cls.xml	(.../LeverancierService.cls.xml)	(revision 2182)
@@ -55,10 +55,10 @@
 	
 	Set Bestandsnaam = ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.LEV.LeverancierService.LeverancierBestand")
 	
-	set LeverancierBestand = LeverancierService.ExportXML(dtoLeverancierBestand, Bestandsnaam)
+	Do ..SchrijfLeverancierDto(Bestandsnaam,dtoLeverancierBestand)
 	
 	$$$TECHErrorTrapOff
-	Quit LeverancierBestand
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -86,6 +86,9 @@
 		Set dtoLeverancierBestand = Object
 	}
 	
+	Do XMLReader.Close()
+	Set XMLReader = ""
+	
 	/// Indien de leverancier diezelfde dag al was gewijzigd, de vorige leverancierId eruit halen.
 	/// Want daarin kan reeds een verouderd adres staat.
 	/// Dit voorkomt ook duplicate data in het xml bestand.
@@ -101,13 +104,53 @@
 	Set dtoLeverancierId = ..Leverancier2LeverancierId(Leverancier)			
 	Do dtoLeverancierBestand.Leveranciers.Insert(dtoLeverancierId)		
 	
-	set LeverancierBestand = ..ExportXML(dtoLeverancierBestand, Bestandsnaam)
+	Do ..SchrijfLeverancierDto(Bestandsnaam,dtoLeverancierBestand)
 	
 	$$$TECHErrorTrapOff
-	Quit LeverancierBestand
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="SchrijfLeverancierDto">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Bestandsnaam:%String,dtoLeverancierBestand:APPS.LEV.dto.LeverancierBestand</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set AantalPogingen = 0
+	
+SchrijfSeq
+	Set $ZTRAP = "Catch"
+	Do ..SchrijfLeverancierBestand(Bestandsnaam,dtoLeverancierBestand)
+	Quit $$$OK
+Catch
+	Set $ZTRAP = ""
+	Set Exception = ##class(TECH.ExceptionHandler).Catch()
+	If (Exception.%Extends("TECH.Exceptions.LockedException"))	{
+		If (AantalPogingen < 3){
+			Hang 1
+			GoTo SchrijfSeq
+		}Else{
+			Do ##class(TECH.ExceptionHandler).Rethrow(Exception)	
+		}
+	}Else{
+	    Do ##class(TECH.ExceptionHandler).Rethrow(Exception)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="SchrijfLeverancierBestand">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Bestandsnaam:%String,dtoLeverancierBestand:APPS.LEV.dto.LeverancierBestand</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set WriteImmediate = 0		
+	Set FileWriter = ##class(TECH.File.FileWriter).%New(Bestandsnaam,WriteImmediate)
+	Do FileWriter.WriteXML(dtoLeverancierBestand)
+	Do FileWriter.Close()
+	Set FileWrite = ""
+]]></Implementation>
+</Method>
+
 <Method name="Leverancier2LeverancierId">
 <Description>
 Converteer een Leverancier in een dto LeverancierId object 	</Description>
@@ -214,17 +257,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ExportXML">
-<FormalSpec>XML:APPS.LEV.dto.LeverancierBestand,Bestandsnaam:%String=""</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set FileStream = ##class(%FileCharacterStream).%New()
-	Set FileStream.Filename = Bestandsnaam
-	Set sc=$$ProxyToXMLStream^vhLib(XML,FileStream,"", 1)
-	Quit FileStream.SaveStream()
-]]></Implementation>
-</Method>
-
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^APPS.LEV.LeverancierServiceD</DataLocation>