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>