Index: APPS/CHUI/TerminalNavigatieService/impl/TerminalNavigatieWatcher.cls.xml
===================================================================
diff -u -r2089 -r2090
--- APPS/CHUI/TerminalNavigatieService/impl/TerminalNavigatieWatcher.cls.xml	(.../TerminalNavigatieWatcher.cls.xml)	(revision 2089)
+++ APPS/CHUI/TerminalNavigatieService/impl/TerminalNavigatieWatcher.cls.xml	(.../TerminalNavigatieWatcher.cls.xml)	(revision 2090)
@@ -8,7 +8,8 @@
 <Method name="JobWatch">
 <Description>
 Opvolgen van JobWatch
-Wait - (0 of "") = eenmalig, numeriek = wachten op een keyinput</Description>
+Wait - (0 of "") = eenmalig, numeriek = wachten op een keyinput
+do ##class(APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieWatcher).JobWatch(1)</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>Wait</FormalSpec>
 <ProcedureBlock>0</ProcedureBlock>
Index: WS/CHUI/TerminalNavigatieService.cls.xml
===================================================================
diff -u
--- WS/CHUI/TerminalNavigatieService.cls.xml	(revision 0)
+++ WS/CHUI/TerminalNavigatieService.cls.xml	(revision 2090)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="WS.CHUI.TerminalNavigatieService">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WS.WebService</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="SERVICENAME">
+<Default>TerminalNavigatieService</Default>
+</Parameter>
+
+<Parameter name="NAMESPACE">
+<Default>http://www.vanhoecke.be/CHUI/TerminalNavigatieService</Default>
+</Parameter>
+
+<Method name="RaadpleegProduct">
+<FormalSpec>GebruikerID:%String,ComputerNaam:%String,ProductID:%String,ProductRaadpleegScherm:APPS.CHUI.enu.ProductRaadpleegScherm</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	do ##class(APPS.CHUI.TerminalNavigatieService).%New().RaadpleegProduct(.GebruikerID,.ComputerNaam,.ProductID,.ProductRaadpleegScherm)
+]]></Implementation>
+</Method>
+
+<Method name="RaadpleegKlant">
+<FormalSpec>GebruikerID:%String,ComputerNaam:%String,KlantID:%String,KlantRaadpleegScherm:APPS.CHUI.enu.KlantRaadpleegScherm</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	do ##class(APPS.CHUI.TerminalNavigatieService).%New().RaadpleegKlant(.GebruikerID,.ComputerNaam,.KlantID,.KlantRaadpleegScherm)
+]]></Implementation>
+</Method>
+
+<Method name="HeeftTaak">
+<FormalSpec>ComputerNaam</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	quit ##class(APPS.CHUI.TerminalNavigatieService).%New().HeeftTaak(ComputerNaam)
+]]></Implementation>
+</Method>
+
+<Method name="VoerTaakUit">
+<FormalSpec>ComputerNaam</FormalSpec>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	do ##class(APPS.CHUI.TerminalNavigatieService).%New().VoerTaakUit(ComputerNaam)
+]]></Implementation>
+</Method>
+
+<Method name="IsWatcherActief">
+<FormalSpec>ComputerNaam</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[	quit ##class(APPS.CHUI.TerminalNavigatieService).%New().IsWatcherActief(ComputerNaam)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/CHUI/enu/KlantRaadpleegScherm.cls.xml
===================================================================
diff -u
--- APPS/CHUI/enu/KlantRaadpleegScherm.cls.xml	(revision 0)
+++ APPS/CHUI/enu/KlantRaadpleegScherm.cls.xml	(revision 2090)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.CHUI.enu.KlantRaadpleegScherm">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Enumeration</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>,1</Default>
+</Parameter>
+
+<Method name="Algemeen">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	quit "1"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/CHUI/TerminalNavigatieService/impl/TaakRaadpleegKlant.cls.xml
===================================================================
diff -u
--- APPS/CHUI/TerminalNavigatieService/impl/TaakRaadpleegKlant.cls.xml	(revision 0)
+++ APPS/CHUI/TerminalNavigatieService/impl/TaakRaadpleegKlant.cls.xml	(revision 2090)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.CHUI.TerminalNavigatieService.impl.TaakRaadpleegKlant">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieTaak</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="SubScherm">
+<Type>APPS.CHUI.enu.KlantRaadpleegScherm</Type>
+</Property>
+
+<Property name="KlantID">
+<Type>%String</Type>
+</Property>
+
+<Method name="VoerUit">
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	do ##super()
+	do RAADPL^KLANT(..KlantID,..SubScherm)
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>TaakRaadpleegKlantDefaultData</DefaultData>
+<Data name="TaakRaadpleegKlantDefaultData">
+<Structure>listnode</Structure>
+<Subscript>"TaakRaadpleegKlant"</Subscript>
+<Value name="1">
+<Value>KlantID</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
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>