Index: APPS/CHUI/TerminalNavigatieService.cls.xml
===================================================================
diff -u -r2086 -r2090
--- APPS/CHUI/TerminalNavigatieService.cls.xml	(.../TerminalNavigatieService.cls.xml)	(revision 2086)
+++ APPS/CHUI/TerminalNavigatieService.cls.xml	(.../TerminalNavigatieService.cls.xml)	(revision 2090)
@@ -1,18 +1,19 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="APPS.CHUI.TerminalNavigatieService">
+<IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="RaadpleegProduct">
-<FormalSpec>GebruikersID:%String,ComputerNaam:%String,ProductID:%String,ProductRaadpleegScherm:APPS.CHUI.enu.ProductRaadpleegScherm=""</FormalSpec>
+<FormalSpec>GebruikerID:%String,ComputerNaam:%String,ProductID:%String,ProductRaadpleegScherm:APPS.CHUI.enu.ProductRaadpleegScherm=""</FormalSpec>
 <Implementation><![CDATA[
-	do ..InputControle(GebruikersID, ComputerNaam)
+	do ..InputControle(GebruikerID, ComputerNaam)
 	
 	if ProductRaadpleegScherm = "" set ProductRaadpleegScherm = ##class(APPS.CHUI.enu.ProductRaadpleegScherm).Algemeen()
 
-	set Taak = ##class(APPS.CHUI.TerminalNavigatieService.impl.TaakRaadpleegProduct).%New(GebruikersID,ComputerNaam)
+	set Taak = ##class(APPS.CHUI.TerminalNavigatieService.impl.TaakRaadpleegProduct).%New(GebruikerID,ComputerNaam)
 	set Taak.ProductID = ProductID
 	set Taak.SubScherm = ProductRaadpleegScherm
 	
@@ -26,12 +27,33 @@
 ]]></Implementation>
 </Method>
 
+<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.KlantRaadpleegScherm).%New(GebruikerID,ComputerNaam)
+	set Taak.KlantID = KlantID
+	set Taak.SubScherm = KlantRaadpleegScherm
+	
+	set scSaved = Taak.%Save()
+	
+	if $$$ISERR(scSaved) {
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.StatusException).%New(##class(TECH.enu.ExceptionCode).GeneralError(),"TerminalNavigatieTaak kan niet worden bewaard",scSaved))
+	}
+	
+	quit
+]]></Implementation>
+</Method>
+
 <Method name="InputControle">
-<FormalSpec>GebruikersID:%String,ComputerNaam:%String</FormalSpec>
+<FormalSpec>GebruikerID:%String,ComputerNaam:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	if 0 {
-	   Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Opgegeven GebruikersID "_GebruikersID _" bestaat niet "))
+	   Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Opgegeven GebruikerID "_GebruikerID _" bestaat niet "))
 	}
 
 	if 0 {
@@ -78,10 +100,24 @@
 ]]></Implementation>
 </Method>
 
-<Method name="WatcherActief">
+<Method name="IsWatcherActief">
 <FormalSpec>ComputerNaam</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	
+<Implementation><![CDATA[
+	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 Routine=$piece(JobInfo,"^",6)
+			if Routine[".TerminalNavigatieWatcher." {
+				set Actief=1
+			}
+		}
+	}
+	quit Actief
 ]]></Implementation>
 </Method>
 </Class>