Index: APPS/Halux/Machine/StemasC/enu/SliceProfiel/Verwerker.cls.xml
===================================================================
diff -u
--- APPS/Halux/Machine/StemasC/enu/SliceProfiel/Verwerker.cls.xml	(revision 0)
+++ APPS/Halux/Machine/StemasC/enu/SliceProfiel/Verwerker.cls.xml	(revision 31609)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Machine.StemasC.enu.SliceProfiel.Verwerker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+
+<Method name="Verwerk">
+<Final>1</Final>
+<FormalSpec>SliceProfiel:APPS.Halux.Machine.StemasC.enu.SliceProfiel</FormalSpec>
+<Implementation><![CDATA[
+	If SliceProfiel = "CL" {
+		Do ..VerwerkClick()
+	} ElseIf SliceProfiel = "ST" {
+		Do ..VerwerkRecht()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(SliceProfiel,"APPS.Halux.Machine.StemasC.enu.SliceProfiel",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkClick">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkRecht">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Machine/StemasC/impl/ProgrammaBepaler.cls.xml
===================================================================
diff -u
--- APPS/Halux/Machine/StemasC/impl/ProgrammaBepaler.cls.xml	(revision 0)
+++ APPS/Halux/Machine/StemasC/impl/ProgrammaBepaler.cls.xml	(revision 31609)
@@ -0,0 +1,25 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Machine.StemasC.impl.ProgrammaBepaler">
+<Super>TECH.RegisteredObject</Super>
+
+<Method name="BepaalProgramma">
+<FormalSpec>Bodem:DOM.PM.Maatwerk.LadeInfo.BodemPlaat,SliceZijde:APPS.Halux.Machine.StemasC.enu.SliceZijde,SliceProfiel:APPS.Halux.Machine.StemasC.enu.SliceProfiel</FormalSpec>
+<Implementation><![CDATA[	quit SliceZijde_"_"_SliceProfiel_"_"_..GeefPlaatAfwerking(Bodem)
+]]></Implementation>
+</Method>
+
+<Method name="GeefPlaatAfwerking">
+<FormalSpec>Bodem:DOM.PM.Maatwerk.LadeInfo.BodemPlaat</FormalSpec>
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.LadeInfo.enu.TAORDecor</ReturnType>
+<Implementation><![CDATA[
+	#dim PlaatAfwerking As %String = ##class(DOM.PM.Maatwerk.LadeInfo.enu.TAORDecor).LogicalToDisplay(Bodem.GeefPlaatAfwerking())
+	set PlaatAfwerking = $$$UCase(PlaatAfwerking)
+	quit $extract(PlaatAfwerking,1,3)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Machine/StemasC/enu/SliceZijde.cls.xml
===================================================================
diff -u
--- APPS/Halux/Machine/StemasC/enu/SliceZijde.cls.xml	(revision 0)
+++ APPS/Halux/Machine/StemasC/enu/SliceZijde.cls.xml	(revision 31609)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Machine.StemasC.enu.SliceZijde">
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="VALUELIST">
+<Default>;F;R</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>;Front;Rug</Default>
+</Parameter>
+
+<Method name="Front">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Machine.StemasC.enu.SliceZijde</ReturnType>
+<Implementation><![CDATA[	quit "F"
+]]></Implementation>
+</Method>
+
+<Method name="Rug">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Machine.StemasC.enu.SliceZijde</ReturnType>
+<Implementation><![CDATA[	quit "R"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Machine/StemasC/enu/SliceProfiel.cls.xml
===================================================================
diff -u
--- APPS/Halux/Machine/StemasC/enu/SliceProfiel.cls.xml	(revision 0)
+++ APPS/Halux/Machine/StemasC/enu/SliceProfiel.cls.xml	(revision 31609)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Machine.StemasC.enu.SliceProfiel">
+<Super>TECH.Enumeration</Super>
+
+<Parameter name="VALUELIST">
+<Default>;ST;CL</Default>
+</Parameter>
+
+<Parameter name="DISPLAYLIST">
+<Default>;Recht;Click</Default>
+</Parameter>
+
+<Method name="Recht">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Machine.StemasC.enu.SliceProfiel</ReturnType>
+<Implementation><![CDATA[	quit "ST"
+]]></Implementation>
+</Method>
+
+<Method name="Click">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Machine.StemasC.enu.SliceProfiel</ReturnType>
+<Implementation><![CDATA[	quit "CL"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Machine/StemasC/enu/SliceZijde/Verwerker.cls.xml
===================================================================
diff -u
--- APPS/Halux/Machine/StemasC/enu/SliceZijde/Verwerker.cls.xml	(revision 0)
+++ APPS/Halux/Machine/StemasC/enu/SliceZijde/Verwerker.cls.xml	(revision 31609)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Machine.StemasC.enu.SliceZijde.Verwerker">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie methoden moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+
+<Method name="Verwerk">
+<Final>1</Final>
+<FormalSpec>SliceZijde:APPS.Halux.Machine.StemasC.enu.SliceZijde</FormalSpec>
+<Implementation><![CDATA[
+	If SliceZijde = "F" {
+		Do ..VerwerkFront()
+	} ElseIf SliceZijde = "R" {
+		Do ..VerwerkRug()
+	} Else {
+		Set Exceptie = ##class(TECH.Exceptions.EnumerationException).%New(SliceZijde,"APPS.Halux.Machine.StemasC.enu.SliceZijde",$classname())
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkFront">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkRug">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Machine/StemasC/enu/SliceProfiel/AutoComplete.cls.xml
===================================================================
diff -u
--- APPS/Halux/Machine/StemasC/enu/SliceProfiel/AutoComplete.cls.xml	(revision 0)
+++ APPS/Halux/Machine/StemasC/enu/SliceProfiel/AutoComplete.cls.xml	(revision 31609)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Machine.StemasC.enu.SliceProfiel.AutoComplete">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+
+<Property name="Click">
+<Type>APPS.Halux.Machine.StemasC.enu.SliceProfiel</Type>
+<InitialExpression>"CL"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Recht">
+<Type>APPS.Halux.Machine.StemasC.enu.SliceProfiel</Type>
+<InitialExpression>"ST"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: APPS/Halux/Machine/StemasC/enu/SliceZijde/AutoComplete.cls.xml
===================================================================
diff -u
--- APPS/Halux/Machine/StemasC/enu/SliceZijde/AutoComplete.cls.xml	(revision 0)
+++ APPS/Halux/Machine/StemasC/enu/SliceZijde/AutoComplete.cls.xml	(revision 31609)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.Machine.StemasC.enu.SliceZijde.AutoComplete">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de Enumeratie - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt
+De enumeratie Eigenschapn moeten als type de enumeratieklasse zelf terug geven. De enumeratieklasse moet afleiden van TECH.Enumeration</Description>
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%SerialObject</Super>
+
+<Property name="Front">
+<Type>APPS.Halux.Machine.StemasC.enu.SliceZijde</Type>
+<InitialExpression>"F"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
+<Property name="Rug">
+<Type>APPS.Halux.Machine.StemasC.enu.SliceZijde</Type>
+<InitialExpression>"R"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/Halux/Machine/StemasC/impl/ProgrammaBepaler/BepaalProgramma/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/Machine/StemasC/impl/ProgrammaBepaler/BepaalProgramma/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/Machine/StemasC/impl/ProgrammaBepaler/BepaalProgramma/Test.cls.xml	(revision 31609)
@@ -0,0 +1,76 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.Machine.StemasC.impl.ProgrammaBepaler.BepaalProgramma.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
+
+<Property name="DummySliceZijde">
+<Type>APPS.Halux.Machine.StemasC.enu.SliceZijde</Type>
+<InitialExpression>##class(APPS.Halux.Machine.StemasC.enu.SliceZijde).Front()</InitialExpression>
+</Property>
+
+<Property name="DummySliceProfiel">
+<Type>APPS.Halux.Machine.StemasC.enu.SliceProfiel</Type>
+<InitialExpression>##class(APPS.Halux.Machine.StemasC.enu.SliceProfiel).Recht()</InitialExpression>
+</Property>
+
+<Property name="ProgrammaBepaler">
+<Type>APPS.Halux.Machine.StemasC.impl.ProgrammaBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="Bodem">
+<Type>DOM.PM.Maatwerk.LadeInfo.Bodem</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeAllTests">
+<Implementation><![CDATA[
+	do ##super()
+	set ..ProgrammaBepaler = ##class(APPS.Halux.Machine.StemasC.impl.ProgrammaBepaler).%New()
+	set ..Bodem = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Bodem).%New()
+	do ..Bodem.IndienMethodCall("GeefPlaatAfwerking").DanReturn(..Enum.PlaatAfwerking.Fineer)
+]]></Implementation>
+</Method>
+
+<Method name="Test : Opbouw Programma">
+<Implementation><![CDATA[	do $$$AssertPattern(..ProgrammaBepaler.BepaalProgramma(..Bodem,..DummySliceZijde,..DummySliceProfiel),"1A1""_""2A1""_""3A")
+]]></Implementation>
+</Method>
+
+<Method name="Test : SliceZijde Rug">
+<Implementation><![CDATA[	do $$$AssertEquals($piece(..ProgrammaBepaler.BepaalProgramma(..Bodem,##class(APPS.Halux.Machine.StemasC.enu.SliceZijde).Rug(),..DummySliceProfiel),"_",1),"R")
+]]></Implementation>
+</Method>
+
+<Method name="Test : SliceZijde Front">
+<Implementation><![CDATA[	do $$$AssertEquals($piece(..ProgrammaBepaler.BepaalProgramma(..Bodem,##class(APPS.Halux.Machine.StemasC.enu.SliceZijde).Front(),..DummySliceProfiel),"_",1),"F")
+]]></Implementation>
+</Method>
+
+<Method name="Test : Plaatafwerking Fineer">
+<Implementation><![CDATA[
+	do ..Bodem.IndienMethodCall("GeefPlaatAfwerking").DanReturn(..Enum.PlaatAfwerking.Fineer)
+	do $$$AssertEquals($piece(..ProgrammaBepaler.BepaalProgramma(..Bodem,..DummySliceZijde,..DummySliceProfiel),"_",3),"FIN")
+]]></Implementation>
+</Method>
+
+<Method name="Test : Plaatafwerking Melamine">
+<Implementation><![CDATA[
+	do ..Bodem.IndienMethodCall("GeefPlaatAfwerking").DanReturn(..Enum.PlaatAfwerking.Melamine)
+	do $$$AssertEquals($piece(..ProgrammaBepaler.BepaalProgramma(..Bodem,..DummySliceZijde,..DummySliceProfiel),"_",3),"MEL")
+]]></Implementation>
+</Method>
+
+<Method name="Test : Profiel clickverbinding">
+<Implementation><![CDATA[	do $$$AssertEquals($piece(..ProgrammaBepaler.BepaalProgramma(..Bodem,..DummySliceZijde,##class(APPS.Halux.Machine.StemasC.enu.SliceProfiel).Click()),"_",2),"CL")
+]]></Implementation>
+</Method>
+
+<Method name="Test : Profiel recht">
+<Implementation><![CDATA[	do $$$AssertEquals($piece(..ProgrammaBepaler.BepaalProgramma(..Bodem,..DummySliceZijde,##class(APPS.Halux.Machine.StemasC.enu.SliceProfiel).Recht()),"_",2),"ST")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>