Index: APPS/CHUI/TerminalNavigatieService.cls.xml
===================================================================
diff -u -r48048 -r48050
--- APPS/CHUI/TerminalNavigatieService.cls.xml	(.../TerminalNavigatieService.cls.xml)	(revision 48048)
+++ APPS/CHUI/TerminalNavigatieService.cls.xml	(.../TerminalNavigatieService.cls.xml)	(revision 48050)
@@ -59,20 +59,21 @@
 </Method>
 
 <Method name="RaadpleegOrderOpKlantScherm">
-<FormalSpec>GebruikerID:%String,ComputerNaam:%String,KlantNr:%String,OrderNr:%String</FormalSpec>
+<FormalSpec>GebruikerID:%String,ComputerNaam:%String,OrderNr:%String</FormalSpec>
 <Implementation><![CDATA[
 	Do ..ControleerComputerNaam(ComputerNaam)
 	
-	#dim PartijID As DOM.common.PartijID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KlantNr)
-	If $$$Not(..VerkoopAPI.BestaatKlant(PartijID)) {
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen klant gevonden met ID: "_KlantNr))
-	}
 	If $$$Not(..OrderAPI.BestaatOrder(OrderNr)){
-		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen order gevonden met ID: "_OrderNr))
+		Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen order gevonden met ID: '"_OrderNr_"'"))
+	} Else {
+		#dim Order As DOM.VKP.Order = ..OrderAPI.GeefOrder(OrderNr)
+		#dim KlantNr As %String = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(Order.GeefKlantID())
+		If $$$Not(..VerkoopAPI.BestaatKlant(Order.GeefKlantID())) {
+			Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Geen klant gevonden met nr: '"_KlantNr_"'"))
+		}
+		Set Taak = ##class(APPS.CHUI.TerminalNavigatieService.impl.TaakRaadpleegKlant).%New(GebruikerID,ComputerNaam,KlantNr,##class(APPS.CHUI.enu.KlantRaadpleegScherm).Order(),OrderNr)
+		Do Taak.Save()
 	}
-
-	Set Taak = ##class(APPS.CHUI.TerminalNavigatieService.impl.TaakRaadpleegKlant).%New(GebruikerID,ComputerNaam,KlantNr,##class(APPS.CHUI.enu.KlantRaadpleegScherm).Order(),OrderNr)
-	Do Taak.Save()
 ]]></Implementation>
 </Method>