Index: APPS/CHUI/TerminalNavigatieService/impl/TerminalNavigatieTaak.cls.xml
===================================================================
diff -u -r2097 -r2183
--- APPS/CHUI/TerminalNavigatieService/impl/TerminalNavigatieTaak.cls.xml	(.../TerminalNavigatieTaak.cls.xml)	(revision 2097)
+++ APPS/CHUI/TerminalNavigatieService/impl/TerminalNavigatieTaak.cls.xml	(.../TerminalNavigatieTaak.cls.xml)	(revision 2183)
@@ -51,6 +51,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ToString">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit "ID: "_..%Id()_$C(13,10)_"Taak: "_..%ClassName()_$C(13,10)_"GebruikerID: "_..GebruikerID_" ("_$$USERNAME^vhUSER(..GebruikerID,1)_")"_$C(13,10)_"Computernaam: "_..ComputerNaam
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^APPS.CHUI.TerminalNavigatieTaakD</DataLocation>
Index: APPS/CHUI/TerminalNavigatieService/impl/TaakRaadpleegProduct.cls.xml
===================================================================
diff -u -r2097 -r2183
--- APPS/CHUI/TerminalNavigatieService/impl/TaakRaadpleegProduct.cls.xml	(.../TaakRaadpleegProduct.cls.xml)	(revision 2097)
+++ APPS/CHUI/TerminalNavigatieService/impl/TaakRaadpleegProduct.cls.xml	(.../TaakRaadpleegProduct.cls.xml)	(revision 2183)
@@ -14,6 +14,18 @@
 <Type>%String</Type>
 </Property>
 
+<Method name="%OnNew">
+<FormalSpec>GebruikerID:%String,ComputerNaam:%String,ProductID:%String,SubScherm:APPS.CHUI.enu.ProductRaadpleegScherm</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	set ..ProductID = ProductID
+	Set ..SubScherm = SubScherm
+	quit ##super(GebruikerID, ComputerNaam)
+]]></Implementation>
+</Method>
+
 <Method name="VoerUit">
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
@@ -30,6 +42,9 @@
 <Value name="1">
 <Value>ProductID</Value>
 </Value>
+<Value name="2">
+<Value>SubScherm</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: vhConsistency/Checks/TerminalNavigatieTaken.cls.xml
===================================================================
diff -u
--- vhConsistency/Checks/TerminalNavigatieTaken.cls.xml	(revision 0)
+++ vhConsistency/Checks/TerminalNavigatieTaken.cls.xml	(revision 2183)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhConsistency.Checks.TerminalNavigatieTaken">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhConsistency.Check</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="VoerUit">
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set Status = $$$OK
+	Set ResultSet = ##class(%ResultSet).%New("APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieTaak:Extent")
+	Do ResultSet.Execute()
+	While (ResultSet.Next())
+	{
+		Set Status = $$$ERROR($$$GeneralError,"Openstaande taak")
+		Do ..VoegMeldingToe("[ Openstaande taak ]"_$C(13,10)_##class(APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieTaak).%OpenId(ResultSet.Data("ID")).ToString())	
+	}
+	Quit Status
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/CHUI/TerminalNavigatieService.cls.xml
===================================================================
diff -u -r2174 -r2183
--- APPS/CHUI/TerminalNavigatieService.cls.xml	(.../TerminalNavigatieService.cls.xml)	(revision 2174)
+++ APPS/CHUI/TerminalNavigatieService.cls.xml	(.../TerminalNavigatieService.cls.xml)	(revision 2183)
@@ -9,16 +9,21 @@
 <Method name="RaadpleegProduct">
 <FormalSpec>GebruikerID:%String,ComputerNaam:%String,ProductID:%String,ProductRaadpleegScherm:APPS.CHUI.enu.ProductRaadpleegScherm=""</FormalSpec>
 <Implementation><![CDATA[
+	Do ..ControleerGebruikerID(GebruikerID)
+	Do ..ControleerComputerNaam(ComputerNaam)
+	Set Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductID)
+	If ('$IsObject(Product))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Ongeldige productid "_ProductID))
+	}
+	
 	if ProductRaadpleegScherm = "" set ProductRaadpleegScherm = ##class(APPS.CHUI.enu.ProductRaadpleegScherm).Algemeen()
 
-	set Taak = ##class(APPS.CHUI.TerminalNavigatieService.impl.TaakRaadpleegProduct).%New(GebruikerID,ComputerNaam)
-	set Taak.ProductID = ProductID
-	set Taak.SubScherm = ProductRaadpleegScherm
-	
+	set Taak = ##class(APPS.CHUI.TerminalNavigatieService.impl.TaakRaadpleegProduct).%New(GebruikerID,ComputerNaam,ProductID,SubScherm)	
 	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))
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("TerminalNavigatieTaak kan niet worden bewaard",scSaved))
 	}
 	
 	quit
@@ -28,36 +33,27 @@
 <Method name="RaadpleegKlant">
 <FormalSpec>GebruikerID:%String,ComputerNaam:%String,KlantID:%String,KlantRaadpleegScherm:APPS.CHUI.enu.KlantRaadpleegScherm=""</FormalSpec>
 <Implementation><![CDATA[
+	Do ..ControleerGebruikerID(GebruikerID)
+	Do ..ControleerComputerNaam(ComputerNaam)
+	Set Klant = ##class(DOM.DomeinContext).Instance().GeefKlantAPI().GeefKlant(KlantID)
+	If ('$IsObject(Klant))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Ongeldige klantid "_KlantID))
+	}
+	
 	if KlantRaadpleegScherm = "" set KlantRaadpleegScherm = ##class(APPS.CHUI.enu.KlantRaadpleegScherm).Algemeen()
 
-	set Taak = ##class(APPS.CHUI.TerminalNavigatieService.impl.TaakRaadpleegKlant).%New(GebruikerID,ComputerNaam)
-	set Taak.KlantID = KlantID
-	set Taak.SubScherm = KlantRaadpleegScherm
-	
+	set Taak = ##class(APPS.CHUI.TerminalNavigatieService.impl.TaakRaadpleegKlant).%New(GebruikerID,ComputerNaam,KlantID,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))
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("TerminalNavigatieTaak kan niet worden bewaard",scSaved))
 	}
 	
 	quit
 ]]></Implementation>
 </Method>
 
-<Method name="InputControle">
-<FormalSpec>GebruikerID:%String,ComputerNaam:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	if 0 {
-	   Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Opgegeven GebruikerID "_GebruikerID _" bestaat niet "))
-	}
-
-	if 0 {
-	   Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Opgegeven ComputerNaam "_ComputerNaam _" bestaat niet "))
-	}
-]]></Implementation>
-</Method>
-
 <Method name="GeefTaak">
 <FormalSpec>ComputerNaam</FormalSpec>
 <ReturnType>APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieTaak</ReturnType>
@@ -76,7 +72,7 @@
 </Method>
 
 <Method name="HeeftTaak">
-<FormalSpec>ComputerNaam</FormalSpec>
+<FormalSpec>ComputerNaam:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	set Taak = ..GeefTaak(ComputerNaam)
@@ -85,7 +81,7 @@
 </Method>
 
 <Method name="VoerTaakUit">
-<FormalSpec>ComputerNaam</FormalSpec>
+<FormalSpec>ComputerNaam:%String</FormalSpec>
 <Implementation><![CDATA[
 	set Taak = ..GeefTaak(ComputerNaam)
 	if $isObject(Taak) {
@@ -97,7 +93,7 @@
 </Method>
 
 <Method name="IsWatcherActief">
-<FormalSpec>ComputerNaam</FormalSpec>
+<FormalSpec>ComputerNaam:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
 	set ComputerNaam = $piece(ComputerNaam,".")
@@ -119,5 +115,27 @@
 	quit Actief
 ]]></Implementation>
 </Method>
+
+<Method name="ControleerGebruikerID">
+<FormalSpec>GebruikerID:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ($$USERID^vhUSER(GebruikerID) = "")
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Ongeldige gebruiker id "_GebruikerID))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="ControleerComputerNaam">
+<FormalSpec>ComputerNaam:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ('$Data(^cQSYS(0,"FIXED","NBN",##class(TECH.StringUtils).ToUpper($Piece(ComputerNaam,".")))))
+	{
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Ongeldige computernaam "_ComputerNaam))
+	}
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: APPS/CHUI/TerminalNavigatieService/impl/TaakRaadpleegKlant.cls.xml
===================================================================
diff -u -r2097 -r2183
--- APPS/CHUI/TerminalNavigatieService/impl/TaakRaadpleegKlant.cls.xml	(.../TaakRaadpleegKlant.cls.xml)	(revision 2097)
+++ APPS/CHUI/TerminalNavigatieService/impl/TaakRaadpleegKlant.cls.xml	(.../TaakRaadpleegKlant.cls.xml)	(revision 2183)
@@ -14,6 +14,18 @@
 <Type>%String</Type>
 </Property>
 
+<Method name="%OnNew">
+<FormalSpec>GebruikerID:%String,ComputerNaam:%String,KlantID:%String,SubScherm:APPS.CHUI.enu.KlantRaadpleegScherm</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	set ..KlantID = KlantID
+	set ..SubScherm = SubScherm
+	quit ##super(GebruikerID, ComputerNaam)
+]]></Implementation>
+</Method>
+
 <Method name="VoerUit">
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[