Index: svn/Helper/LogMessage.cls.xml
===================================================================
diff -u
--- svn/Helper/LogMessage.cls.xml	(revision 0)
+++ svn/Helper/LogMessage.cls.xml	(revision 1809)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="svn.Helper.LogMessage">
+<ClassType>persistent</ClassType>
+<IncludeCode>svn.Include</IncludeCode>
+<Super>TECH.Persistent</Super>
+
+<Property name="TimeStamp">
+<Type>%TimeStamp</Type>
+</Property>
+
+<Property name="Message">
+<Type>%String</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^svn.Helper.LogMessageD</DataLocation>
+<DefaultData>LogMessageDefaultData</DefaultData>
+<IdLocation>^svn.Helper.LogMessageD</IdLocation>
+<IndexLocation>^svn.Helper.LogMessageI</IndexLocation>
+<StreamLocation>^svn.Helper.LogMessageS</StreamLocation>
+<Data name="LogMessageDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>TimeStamp</Value>
+</Value>
+<Value name="3">
+<Value>Message</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: svn/Helper.cls.xml
===================================================================
diff -u -r1805 -r1809
--- svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1805)
+++ svn/Helper.cls.xml	(.../Helper.cls.xml)	(revision 1809)
@@ -401,7 +401,7 @@
 	#dim FailedCharacterStream As %GlobalCharacterStream = ..GeefFailedCharacterStream(Actie)
 	while 'FailedCharacterStream.AtEnd
 	{
-		write FailedCharacterStream.ReadLine(),!
+		Do ..Write(FailedCharacterStream.ReadLine())
 	}
 ]]></Implementation>
 </Method>
@@ -559,12 +559,20 @@
 		Do ..Failed.Clear()
 	}
 	else {
-		write "GetLatest wordt niet uitgevoerd : ",!
-		write BezwarenTegenGetLatest,!
+		Do ..Write("GetLatest wordt niet uitgevoerd : ")
+		Do ..Write(BezwarenTegenGetLatest)
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="Write">
+<FormalSpec>Message:%String</FormalSpec>
+<Implementation><![CDATA[
+	Write Message, !
+	Do ..LogMessage(Message)
+]]></Implementation>
+</Method>
+
 <Method name="VoerUitGetLatest">
 <Implementation><![CDATA[
 	Set ..IsGetLatestGefaald = 0
@@ -688,11 +696,25 @@
 	set $piece(Streepkes,"-",$length(Message)+3)="+"
 	
 	write !,Streepkes,!,"| "_Message_" |",!,Streepkes,!
-	
+	Do ..LogMessage(Message)
 	quit
 ]]></Implementation>
 </Method>
 
+<Method name="LogMessage">
+<FormalSpec>Message:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim DateTimeAPI As TECH.DateTime.DateTimeAPI =  ##class(TECH.Context).Instance().GeefDateTimeAPI()
+	#dim TimeStamp As %TimeStamp = DateTimeAPI.CurrentTimeStamp()_"."_$piece(DateTimeAPI.CurrentHorolog(6),".",2)
+	
+	#dim LogMessage As svn.Helper.LogMessage = ##class(svn.Helper.LogMessage).%New()
+	Set LogMessage.TimeStamp = TimeStamp
+	Set LogMessage.Message = Message
+	Do LogMessage.%Save()
+]]></Implementation>
+</Method>
+
 <Method name="Conflicten">
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>