Index: vhUnitTest/APPS/CHUI/TerminalNavigatieService/RaadpleegOrderOpKlantScherm/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/CHUI/TerminalNavigatieService/RaadpleegOrderOpKlantScherm/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/CHUI/TerminalNavigatieService/RaadpleegOrderOpKlantScherm/Test.cls.xml	(revision 48048)
@@ -0,0 +1,80 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.CHUI.TerminalNavigatieService.RaadpleegOrderOpKlantScherm.Test">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test: Standaardgedrag">
+<Implementation><![CDATA[
+	Set VerkoopApiMock = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Do VerkoopApiMock.VerwachtMethodCall("BestaatKlant","K||1000").DanReturn($$$True)
+	
+	Set OrderApiMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Do OrderApiMock.VerwachtMethodCall("BestaatOrder",111111).DanReturn($$$True)
+	
+	Set NavigatieService = ##class(APPS.CHUI.TerminalNavigatieService).%New(VerkoopApiMock, OrderApiMock)
+	
+	#dim ComputerNaam As %String = "TESTW7_W7"
+	#dim GebruikerID As %String = $$$DummyString
+	#dim KlantNr As %String = 1000
+	#dim OrderNr As %String = 111111
+	
+	Do NavigatieService.RaadpleegOrderOpKlantScherm(GebruikerID, ComputerNaam, KlantNr, OrderNr)
+	
+	Do OrderApiMock.Verifieer()
+	Do VerkoopApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Klant bestaat niet -&gt; exceptie">
+<Implementation><![CDATA[
+	Set VerkoopApiMock = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Do VerkoopApiMock.VerwachtMethodCall("BestaatKlant","K||1000").DanReturn($$$False)
+	
+	Set OrderApiMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Do OrderApiMock.VerwachtMethodCall("BestaatOrder",111111).DanReturn($$$True)
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen klant gevonden met ID: 1000")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+
+	Set NavigatieService = ##class(APPS.CHUI.TerminalNavigatieService).%New(VerkoopApiMock, OrderApiMock)
+	
+	#dim ComputerNaam As %String = "TESTW7_W7"
+	#dim GebruikerID As %String = $$$DummyString
+	#dim KlantNr As %String = 1000
+	#dim OrderNr As %String = 111111
+	
+	Do NavigatieService.RaadpleegOrderOpKlantScherm(GebruikerID, ComputerNaam, KlantNr, OrderNr)
+	
+	Do OrderApiMock.Verifieer()
+	Do VerkoopApiMock.Verifieer()
+]]></Implementation>
+</Method>
+
+<Method name="Test: Order bestaat niet -&gt; exceptie">
+<Implementation><![CDATA[
+	Set VerkoopApiMock = ##class(vhTest.Mock.DOM.VKP.VerkoopAPI).%New()
+	Do VerkoopApiMock.VerwachtMethodCall("BestaatKlant","K||1000").DanReturn($$$True)
+	
+	Set OrderApiMock = ##class(vhTest.Mock.DOM.VKP.OrderAPI).%New()
+	Do OrderApiMock.VerwachtMethodCall("BestaatOrder",111111).DanReturn($$$False)
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("Geen order gevonden met ID: 111111")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.InvalidInputException",Substrings))
+
+	Set NavigatieService = ##class(APPS.CHUI.TerminalNavigatieService).%New(VerkoopApiMock, OrderApiMock)
+	
+	#dim ComputerNaam As %String = "TESTW7_W7"
+	#dim GebruikerID As %String = $$$DummyString
+	#dim KlantNr As %String = 1000
+	#dim OrderNr As %String = 111111
+	
+	Do NavigatieService.RaadpleegOrderOpKlantScherm(GebruikerID, ComputerNaam, KlantNr, OrderNr)
+	
+	Do OrderApiMock.Verifieer()
+	Do VerkoopApiMock.Verifieer()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
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>
 
 
Index: vhTest/Mock/APPS/CHUI/TerminalNavigatieService.cls.xml
===================================================================
diff -u -r39752 -r48048
--- vhTest/Mock/APPS/CHUI/TerminalNavigatieService.cls.xml	(.../TerminalNavigatieService.cls.xml)	(revision 39752)
+++ vhTest/Mock/APPS/CHUI/TerminalNavigatieService.cls.xml	(.../TerminalNavigatieService.cls.xml)	(revision 48048)
@@ -3,8 +3,7 @@
 <Class name="vhTest.Mock.APPS.CHUI.TerminalNavigatieService">
 <Description>
 Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
-Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
-Inheritance van meerdere TECH.Interface interfaces resulteert nog niet in een mockklasse met overeenkomstige inheritance-structuur.</Description>
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.CHUI.TerminalNavigatieService,Tools.Mock.MockClassBase</Super>
 <Inheritance>right</Inheritance>
@@ -42,6 +41,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="RaadpleegOrderOpKlantScherm">
+<FormalSpec>GebruikerID:%String,ComputerNaam:%String,KlantNr:%String,OrderNr:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("RaadpleegOrderOpKlantScherm",GebruikerID,ComputerNaam,KlantNr,OrderNr)
+]]></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[	do ..VerwerkMethodCall("RaadpleegProduct",GebruikerID,ComputerNaam,ProductID,ProductRaadpleegScherm)
Index: vhTest/Fake/APPS/CHUI/TerminalNavigatieService.cls.xml
===================================================================
diff -u -r40619 -r48048
--- vhTest/Fake/APPS/CHUI/TerminalNavigatieService.cls.xml	(.../TerminalNavigatieService.cls.xml)	(revision 40619)
+++ vhTest/Fake/APPS/CHUI/TerminalNavigatieService.cls.xml	(.../TerminalNavigatieService.cls.xml)	(revision 48048)
@@ -21,6 +21,11 @@
 ]]></Implementation>
 </Method>
 
+<Method name="RaadpleegOrderOpKlantScherm">
+<FormalSpec>GebruikerID:%String,ComputerNaam:%String,KlantNr:%String,OrderNr:%String</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="IsWatcherActief">
 <FormalSpec>ComputerNaam:%String</FormalSpec>
 <ReturnType>%Boolean</ReturnType>