Index: svn/Logger.cls.xml
===================================================================
diff -u -r1839 -r1841
--- svn/Logger.cls.xml	(.../Logger.cls.xml)	(revision 1839)
+++ svn/Logger.cls.xml	(.../Logger.cls.xml)	(revision 1841)
@@ -109,9 +109,9 @@
 		Set ..IsTeAdden = $$$False
 		
 		If IsBestaandBestand {
-			Do ..VulAanBestaandBestand(FullPath, Message)
+			Do ..VulAanBestaandBestand(FullPath, Message, Server)
 		} Else {
-			Do ..GenereerBestand(FullPath, Message)
+			Do ..GenereerBestand(FullPath, Message, Server)
 			Set ..IsTeAdden = $$$True
 		}
 		
@@ -154,14 +154,14 @@
 </Method>
 
 <Method name="VulAanBestaandBestand">
-<FormalSpec>FullPath:%String,Message:%String</FormalSpec>
+<FormalSpec>FullPath:%String,Message:%String,Server:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim BestandStream As %Library.GlobalCharacterStream = ..GeefStreamVanBestand(FullPath)
-	#dim HuidigGetLatestRapport As svn.dto.GetLatestRapport = ..GeefHuidigGetLatestRapport(Message)
+	#dim HuidigGetLatestRapport As svn.dto.GetLatestRapport = ..GeefHuidigGetLatestRapport(Message, Server)
 	#dim Bestand As %String = ##class(TECH.Files).AppendFile(FullPath,..#Filename)
 	
-	Do BestandStream.WriteLine(HuidigGetLatestRapport.Timestamp_";"_HuidigGetLatestRapport.Message_";"_HuidigGetLatestRapport.Uitvoerder)
+	Do BestandStream.WriteLine(HuidigGetLatestRapport.Timestamp_";"_HuidigGetLatestRapport.Message_";"_HuidigGetLatestRapport.Uitvoerder_";"_Server)
 	
 	Do ..FileWriter.Open(Bestand)
 	Do ..FileWriter.WriteStream(BestandStream)
@@ -179,26 +179,27 @@
 	#dim BestaandGetLatestRapport As svn.dto.GetLatestRapport
 	
 	Set BestandStream = ##class(%Library.GlobalCharacterStream).%New()
-	Do BestandStream.WriteLine("Timestamp"_";"_"Message"_";"_"Uitvoerder")
+	Do BestandStream.WriteLine("Timestamp"_";"_"Message"_";"_"Uitvoerder"_";"_"Server")
 	
 	While BestaandeGetLatestRapportLijstIterator.HasNext() {
 		Set BestaandGetLatestRapport = BestaandeGetLatestRapportLijstIterator.Next()
-		Do BestandStream.WriteLine(BestaandGetLatestRapport.Timestamp_";"_BestaandGetLatestRapport.Message_";"_BestaandGetLatestRapport.Uitvoerder)
+		Do BestandStream.WriteLine(BestaandGetLatestRapport.Timestamp_";"_BestaandGetLatestRapport.Message_";"_BestaandGetLatestRapport.Uitvoerder_";"_BestaandGetLatestRapport.Server)
 	}
 	
 	Quit BestandStream
 ]]></Implementation>
 </Method>
 
 <Method name="GeefHuidigGetLatestRapport">
-<FormalSpec>Message:%String</FormalSpec>
+<FormalSpec>Message:%String,Server:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>svn.dto.GetLatestRapport</ReturnType>
 <Implementation><![CDATA[
 	Set HuidigGetLatestRapport = ##class(svn.dto.GetLatestRapport).%New()
 	Set HuidigGetLatestRapport.Timestamp = ..DateTimeApi.CurrentTimeStamp()
 	Set HuidigGetLatestRapport.Message = Message
 	Set HuidigGetLatestRapport.Uitvoerder = ..Username
+	Set HuidigGetLatestRapport.Server = Server
 	
 	Quit HuidigGetLatestRapport
 ]]></Implementation>
@@ -218,6 +219,7 @@
 		Set GetLatestRapport.Timestamp = FileReader.GetData(1)
 		Set GetLatestRapport.Message = FileReader.GetData(2)
 		Set GetLatestRapport.Uitvoerder = FileReader.GetData(3)
+		Set GetLatestRapport.Server = FileReader.GetData(4)
 		If $$$Not(GetLatestRapport.Timestamp = "") {
 			Do GetLatestRapportLijst.Insert(GetLatestRapport)
 		}
@@ -228,18 +230,19 @@
 </Method>
 
 <Method name="GenereerBestand">
-<FormalSpec>FullPath:%String,Message:%String</FormalSpec>
+<FormalSpec>FullPath:%String,Message:%String,Server:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set GetLatestRapportLijst = ##class(%ListOfDataTypes).%New()
-	Do GetLatestRapportLijst.Insert(..GeefHuidigGetLatestRapport(Message))
+	Do GetLatestRapportLijst.Insert(..GeefHuidigGetLatestRapport(Message, Server))
 	
 	Set GetLatestRapportLijstIterator = ##class(TECH.ListIterator).%New(GetLatestRapportLijst)
 	
 	Set Bestand = ##class(APPS.common.Rapport.dto.BestandRapportDataObjectIteratorBased).%New()
 	Do Bestand.VoegToeVeld("svn.dto.GetLatestRapport", "Timestamp")
 	Do Bestand.VoegToeVeld("svn.dto.GetLatestRapport", "Message")
 	Do Bestand.VoegToeVeld("svn.dto.GetLatestRapport", "Uitvoerder")
+	Do Bestand.VoegToeVeld("svn.dto.GetLatestRapport", "Server")
 	
 	Set Bestand.ScheidingsTeken = ";"
 	Set Bestand.Iterator = GetLatestRapportLijstIterator