Index: APPS/CHUI/TerminalNavigatieService.cls.xml
===================================================================
diff -u -r59394 -r74593
--- APPS/CHUI/TerminalNavigatieService.cls.xml	(.../TerminalNavigatieService.cls.xml)	(revision 59394)
+++ APPS/CHUI/TerminalNavigatieService.cls.xml	(.../TerminalNavigatieService.cls.xml)	(revision 74593)
@@ -14,8 +14,13 @@
 <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</FormalSpec>
+<FormalSpec>VerkoopAPI:DOM.VKP.VerkoopAPI,OrderAPI:DOM.VKP.OrderAPI,GebruikerLookup:AXimpl.Admin.Common.GebruikerLookup</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
@@ -24,6 +29,7 @@
     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>
@@ -111,38 +117,45 @@
 </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)
-	Do ..LogNavigatieTaak(ComputerNaam,Taak)
-	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=""</FormalSpec>
+<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_"'"
+	#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_"')"
@@ -157,9 +170,9 @@
 </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()
@@ -205,6 +218,7 @@
 <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))