Index: TECH/File/FileWriter.cls.xml
===================================================================
diff -u -r528 -r913
--- TECH/File/FileWriter.cls.xml	(.../FileWriter.cls.xml)	(revision 528)
+++ TECH/File/FileWriter.cls.xml	(.../FileWriter.cls.xml)	(revision 913)
@@ -1,206 +1,38 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="TECH.File.FileWriter">
-<ClassType/>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
+<Abstract>1</Abstract>
+<Super>TECH.Interface</Super>
 
-<Property name="FileCharacterStream">
-<Type>%Library.FileCharacterStream</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="Bestand">
-<Type>%String</Type>
-<Private>1</Private>
-<Parameter name="TRUNCATE" value="1"/>
-</Property>
-
-<Property name="LockHelper">
-<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 ..LockHelper = ##class(TECH.Lock).%New(..GeefLockKey())
-	If ('..LockHelper.HeeftLock()) {
-		Do ..LockHelper.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)
-	}
-	
-	If '##class(TECH.File).Exists(DoelLocatie){
-		Set Exception = ##class(TECH.Exceptions.FileException).%New("Pad bestaat niet of is niet bereikbaar : '"_DoelLocatie_"'",1)
-		Do ..LockHelper.UnLock(##class(TECH.enu.LockType).Exclusive())
-		Do ##class(TECH.ExceptionHandler).Throw(Exception)
-	}
-	
-	/// 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)_".tmp"
-		Set TempBestand = ##class(TECH.Files).AppendFile(TempDir,TempFile)
-		Set ..FileCharacterStream.Filename = TempBestand
-	}
-	
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
 <Method name="Close">
+<Abstract>1</Abstract>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Try{
-		Set Filename = ..FileCharacterStream.Filename
-	
-		/// Save Stream
-		Set Status = ..FileCharacterStream.SaveStream()
-		If ($$$ISERR(Status)){
-			Set Exception = ##class(TECH.Exceptions.FileException).%New("Bestand kon niet worden gesaved '"_Filename_"'",Status)
-			Do ##class(TECH.ExceptionHandler).Throw(Exception)	
-		}
-	
-		/// Close stream
-		Set Status = ..FileCharacterStream.%Close()
-		If ($$$ISERR(Status)){
-			Set Exception = ##class(TECH.Exceptions.FileException).%New("Bestand kon niet worden gesloten '"_Filename_"' (Doelbestand :"_..Bestand_")",Status)
-			Do ##class(TECH.ExceptionHandler).Throw(Exception)	
-		}
-	
-		/// Bestand kopieren indien WriteImmediate niet aan stond.
-		/// Handig voor snelheid bij wegschrijven naar netwerklocatie
-		If ('..WriteImmediate){
-			Set Gelukt = ##class(%File).CopyFile(Filename,..Bestand)
-			If (##class(TECH.File).Exists(Filename)){
-				If (Gelukt){
-					Set DeleteGelukt = ##class(TECH.File).Delete(Filename)
-					If 'DeleteGelukt{
-						Set Exception = ##class(TECH.Exceptions.FileException).%New("Bestand kon niet worden verwijderd '"_Filename_"'",0)
-						Do ##class(TECH.ExceptionHandler).Throw(Exception)	
-					}			
-				}Else{
-					Set DeleteGelukt = ##class(TECH.File).Delete(Filename)
-					Set Exception = ##class(TECH.Exceptions.FileException).%New("Bestand kon niet worden verplaatst. '"_Filename_"' naar '"_..Bestand_"'. "_Filename_" is verwijderd ? "_DeleteGelukt_".",0)			
-					Do ##class(TECH.ExceptionHandler).Throw(Exception)
-				}
-			}
-		}		
-		Set ..FileCharacterStream = ""
-	
-		Do ..LockHelper.UnLock(##class(TECH.enu.LockType).Exclusive())
-	}Catch(E){
-		Do ..LockHelper.UnLock(##class(TECH.enu.LockType).Exclusive())
-		Do ##class(TECH.ExceptionHandler).Rethrow()
-	}
-	Quit $$$OK
-]]></Implementation>
 </Method>
 
 <Method name="Write">
+<Abstract>1</Abstract>
 <FormalSpec>Inhoud:%String</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	#dim 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="WriteLine">
+<Abstract>1</Abstract>
 <FormalSpec>Inhoud:%String=""</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	#dim Status = ..FileCharacterStream.WriteLine(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">
+<Abstract>1</Abstract>
 <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="WriteStream">
+<Abstract>1</Abstract>
 <FormalSpec>Stream:%Stream</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set Status = ..FileCharacterStream.CopyFrom(Stream)
-	If $$$ISERR(Status){
-		Set Exception = ##class(TECH.Exceptions.FileException).%New("Kon stream niet kopieren.",Status)
-		Do ##class(TECH.ExceptionHandler).Throw(Exception)	
-	}
-	Quit Status
-]]></Implementation>
 </Method>
 
 <Method name="GeefBestandsNaam">
+<Abstract>1</Abstract>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..Bestand
-]]></Implementation>
 </Method>
-
-<Method name="GeefLockKey">
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "^TECH.File.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>