Index: TECH/File/FileWriter.cls.xml
===================================================================
diff -u -r2182 -r2184
--- TECH/File/FileWriter.cls.xml	(.../FileWriter.cls.xml)	(revision 2182)
+++ TECH/File/FileWriter.cls.xml	(.../FileWriter.cls.xml)	(revision 2184)
@@ -21,6 +21,8 @@
 </Property>
 
 <Property name="WriteImmediate">
+<Description>
+Lock vervangen door LockTool of LockHelper</Description>
 <Type>%Boolean</Type>
 <Private>1</Private>
 </Property>
@@ -58,7 +60,7 @@
 		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 TempFile = $job_"_"_##class(TECH.DateTime).CurrentTime()_"_"_$random(99999999)  // (RV-JCL) misschien vaste extensie gebruiken..
 		Set TempBestand = ##class(TECH.Files).AppendFile(TempDir,TempFile)
 		Set ..FileCharacterStream.Filename = TempBestand
 	}
@@ -87,6 +89,8 @@
 		}Else{
 			Set Exception = ##class(TECH.Exceptions.FileException).%New("Bestand kon niet worden verplaatst. '"_Filename_"' naar '"_..Bestand_"'.",0)
 			Do ##class(TECH.ExceptionHandler).Throw(Exception)
+			
+			/// (RV-JCL) hier toch delete herhalen van het temp bestand 
 		}
 	}		
 	Set ..FileCharacterStream = ""
@@ -125,7 +129,7 @@
 <Method name="GeefLockKey">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "^FileHandler("""_..Bestand_""")"
+<Implementation><![CDATA[	Quit "^FileHandler("""_..Bestand_""")"  	// (RV-JCL) TECH.File.FileHandler
 ]]></Implementation>
 </Method>