Index: APPS/CHUI/TerminalNavigatieService.cls.xml
===================================================================
diff -u -r39752 -r48048
--- APPS/CHUI/TerminalNavigatieService.cls.xml	(.../TerminalNavigatieService.cls.xml)	(revision 39752)
+++ APPS/CHUI/TerminalNavigatieService.cls.xml	(.../TerminalNavigatieService.cls.xml)	(revision 48048)
@@ -6,6 +6,28 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.Mockable</Super>
 
+<Property name="VerkoopAPI">
+<Type>DOM.VKP.VerkoopAPI</Type>
+</Property>
+
+<Property name="OrderAPI">
+<Type>DOM.VKP.OrderAPI</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>VerkoopAPI:DOM.VKP.VerkoopAPI,OrderAPI:DOM.VKP.OrderAPI</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+    Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
+	Set ..VerkoopAPI = $$$Inject(VerkoopAPI,##class(DOM.DomeinContext).Instance().GeefVerkoopAPI())
+	Set ..OrderAPI = $$$Inject(OrderAPI,##class(DOM.DomeinContext).Instance().GeefOrderAPI())
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="RaadpleegProduct">
 <FormalSpec>GebruikerID:%String,ComputerNaam:%String,ProductID:%String,ProductRaadpleegScherm:APPS.CHUI.enu.ProductRaadpleegScherm=##class(APPS.CHUI.enu.ProductRaadpleegScherm).Algemeen()</FormalSpec>
 <Implementation><![CDATA[
@@ -36,6 +58,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="RaadpleegOrderOpKlantScherm">
+<FormalSpec>GebruikerID:%String,ComputerNaam:%String,KlantNr:%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))
+	}
+
+	Set Taak = ##class(APPS.CHUI.TerminalNavigatieService.impl.TaakRaadpleegKlant).%New(GebruikerID,ComputerNaam,KlantNr,##class(APPS.CHUI.enu.KlantRaadpleegScherm).Order(),OrderNr)
+	Do Taak.Save()
+]]></Implementation>
+</Method>
+
 <Method name="RaadpleegToelevering">
 <FormalSpec>GebruikerID:%String,ComputerNaam:%String,ToeleveringID:%String</FormalSpec>
 <Implementation><![CDATA[
@@ -137,17 +177,6 @@
 	}
 ]]></Implementation>
 </Method>
-
-<Method name="%OnNew">
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<ServerOnly>1</ServerOnly>
-<Implementation><![CDATA[
-    Do ##class(TECH.Context.RuntimeContext).Instance().ZetPersonalityID(##class(DOM.common.enu.Personality).VanHoecke())
-	Quit $$$OK
-]]></Implementation>
-</Method>
 </Class>