Index: APPS/CHUI/TerminalNavigatieService.cls.xml
===================================================================
diff -u -r2097 -r2174
--- APPS/CHUI/TerminalNavigatieService.cls.xml	(.../TerminalNavigatieService.cls.xml)	(revision 2097)
+++ APPS/CHUI/TerminalNavigatieService.cls.xml	(.../TerminalNavigatieService.cls.xml)	(revision 2174)
@@ -9,8 +9,6 @@
 <Method name="RaadpleegProduct">
 <FormalSpec>GebruikerID:%String,ComputerNaam:%String,ProductID:%String,ProductRaadpleegScherm:APPS.CHUI.enu.ProductRaadpleegScherm=""</FormalSpec>
 <Implementation><![CDATA[
-	do ..InputControle(GebruikerID, ComputerNaam)
-	
 	if ProductRaadpleegScherm = "" set ProductRaadpleegScherm = ##class(APPS.CHUI.enu.ProductRaadpleegScherm).Algemeen()
 
 	set Taak = ##class(APPS.CHUI.TerminalNavigatieService.impl.TaakRaadpleegProduct).%New(GebruikerID,ComputerNaam)
@@ -30,8 +28,6 @@
 <Method name="RaadpleegKlant">
 <FormalSpec>GebruikerID:%String,ComputerNaam:%String,KlantID:%String,KlantRaadpleegScherm:APPS.CHUI.enu.KlantRaadpleegScherm=""</FormalSpec>
 <Implementation><![CDATA[
-	do ..InputControle(GebruikerID, ComputerNaam)
-	
 	if KlantRaadpleegScherm = "" set KlantRaadpleegScherm = ##class(APPS.CHUI.enu.KlantRaadpleegScherm).Algemeen()
 
 	set Taak = ##class(APPS.CHUI.TerminalNavigatieService.impl.TaakRaadpleegKlant).%New(GebruikerID,ComputerNaam)
@@ -104,13 +100,16 @@
 <FormalSpec>ComputerNaam</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
+	set ComputerNaam = $piece(ComputerNaam,".")
 	set Actief = 0
 	set JobID = ""
 	for  { set JobID = $order(^$JOB(JobID)) quit:JobID=""  quit:Actief 
 		do JobInfo^%SS(JobID,.JobInfo)   ; via SYSTEM.Process wordt de routine naam niet volledig terug gegeven vandaar er %SS gebruikt wordt..
 		set Namespace = $piece(JobInfo,"^",14)
 		set Device = $piece(JobInfo,"^",3)
-		If ( Namespace = $$$NSpace ) && ( $extract(Device,1,5) = "|TNT|" ) && ( $$$UCase($piece($extract(Device,6,99),":",1))=$$$UCase(ComputerNaam) ) {
+		set DeviceName = $$$UCase($piece($piece($extract(Device,6,99),":",1),"."))
+		if DeviceName="LOCALHOST" Set DeviceName=$$$Server
+		If ( Namespace = $$$NSpace ) && ( $extract(Device,1,5) = "|TNT|" ) && ( DeviceName=$$$UCase(ComputerNaam) ) {
 			set Routine=$piece(JobInfo,"^",6)
 			if Routine[".TerminalNavigatieWatcher." {
 				set Actief=1