Index: APPS/CHUI/enu/ProductRaadpleegScherm.cls.xml
===================================================================
diff -u
--- APPS/CHUI/enu/ProductRaadpleegScherm.cls.xml	(revision 0)
+++ APPS/CHUI/enu/ProductRaadpleegScherm.cls.xml	(revision 2083)
@@ -0,0 +1,111 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.CHUI.enu.ProductRaadpleegScherm">
+<ClassType>datatype</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Enumeration</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="VALUELIST">
+<Default>,1,2,3,4,5,6,7,S,W,M,V,H,O,T,U,R</Default>
+</Parameter>
+
+<Method name="Algemeen">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	quit "1"
+]]></Implementation>
+</Method>
+
+<Method name="BestelHoeveelheden">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	quit "2"
+]]></Implementation>
+</Method>
+
+<Method name="BestelReferentie">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	quit "3"
+]]></Implementation>
+</Method>
+
+<Method name="EWMS">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	
+	quit "4"
+]]></Implementation>
+</Method>
+
+<Method name="Leverancier">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	quit "5"
+]]></Implementation>
+</Method>
+
+<Method name="Classificatie">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	quit "6"
+]]></Implementation>
+</Method>
+
+<Method name="Halffabrikaten">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	quit "7"
+]]></Implementation>
+</Method>
+
+<Method name="TermijnStock">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	quit "S"
+]]></Implementation>
+</Method>
+
+<Method name="WeekVerkoop">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	quit "W"
+]]></Implementation>
+</Method>
+
+<Method name="MaandOmzet">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	quit "M"
+]]></Implementation>
+</Method>
+
+<Method name="VerkoopAnalyse">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	quit "V"
+]]></Implementation>
+</Method>
+
+<Method name="Historiek">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	quit "H"
+]]></Implementation>
+</Method>
+
+<Method name="OpenstaandeOrdersToelev">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	quit "O"
+]]></Implementation>
+</Method>
+
+<Method name="PrijsTabel">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	quit "T"
+]]></Implementation>
+</Method>
+
+<Method name="PrijsUitzonderingen">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	quit "U"
+]]></Implementation>
+</Method>
+
+<Method name="KlantReferenties">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[	quit "R"
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/CHUI/TerminalNavigatieService.cls.xml
===================================================================
diff -u
--- APPS/CHUI/TerminalNavigatieService.cls.xml	(revision 0)
+++ APPS/CHUI/TerminalNavigatieService.cls.xml	(revision 2083)
@@ -0,0 +1,76 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.CHUI.TerminalNavigatieService">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="RaadpleegProduct">
+<FormalSpec>GebruikersID:%String,ComputerNaam:%String,ProductID:%String,ProductRaadpleegScherm:APPS.CHUI.enu.ProductRaadpleegScherm=""</FormalSpec>
+<Implementation><![CDATA[
+	do ..InputControle(GebruikersID, ComputerNaam)
+	
+	if ProductRaapleegScherm = "" set ProductRaadplaagScherm = ##class(APPS.CHUI.enu.ProductRaadpleegScherm).Algemeen()
+
+	set Taak = ##class(APPS.CHUI.TerminalNavigatieService.impl.TaakRaadpleegProduct).%New(GebruikersID,ComputerNaam)
+	set Taak.ProductID = ProductID
+	set Taak.SubScherm = ProductRaadpleegScherm
+	
+	set scSaved = Data.%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))
+	}
+]]></Implementation>
+</Method>
+
+<Method name="InputControle">
+<FormalSpec>GebruikersID:%String,ComputerNaam:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	if 0 {
+	   Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Opgegeven GebruikersID "_GebruikersID _" 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>
+<Implementation><![CDATA[
+	set rsTaak = $$ExecDynQuery^vhQUERYLIB("SELECT ID FROM APPS_CHUI_TerminalNavigatieService_impl.TerminalNavigatieTaak WHERE ComputerNaam = ?")
+	
+	set Taak = ""
+	if rsRegistratie.Next() {
+		set TaakID = rsTaak.GetData("ID")
+		if $length(TaakID) { 
+			set Taak = ##class(APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieTaak).%OpenId(TaakID)
+		}
+	}
+	quit Taak
+]]></Implementation>
+</Method>
+
+<Method name="HeeftTaak">
+<FormalSpec>ComputerNaam</FormalSpec>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	set Taak = ..GeefTaak(ComputerNaam)
+	quit $isObject(Taak)
+]]></Implementation>
+</Method>
+
+<Method name="VoerTaakUit">
+<FormalSpec>ComputerNaam</FormalSpec>
+<Implementation><![CDATA[
+	set Taak = ..GeefTaak(ComputerNaam)
+	if $isObject(Taak) do Taak.Voeruit()
+	quit
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/CHUI/TerminalNavigatieService/impl/TerminalNavigatieTaak.cls.xml
===================================================================
diff -u
--- APPS/CHUI/TerminalNavigatieService/impl/TerminalNavigatieTaak.cls.xml	(revision 0)
+++ APPS/CHUI/TerminalNavigatieService/impl/TerminalNavigatieTaak.cls.xml	(revision 2083)
@@ -0,0 +1,81 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieTaak">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="GebruikersID">
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="ComputerNaam">
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+
+<Index name="IndexOnComputerNaam">
+<Properties>ComputerNaam</Properties>
+</Index>
+
+<Index name="IndexOnGebruikersID">
+<Properties>GebruikersID</Properties>
+</Index>
+
+<Method name="VoerUit">
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[	do ..InitialiseerVariabelen()
+]]></Implementation>
+</Method>
+
+<Method name="InitialiseerVariabelen">
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[	
+]]></Implementation>
+</Method>
+
+<Method name="%OnNew">
+<FormalSpec>GebruikersID:%String,ComputerNaam:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	set ..GebruikersID = GebruikersID
+	set ..ComputerNaam = ComputerNaam
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.CHUI.TE3E.TerminalNavi855D</DataLocation>
+<DefaultData>TerminalNavigatieTaakDefaultData</DefaultData>
+<IdLocation>^APPS.CHUI.TE3E.TerminalNavi855D</IdLocation>
+<IndexLocation>^APPS.CHUI.TE3E.TerminalNavi855I</IndexLocation>
+<StreamLocation>^APPS.CHUI.TE3E.TerminalNavi855S</StreamLocation>
+<Data name="TerminalNavigatieTaakDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>ComputerNaam</Value>
+</Value>
+<Value name="3">
+<Value>GebruikersID</Value>
+</Value>
+<Value name="4">
+<Value>Identifier</Value>
+</Value>
+<Value name="5">
+<Value>Scherm</Value>
+</Value>
+<Value name="6">
+<Value>SubScherm</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: APPS/CHUI/TerminalNavigatieService/impl/TaakRaadpleegProduct.cls.xml
===================================================================
diff -u
--- APPS/CHUI/TerminalNavigatieService/impl/TaakRaadpleegProduct.cls.xml	(revision 0)
+++ APPS/CHUI/TerminalNavigatieService/impl/TaakRaadpleegProduct.cls.xml	(revision 2083)
@@ -0,0 +1,34 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.CHUI.TerminalNavigatieService.impl.TaakRaadpleegProduct">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieTaak</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="SubScherm">
+<Type>APPS.CHUI.enu.ProductRaadpleegScherm</Type>
+</Property>
+
+<Property name="ProductID">
+<Type>%String</Type>
+</Property>
+
+<Method name="VoerUit">
+<Implementation><![CDATA[	do ##super()
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DefaultData>TaakRaadpleegProductDefaultData</DefaultData>
+<Data name="TaakRaadpleegProductDefaultData">
+<Structure>listnode</Structure>
+<Subscript>"TaakRaadpleegProduct"</Subscript>
+<Value name="1">
+<Value>ProductID</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>
Index: APPS/CHUI/TerminalNavigatieService/impl/TerminalNavigatieData.cls.xml
===================================================================
diff -u
--- APPS/CHUI/TerminalNavigatieService/impl/TerminalNavigatieData.cls.xml	(revision 0)
+++ APPS/CHUI/TerminalNavigatieService/impl/TerminalNavigatieData.cls.xml	(revision 2083)
@@ -0,0 +1,68 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.CHUI.TerminalNavigatieService.impl.TerminalNavigatieData">
+<ClassType>persistent</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%Persistent</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="GebruikersID">
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="ComputerNaam">
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="Scherm">
+<Type>APPS.CHUI.enu.Scherm</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="Identifier">
+<Type>%String</Type>
+<Required>1</Required>
+</Property>
+
+<Property name="SubScherm">
+<Type>%String</Type>
+</Property>
+
+<Index name="IndexOnComputerNaam">
+<Properties>ComputerNaam</Properties>
+</Index>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^APPS.CHUI.TE3E.TerminalNavi84ED</DataLocation>
+<DefaultData>TerminalNavigatieDataDefaultData</DefaultData>
+<IdLocation>^APPS.CHUI.TE3E.TerminalNavi84ED</IdLocation>
+<IndexLocation>^APPS.CHUI.TE3E.TerminalNavi84EI</IndexLocation>
+<StreamLocation>^APPS.CHUI.TE3E.TerminalNavi84ES</StreamLocation>
+<Data name="TerminalNavigatieDataDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>ComputerNaam</Value>
+</Value>
+<Value name="3">
+<Value>GebruikersID</Value>
+</Value>
+<Value name="4">
+<Value>Identifier</Value>
+</Value>
+<Value name="5">
+<Value>Scherm</Value>
+</Value>
+<Value name="6">
+<Value>SubScherm</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+</Export>