Index: APPS/CHUI/TerminalNavigatieService.cls.xml
===================================================================
diff -u -r48050 -r49757
--- APPS/CHUI/TerminalNavigatieService.cls.xml	(.../TerminalNavigatieService.cls.xml)	(revision 48050)
+++ APPS/CHUI/TerminalNavigatieService.cls.xml	(.../TerminalNavigatieService.cls.xml)	(revision 49757)
@@ -127,10 +127,29 @@
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	#dim Taak As APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieTaak = ..GeefTaak(ComputerNaam)
+	Do ..LogNavigatieTaak(ComputerNaam,Taak)
 	quit $isObject(Taak)
 ]]></Implementation>
 </Method>
 
+<Method name="LogNavigatieTaak">
+<FormalSpec>ComputerNaam:%String,Taak:APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieTaak=""</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim LogDetail As %String = " voor ComputerNaam '"_ComputerNaam_"'"
+	Try {
+		#dim ClientIP As %String = ##class(TECH.Process).GeefClientIP()
+		Set LogDetail = LogDetail _ " (IP-adres '"_ClientIP_"')"
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set LogDetail = LogDetail _ " fout bij ophalen IP-adres : "_Exception.ToString()_$$$CRLF_$$$CRLF
+	}
+	Set LogDetail = LogDetail _" is "_$S($IsObject(Taak):"volgende taak gevonden : ID='"_Taak.GeefID()_"' "_$$$CRLF_$$ObjToText^vhLib(Taak), 1:"GEEN TerminalNavigatieTaak gevonden. ")
+	
+	Do ##class(vhLib.Logger).%New("").Info("TerminalNavigatieService.HeeftTaak",LogDetail)
+]]></Implementation>
+</Method>
+
 <Method name="VoerTaakUit">
 <FormalSpec>ComputerNaam:%String</FormalSpec>
 <Implementation><![CDATA[