Index: APPS/CHUI/TerminalNavigatieService.cls.xml
===================================================================
diff -u -r2083 -r2086
--- APPS/CHUI/TerminalNavigatieService.cls.xml	(.../TerminalNavigatieService.cls.xml)	(revision 2083)
+++ APPS/CHUI/TerminalNavigatieService.cls.xml	(.../TerminalNavigatieService.cls.xml)	(revision 2086)
@@ -10,17 +10,19 @@
 <Implementation><![CDATA[
 	do ..InputControle(GebruikersID, ComputerNaam)
 	
-	if ProductRaapleegScherm = "" set ProductRaadplaagScherm = ##class(APPS.CHUI.enu.ProductRaadpleegScherm).Algemeen()
+	if ProductRaadpleegScherm = "" set ProductRaadpleegScherm = ##class(APPS.CHUI.enu.ProductRaadpleegScherm).Algemeen()
 
 	set Taak = ##class(APPS.CHUI.TerminalNavigatieService.impl.TaakRaadpleegProduct).%New(GebruikersID,ComputerNaam)
 	set Taak.ProductID = ProductID
 	set Taak.SubScherm = ProductRaadpleegScherm
 	
-	set scSaved = Data.%Save()
+	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>
 
@@ -42,11 +44,11 @@
 <FormalSpec>ComputerNaam</FormalSpec>
 <ReturnType>APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieTaak</ReturnType>
 <Implementation><![CDATA[
-	set rsTaak = $$ExecDynQuery^vhQUERYLIB("SELECT ID FROM APPS_CHUI_TerminalNavigatieService_impl.TerminalNavigatieTaak WHERE ComputerNaam = ?")
+	set rsTaak = $$ExecDynQuery^vhQUERYLIB("SELECT ID FROM APPS_CHUI_TerminalNavigatieService_impl.TerminalNavigatieTaak WHERE ComputerNaam = ?",$lb(ComputerNaam))
 	
 	set Taak = ""
-	if rsRegistratie.Next() {
-		set TaakID = rsTaak.GetData("ID")
+	if rsTaak.Next() {
+		set TaakID = rsTaak.Get("ID")
 		if $length(TaakID) { 
 			set Taak = ##class(APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieTaak).%OpenId(TaakID)
 		}
@@ -68,9 +70,19 @@
 <FormalSpec>ComputerNaam</FormalSpec>
 <Implementation><![CDATA[
 	set Taak = ..GeefTaak(ComputerNaam)
-	if $isObject(Taak) do Taak.Voeruit()
+	if $isObject(Taak) {
+		do Taak.%DeleteId(Taak.%Id())
+		do Taak.VoerUit()
+	}
 	quit
 ]]></Implementation>
 </Method>
+
+<Method name="WatcherActief">
+<FormalSpec>ComputerNaam</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[	
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: APPS/CHUI/TerminalNavigatieService/impl/TerminalNavigatieTaak.cls.xml
===================================================================
diff -u -r2083 -r2086
--- APPS/CHUI/TerminalNavigatieService/impl/TerminalNavigatieTaak.cls.xml	(.../TerminalNavigatieTaak.cls.xml)	(revision 2083)
+++ APPS/CHUI/TerminalNavigatieService/impl/TerminalNavigatieTaak.cls.xml	(.../TerminalNavigatieTaak.cls.xml)	(revision 2086)
@@ -32,7 +32,9 @@
 
 <Method name="InitialiseerVariabelen">
 <ProcedureBlock>0</ProcedureBlock>
-<Implementation><![CDATA[	
+<Implementation><![CDATA[
+	
+	set Q="K" do ^cA604,INIT^vhTERMINA
 ]]></Implementation>
 </Method>
 
@@ -44,6 +46,7 @@
 <Implementation><![CDATA[
 	set ..GebruikersID = GebruikersID
 	set ..ComputerNaam = ComputerNaam
+	quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -55,8 +58,6 @@
 <IndexLocation>^APPS.CHUI.TE3E.TerminalNavi855I</IndexLocation>
 <StreamLocation>^APPS.CHUI.TE3E.TerminalNavi855S</StreamLocation>
 <Data name="TerminalNavigatieTaakDefaultData">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>%%CLASSNAME</Value>
 </Value>
Index: APPS/CHUI/TerminalNavigatieService/impl/TaakRaadpleegProduct.cls.xml
===================================================================
diff -u -r2083 -r2086
--- APPS/CHUI/TerminalNavigatieService/impl/TaakRaadpleegProduct.cls.xml	(.../TaakRaadpleegProduct.cls.xml)	(revision 2083)
+++ APPS/CHUI/TerminalNavigatieService/impl/TaakRaadpleegProduct.cls.xml	(.../TaakRaadpleegProduct.cls.xml)	(revision 2086)
@@ -15,15 +15,18 @@
 </Property>
 
 <Method name="VoerUit">
-<Implementation><![CDATA[	do ##super()
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	do ##super()
+	set QU(1)=..GebruikersID
+	do RAADPL^PRODUKT(..ProductID,..SubScherm)
 ]]></Implementation>
 </Method>
 
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DefaultData>TaakRaadpleegProductDefaultData</DefaultData>
 <Data name="TaakRaadpleegProductDefaultData">
-<Structure>listnode</Structure>
 <Subscript>"TaakRaadpleegProduct"</Subscript>
 <Value name="1">
 <Value>ProductID</Value>