Index: APPS/CHUI/TerminalNavigatieService.cls.xml
===================================================================
diff -u -r59187 -r59394
--- APPS/CHUI/TerminalNavigatieService.cls.xml	(.../TerminalNavigatieService.cls.xml)	(revision 59187)
+++ APPS/CHUI/TerminalNavigatieService.cls.xml	(.../TerminalNavigatieService.cls.xml)	(revision 59394)
@@ -39,6 +39,7 @@
 	
 	set Taak = ##class(APPS.CHUI.TerminalNavigatieService.impl.TaakRaadpleegProduct).%New(GebruikerID,ComputerNaam,ProductID,ProductRaadpleegScherm)	
 	Do Taak.Save()
+	Do Taak.LogGemaakteData()
 ]]></Implementation>
 </Method>
 
@@ -55,6 +56,7 @@
 
 	set Taak = ##class(APPS.CHUI.TerminalNavigatieService.impl.TaakRaadpleegKlant).%New(GebruikerID,ComputerNaam,KlantNr,KlantRaadpleegScherm)
 	Do Taak.Save()
+	Do Taak.LogGemaakteData()
 ]]></Implementation>
 </Method>
 
@@ -73,6 +75,7 @@
 		}
 		Set Taak = ##class(APPS.CHUI.TerminalNavigatieService.impl.TaakRaadpleegKlant).%New(GebruikerID,ComputerNaam,KlantNr,##class(APPS.CHUI.enu.KlantRaadpleegScherm).Order(),OrderNr)
 		Do Taak.Save()
+		Do Taak.LogGemaakteData()
 	}
 ]]></Implementation>
 </Method>
@@ -88,6 +91,7 @@
 	
 	set Taak = ##class(APPS.CHUI.TerminalNavigatieService.impl.TaakRaadpleegToelevering).%New(GebruikerID,ComputerNaam,ToeleveringID)
 	Do Taak.Save()
+	Do Taak.LogGemaakteData()
 ]]></Implementation>
 </Method>
 
@@ -102,6 +106,7 @@
 	
 	Set Taak = ##class(APPS.CHUI.TerminalNavigatieService.impl.TaakRaadpleegOrder).%New(GebruikerID,ComputerNaam,OrderID)
 	Do Taak.Save()
+	Do Taak.LogGemaakteData()
 ]]></Implementation>
 </Method>
 
Index: APPS/CHUI/TerminalNavigatieService/impl/TerminalNavigatieTaak.cls.xml
===================================================================
diff -u -r49109 -r59394
--- APPS/CHUI/TerminalNavigatieService/impl/TerminalNavigatieTaak.cls.xml	(.../TerminalNavigatieTaak.cls.xml)	(revision 49109)
+++ APPS/CHUI/TerminalNavigatieService/impl/TerminalNavigatieTaak.cls.xml	(.../TerminalNavigatieTaak.cls.xml)	(revision 59394)
@@ -67,6 +67,23 @@
 ]]></Implementation>
 </Method>
 
+<Method name="LogGemaakteData">
+<Description>
+Best op te roepen na de Save() </Description>
+<Implementation><![CDATA[
+	#dim Taak As APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieTaak = $this
+	#dim LogDetail As %String = "TerminalNavigatieTaak gemaakt (ID='"_Taak.GeefID()_"'). "
+	Try {
+		Set LogDetail = LogDetail _""_$$$CRLF_$$ObjToText^vhLib(Taak)
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set LogDetail = LogDetail _ " fout bij ObjToText van Taak-object : "_Exception.ToString()_$$$CRLF_$$$CRLF
+	}
+	
+	Do ##class(vhLib.Logger).%New("").Info("TerminalNavigatieService.TaakGemaakt",LogDetail)
+]]></Implementation>
+</Method>
+
 <Method name="GeefSessieId">
 <Abstract>1</Abstract>
 <Private>1</Private>