Index: APPS/CHUI/TerminalNavigatieService.cls.xml
===================================================================
diff -u -r39752 -r74650
--- APPS/CHUI/TerminalNavigatieService.cls.xml	(.../TerminalNavigatieService.cls.xml)	(revision 39752)
+++ APPS/CHUI/TerminalNavigatieService.cls.xml	(.../TerminalNavigatieService.cls.xml)	(revision 74650)
@@ -6,6 +6,34 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.Mockable</Super>
 
+<Property name="VerkoopAPI">
+<Type>DOM.VKP.VerkoopAPI</Type>
+</Property>
+
+<Property name="OrderAPI">
+<Type>DOM.VKP.OrderAPI</Type>
+</Property>
+
+<Property name="GebruikerLookup">
+<Type>AXimpl.Admin.Common.GebruikerLookup</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VerkoopAPI:DOM.VKP.VerkoopAPI,OrderAPI:DOM.VKP.OrderAPI,GebruikerLookup:AXimpl.Admin.Common.GebruikerLookup</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+    Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
+	Set ..VerkoopAPI = $$$Inject(VerkoopAPI,##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
+	Set ..OrderAPI = $$$Inject(OrderAPI,##class(DOM.DomeinContext).Instance().GeefOrderAPI())
+	Set ..GebruikerLookup = $$$Inject(GebruikerLookup,##class(AXimpl.Admin.Common.GebruikerLookup).%New())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="RaadpleegProduct">
 <FormalSpec>GebruikerID:%String,ComputerNaam:%String,ProductID:%String,ProductRaadpleegScherm:APPS.CHUI.enu.ProductRaadpleegScherm=##class(APPS.CHUI.enu.ProductRaadpleegScherm).Algemeen()</FormalSpec>
 <Implementation><![CDATA[
@@ -17,6 +45,7 @@
 	
 	set Taak = ##class(APPS.CHUI.TerminalNavigatieService.impl.TaakRaadpleegProduct).%New(GebruikerID,ComputerNaam,ProductID,ProductRaadpleegScherm)	
 	Do Taak.Save()
+	Do Taak.LogGemaakteData()
 ]]></Implementation>
 </Method>
 
@@ -33,9 +62,30 @@
 
 	set Taak = ##class(APPS.CHUI.TerminalNavigatieService.impl.TaakRaadpleegKlant).%New(GebruikerID,ComputerNaam,KlantNr,KlantRaadpleegScherm)
 	Do Taak.Save()
+	Do Taak.LogGemaakteData()
 ]]></Implementation>
 </Method>
 
+<Method name="RaadpleegOrderOpKlantScherm">
+<FormalSpec>GebruikerID:%String,ComputerNaam:%String,OrderNr:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..ControleerComputerNaam(ComputerNaam)
+	
+	If $$$Not(..OrderAPI.BestaatOrder(OrderNr)){
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen order gevonden met ID: '"_OrderNr_"'"))
+	} Else {
+		#dim Order As DOM.VKP.Order = ..OrderAPI.GeefOrder(OrderNr)
+		#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Order.GeefKlantID())
+		If $$$Not(..VerkoopAPI.BestaatKlant(Order.GeefKlantID())) {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen klant gevonden met nr: '"_KlantNr_"'"))
+		}
+		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>
+
 <Method name="RaadpleegToelevering">
 <FormalSpec>GebruikerID:%String,ComputerNaam:%String,ToeleveringID:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -47,6 +97,7 @@
 	
 	set Taak = ##class(APPS.CHUI.TerminalNavigatieService.impl.TaakRaadpleegToelevering).%New(GebruikerID,ComputerNaam,ToeleveringID)
 	Do Taak.Save()
+	Do Taak.LogGemaakteData()
 ]]></Implementation>
 </Method>
 
@@ -61,39 +112,67 @@
 	
 	Set Taak = ##class(APPS.CHUI.TerminalNavigatieService.impl.TaakRaadpleegOrder).%New(GebruikerID,ComputerNaam,OrderID)
 	Do Taak.Save()
+	Do Taak.LogGemaakteData()
 ]]></Implementation>
 </Method>
 
 <Method name="GeefTaak">
-<FormalSpec>ComputerNaam:%String</FormalSpec>
+<FormalSpec>ComputerNaam:%String,UserName:%String=""</FormalSpec>
 <ReturnType>APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieTaak</ReturnType>
 <Implementation><![CDATA[
-	#dim rsTaak As %ResultSet = $$ExecDynQuery^vhLib.Query("SELECT ID FROM APPS_CHUI_TerminalNavigatieService_impl.TerminalNavigatieTaak WHERE ComputerNaam = ?",$lb(ComputerNaam))
-	
+	Set ComputerNaam = ComputerNaam _ "%"
+	if ..GebruikerLookup.BestaatGebruiker(UserName) {
+		#dim GebruikerID as %String = ..GebruikerLookup.GeefGebruikerId(UserName)
+		#dim rsTaak As %ResultSet = $$ExecDynQuery^vhLib.Query("SELECT ID FROM APPS_CHUI_TerminalNavigatieService_impl.TerminalNavigatieTaak WHERE (ComputerNaam like 'VDI-RDS%' or Computernaam like 'VDI-APP%' or computernaam like ? )and GebruikerID = ?",$lb(ComputerNaam,GebruikerID))
+	} else {
+		Set rsTaak = $$ExecDynQuery^vhLib.Query("SELECT ID FROM APPS_CHUI_TerminalNavigatieService_impl.TerminalNavigatieTaak WHERE ComputerNaam like ?",$lb(ComputerNaam))
+	}
 	#dim Taak As %String = ""
 	if rsTaak.Next() {
 		#dim TaakID As %String = rsTaak.Get("ID")
 		if $length(TaakID) { 
 			set Taak = ##class(APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieTaak).%OpenId(TaakID)
 		}
+	} else {
+		; Geen taak
 	}
 	quit Taak
 ]]></Implementation>
 </Method>
 
 <Method name="HeeftTaak">
-<FormalSpec>ComputerNaam:%String</FormalSpec>
+<FormalSpec>ComputerNaam:%String,UserName:%String=""</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-	#dim Taak As APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieTaak = ..GeefTaak(ComputerNaam)
-	quit $isObject(Taak)
+	#dim Taak As APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieTaak = ..GeefTaak(ComputerNaam,UserName)
+	Do ..LogNavigatieTaak(ComputerNaam,Taak,UserName)	
+	Quit $isObject(Taak)
 ]]></Implementation>
 </Method>
 
+<Method name="LogNavigatieTaak">
+<FormalSpec>ComputerNaam:%String,Taak:APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieTaak="",Usernaam:%String=""</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim AdminPoort As %String = ..GeefAdminPoort()
+	#dim LogDetail As %String = " voor ComputerNaam '"_ComputerNaam_"' en Gebruiker '" _ Usernaam _"'"
+	Try {
+		#dim ClientIP As %String = ##class(TECH.Process).GeefClientIP()
+		Set LogDetail = LogDetail _ " (IP-adres '"_ClientIP_"' en admin-poort '"_AdminPoort_"')"
+		Set LogDetail = LogDetail _" is "_$S($IsObject(Taak):"volgende taak gevonden : ID='"_Taak.GeefID()_"' "_$$$CRLF_$$ObjToText^vhLib(Taak), 1:"GEEN TerminalNavigatieTaak gevonden.")
+	} Catch {
+		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Set LogDetail = LogDetail _ " fout bij ophalen IP-adres : "_Exception.ToString()_$$$CRLF_$$$CRLF
+	}
+	
+	Do ##class(vhLib.Logger).%New("").Info("TerminalNavigatieService.HeeftTaak",LogDetail)
+]]></Implementation>
+</Method>
+
 <Method name="VoerTaakUit">
-<FormalSpec>ComputerNaam:%String</FormalSpec>
+<FormalSpec>ComputerNaam:%String,Usernaam:%String=""</FormalSpec>
 <Implementation><![CDATA[
-	#dim Taak As APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieTaak = ..GeefTaak(ComputerNaam)
+	#dim Taak As APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieTaak = ..GeefTaak(ComputerNaam,Usernaam)
 	if $isObject(Taak) {
 		do Taak.%DeleteId(Taak.%Id())
 		do Taak.VoerUit()
@@ -127,27 +206,25 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefAdminPoort">
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $G(io)
+]]></Implementation>
+</Method>
+
 <Method name="ControleerComputerNaam">
 <FormalSpec>ComputerNaam:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
+	Quit ; controle niet meer mogelijk door intune werkstations die via vpn connecteren.
 	If ('$Data(^cQSYS(0,"FIXED","NBN",##class(TECH.StringUtils).ToUpper($Piece(ComputerNaam,".")))))
 	{
 		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen computer gevonden met naam: "_ComputerNaam))
 	}
 ]]></Implementation>
 </Method>
-
-<Method name="%OnNew">
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[
-    Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
-	Quit $$$OK
-]]></Implementation>
-</Method>
 </Class>