Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesIsoProgrammaBepaler.cls.xml
===================================================================
diff -u -r30385 -r34211
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesIsoProgrammaBepaler.cls.xml	(.../KamerFreesIsoProgrammaBepaler.cls.xml)	(revision 30385)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesIsoProgrammaBepaler.cls.xml	(.../KamerFreesIsoProgrammaBepaler.cls.xml)	(revision 34211)
@@ -8,14 +8,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ZijkantHoogteCodeBepaler">
+<Type>APPS.Halux.PPS.TAORProductie.impl.ZijkantHoogteCodeBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>ZijkantLijmProgrammaBepaler:APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler</FormalSpec>
+<FormalSpec>ZijkantLijmProgrammaBepaler:APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler,ZijkantHoogteCodeBepaler:APPS.Halux.PPS.TAORProductie.impl.ZijkantHoogteCodeBepaler</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..ZijkantLijmProgrammaBepaler = $$$Implementation(ZijkantLijmProgrammaBepaler, ##class(APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler).%New())
+	Set ..ZijkantLijmProgrammaBepaler = $$$Inject(ZijkantLijmProgrammaBepaler, ##class(APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler).%New())
+	Set ..ZijkantHoogteCodeBepaler = $$$Inject(ZijkantHoogteCodeBepaler, ##class(APPS.Halux.PPS.TAORProductie.impl.ZijkantHoogteCodeBepaler).%New())
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -26,7 +33,7 @@
 <Implementation><![CDATA[
 	#dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant = Lade.GeefZijkanten().GetAt(1)
 	quit:$$$Not($IsObject(Zijkant)) ""
-	quit ..GeefProgrammaVolledigeNaam(Zijkant.GeefHoogte()_"_OUT_"_..ZijkantLijmProgrammaBepaler.BepaalProgramma(Zijkant))
+	quit ..GeefProgrammaVolledigeNaam(..GeefHoogteCode(Zijkant, Lade) _ "_OUT_" _ ..ZijkantLijmProgrammaBepaler.BepaalProgramma(Zijkant))
 ]]></Implementation>
 </Method>
 
@@ -36,7 +43,7 @@
 <Implementation><![CDATA[
 	#dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant = Lade.GeefZijkanten().GetAt(1)
 	quit:$$$Not($IsObject(Zijkant)) ""
-	quit ..GeefProgrammaVolledigeNaam(Zijkant.GeefHoogte()_"_IN_"_..ZijkantLijmProgrammaBepaler.BepaalProgramma(Zijkant))
+	quit ..GeefProgrammaVolledigeNaam(..GeefHoogteCode(Zijkant, Lade) _ "_IN_" _ ..ZijkantLijmProgrammaBepaler.BepaalProgramma(Zijkant))
 ]]></Implementation>
 </Method>
 
@@ -46,7 +53,7 @@
 <Implementation><![CDATA[
 	#dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant = Lade.GeefZijkanten().GetAt(2)
 	quit:$$$Not($IsObject(Zijkant)) ""
-	quit ..GeefProgrammaVolledigeNaam(Zijkant.GeefHoogte()_"_IN_"_..ZijkantLijmProgrammaBepaler.BepaalProgramma(Zijkant))
+	quit ..GeefProgrammaVolledigeNaam(..GeefHoogteCode(Zijkant, Lade) _ "_IN_" _ ..ZijkantLijmProgrammaBepaler.BepaalProgramma(Zijkant))
 ]]></Implementation>
 </Method>
 
@@ -56,7 +63,7 @@
 <Implementation><![CDATA[
 	#dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant = Lade.GeefZijkanten().GetAt(2)
 	quit:$$$Not($IsObject(Zijkant)) ""
-	quit ..GeefProgrammaVolledigeNaam(Zijkant.GeefHoogte()_"_OUT_"_..ZijkantLijmProgrammaBepaler.BepaalProgramma(Zijkant))
+	quit ..GeefProgrammaVolledigeNaam(..GeefHoogteCode(Zijkant, Lade) _ "_OUT_" _ ..ZijkantLijmProgrammaBepaler.BepaalProgramma(Zijkant))
 ]]></Implementation>
 </Method>
 
@@ -67,6 +74,14 @@
 <Implementation><![CDATA[	quit "C:\TWINcat\CNC\"_ProgrammaNaam_".nc"
 ]]></Implementation>
 </Method>
+
+<Method name="GeefHoogteCode">
+<FormalSpec>Zijkant:DOM.PM.Maatwerk.LadeInfo.Zijkant,Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..ZijkantHoogteCodeBepaler.Bepaal(Zijkant.GeefConcept(), Lade)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/PM/Maatwerk/LadeInfo/impl/TAX/Lade.cls.xml
===================================================================
diff -u -r32392 -r34211
--- DOM/PM/Maatwerk/LadeInfo/impl/TAX/Lade.cls.xml	(.../Lade.cls.xml)	(revision 32392)
+++ DOM/PM/Maatwerk/LadeInfo/impl/TAX/Lade.cls.xml	(.../Lade.cls.xml)	(revision 34211)
@@ -116,6 +116,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefRugHoogte">
+<ReturnType>DOM.PM.enu.TAORRugHoogte</ReturnType>
+<Implementation><![CDATA[	Quit ..IngegevenKenmerken.RugHoogte
+]]></Implementation>
+</Method>
+
 <Method name="GeefInbouwHoogteInMM">
 <ReturnType>TECH.Decimal</ReturnType>
 <Implementation><![CDATA[
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesIsoProgrammaBepaler/General/Test.cls.xml
===================================================================
diff -u -r30395 -r34211
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesIsoProgrammaBepaler/General/Test.cls.xml	(.../Test.cls.xml)	(revision 30395)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesIsoProgrammaBepaler/General/Test.cls.xml	(.../Test.cls.xml)	(revision 34211)
@@ -18,7 +18,7 @@
 <Private>1</Private>
 </Property>
 
-<Method name="Test: Lade met Linkse en Rechtse zijkant">
+<Method name="aTest: Lade met Linkse en Rechtse zijkant">
 <Implementation><![CDATA[
 	set ..ZijkantRollen = "LR"
 	Do ..AssertIsoProgrammas("N" , "N_IN_L" , "N_OUT_L" , "N_IN_R", "N_OUT_R")
@@ -46,6 +46,29 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: ZijkantHoogteCodeBepaler wordt opgeroepen">
+<Implementation><![CDATA[
+	#dim ZijkantLijmProgrammaBepalerStub As vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler).%New()
+	#dim ZijkantHoogteCodeBepalerMock As vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantHoogteCodeBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantHoogteCodeBepaler).%New()
+	#dim LadeStub As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade).%New()
+	#dim Zijkanten As DOM.PM.Maatwerk.LadeInfo.Zijkanten = ##class(DOM.PM.Maatwerk.LadeInfo.Zijkanten).%New()
+	#dim ZijkantLinks As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Zijkant = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Zijkant).%New()
+	
+	Do Zijkanten.Insert(ZijkantLinks)
+	
+	Do ZijkantLinks.IndienMethodCall("GeefConcept").DanReturn(##class(DOM.PM.enu.TAORConcept).Valinge())
+	Do LadeStub.IndienMethodCall("GeefZijkanten").DanReturn(Zijkanten)
+	Do LadeStub.IndienMethodCall("GeefHoogte").DanReturn(##class(DOM.PM.enu.TAORLadeHoogte).C())
+	Do ZijkantLijmProgrammaBepalerStub.IndienMethodCall("BepaalProgramma", ZijkantLinks).DanReturn(##class(APPS.Halux.Machine.Kantenband.enu.LijmProgramma).A())
+	
+	Set ..IsoProgrammaBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Zijkant.KamerFreesIsoProgrammaBepaler).%New(ZijkantLijmProgrammaBepalerStub, ZijkantHoogteCodeBepalerMock)
+
+	Do ZijkantHoogteCodeBepalerMock.VerwachtMethodCall("Bepaal", ##class(DOM.PM.enu.TAORConcept).Valinge(), LadeStub)
+	Do ..IsoProgrammaBepaler.GeefLinksBinnen(LadeStub)
+	Do ZijkantHoogteCodeBepalerMock.Verifieer()
+]]></Implementation>
+</Method>
+
 <Method name="AssertIsoProgrammas">
 <FormalSpec>ZijkantHoogte:DOM.PM.enu.TAORZijkantHoogte,LiBu:%String,LiBi:%String,ReBi:%String,ReBu:%String</FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/APPS/Halux/PPS/TAORProductie/impl/ZijkantHoogteCodeBepaler/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/Halux/PPS/TAORProductie/impl/ZijkantHoogteCodeBepaler/Test.cls.xml	(revision 0)
+++ vhUnitTest/APPS/Halux/PPS/TAORProductie/impl/ZijkantHoogteCodeBepaler/Test.cls.xml	(revision 34211)
@@ -0,0 +1,39 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.Halux.PPS.TAORProductie.impl.ZijkantHoogteCodeBepaler.Test">
+<Super>vhUnitTest.DOM.PM.Maatwerk.TAX.Base</Super>
+
+<Property name="ZijkantHoogteCodeBepaler">
+<Type>APPS.Halux.PPS.TAORProductie.impl.ZijkantHoogteCodeBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="LadeStub">
+<Type>vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..ZijkantHoogteCodeBepaler = ##class(APPS.Halux.PPS.TAORProductie.impl.ZijkantHoogteCodeBepaler).%New()
+	Set ..LadeStub = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade).%New()
+	
+	Do ..LadeStub.IndienMethodCall("GeefHoogte").DanReturn(..Enum.LadeHoogte.C)
+	Do ..LadeStub.IndienMethodCall("GeefRugHoogte").DanReturn(..Enum.RugHoogte.M)
+]]></Implementation>
+</Method>
+
+<Method name="Test">
+<Implementation><![CDATA[
+	Do $$$AssertEquals(..ZijkantHoogteCodeBepaler.Bepaal(..Enum.Concept.Baliko, ..LadeStub), "C")
+	Do $$$AssertEquals(..ZijkantHoogteCodeBepaler.Bepaal(..Enum.Concept.Valinge, ..LadeStub), "C")
+	Do $$$AssertEquals(..ZijkantHoogteCodeBepaler.Bepaal(..Enum.Concept.ValingeBaliko, ..LadeStub), "CM")
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/Halux/PPS/TAORProductie/impl/ZijkantHoogteCodeBepaler.cls.xml
===================================================================
diff -u
--- APPS/Halux/PPS/TAORProductie/impl/ZijkantHoogteCodeBepaler.cls.xml	(revision 0)
+++ APPS/Halux/PPS/TAORProductie/impl/ZijkantHoogteCodeBepaler.cls.xml	(revision 34211)
@@ -0,0 +1,24 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.Halux.PPS.TAORProductie.impl.ZijkantHoogteCodeBepaler">
+<Super>TECH.Mockable,DOM.PM.Maatwerk.TAX.impl.Base</Super>
+
+<Method name="Bepaal">
+<FormalSpec>ZijkantConcept:DOM.PM.enu.TAORConcept,Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim Code As %String = ""
+	
+	If (ZijkantConcept = ..Enum.Concept.ValingeBaliko) {
+		Set Code = Lade.GeefHoogte() _ Lade.GeefRugHoogte()
+	} Else {
+		Set Code = Lade.GeefHoogte()	
+	}
+	
+	Quit Code
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Mock/APPS/Halux/PPS/TAORProductie/impl/ZijkantHoogteCodeBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/APPS/Halux/PPS/TAORProductie/impl/ZijkantHoogteCodeBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/APPS/Halux/PPS/TAORProductie/impl/ZijkantHoogteCodeBepaler.cls.xml	(revision 34211)
@@ -0,0 +1,21 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantHoogteCodeBepaler">
+<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>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.Halux.PPS.TAORProductie.impl.ZijkantHoogteCodeBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="Bepaal">
+<FormalSpec>ZijkantConcept:DOM.PM.enu.TAORConcept,Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("Bepaal",ZijkantConcept,Lade)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestVerlaagdeRug/StartBatch/External_SQL.DB_ZijkantKamerFreesData.xml
===================================================================
diff -u -r33930 -r34211
--- vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestVerlaagdeRug/StartBatch/External_SQL.DB_ZijkantKamerFreesData.xml	(.../External_SQL.DB_ZijkantKamerFreesData.xml)	(revision 33930)
+++ vhTestFiles/IntegratieTests/Productie.Planning.ActieveBatches.Taorbox.Aansturing/TestVerlaagdeRug/StartBatch/External_SQL.DB_ZijkantKamerFreesData.xml	(.../External_SQL.DB_ZijkantKamerFreesData.xml)	(revision 34211)
@@ -27,9 +27,9 @@
 PrintTextRight3 = T1/V1/UNITTEST KLA/2222-1:1
 PrintTextRight4 = ZCB50X00001
 ProductCode = ""
-ProgramLeftInner = C:\TWINcat\CNC\C_OUT_X.nc
-ProgramLeftOuter = C:\TWINcat\CNC\C_IN_X.nc
-ProgramRightInner = C:\TWINcat\CNC\C_IN_X.nc
-ProgramRightOuter = C:\TWINcat\CNC\C_OUT_X.nc
+ProgramLeftInner = C:\TWINcat\CNC\CM_OUT_X.nc
+ProgramLeftOuter = C:\TWINcat\CNC\CM_IN_X.nc
+ProgramRightInner = C:\TWINcat\CNC\CM_IN_X.nc
+ProgramRightOuter = C:\TWINcat\CNC\CM_OUT_X.nc
 SequenceNbr = ""
 SlotNbr = 1
Index: vhTest/Fake/APPS/Halux/PPS/TAORProductie/impl/ZijkantHoogteCodeBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/APPS/Halux/PPS/TAORProductie/impl/ZijkantHoogteCodeBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/APPS/Halux/PPS/TAORProductie/impl/ZijkantHoogteCodeBepaler.cls.xml	(revision 34211)
@@ -0,0 +1,19 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.APPS.Halux.PPS.TAORProductie.impl.ZijkantHoogteCodeBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+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.Halux.PPS.TAORProductie.impl.ZijkantHoogteCodeBepaler</Super>
+
+<Method name="Bepaal">
+<FormalSpec>ZijkantConcept:DOM.PM.enu.TAORConcept,Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ""
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/Maatwerk/LadeInfo/Lade.cls.xml
===================================================================
diff -u -r30658 -r34211
--- DOM/PM/Maatwerk/LadeInfo/Lade.cls.xml	(.../Lade.cls.xml)	(revision 30658)
+++ DOM/PM/Maatwerk/LadeInfo/Lade.cls.xml	(.../Lade.cls.xml)	(revision 34211)
@@ -4,6 +4,11 @@
 <Abstract>1</Abstract>
 <Super>TECH.Interface</Super>
 
+<Method name="GeefRugHoogte">
+<Abstract>1</Abstract>
+<ReturnType>TECH.Enumeration</ReturnType>
+</Method>
+
 <Method name="GeefHoogte">
 <Abstract>1</Abstract>
 <ReturnType>TECH.Enumeration</ReturnType>