Index: vhTest/Fake/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesIsoProgrammaBepaler.cls.xml
===================================================================
diff -u -r29059 -r63980
--- vhTest/Fake/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesIsoProgrammaBepaler.cls.xml	(.../KamerFreesIsoProgrammaBepaler.cls.xml)	(revision 29059)
+++ vhTest/Fake/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesIsoProgrammaBepaler.cls.xml	(.../KamerFreesIsoProgrammaBepaler.cls.xml)	(revision 63980)
@@ -8,28 +8,28 @@
 <Super>APPS.Halux.PPS.Activiteit.impl.TAOR.Zijkant.KamerFreesIsoProgrammaBepaler</Super>
 
 <Method name="GeefLinksBinnen">
-<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
+<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
 
 <Method name="GeefLinksBuiten">
-<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
+<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
 
 <Method name="GeefRechtsBinnen">
-<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
+<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
 </Method>
 
 <Method name="GeefRechtsBuiten">
-<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
+<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesDataAanvullerTestBase.cls.xml
===================================================================
diff -u -r63874 -r63980
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesDataAanvullerTestBase.cls.xml	(.../KamerFreesDataAanvullerTestBase.cls.xml)	(revision 63874)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesDataAanvullerTestBase.cls.xml	(.../KamerFreesDataAanvullerTestBase.cls.xml)	(revision 63980)
@@ -30,7 +30,6 @@
 	Do ##super(aTestName)
 	
 	Set ..ProductieSequentieItem = ##class(APPS.Halux.common.ProductieSequentieItem).%New()
-	Set ..ProductieSequentieItem.PartijID = ##class(vhTest.Dummy.DOM.VKP.VanHoeckeKlant).%New()
 	
 	Set ..WerklijstItemMakerInput = ##class(vhTest.Dummy.APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput).%New()
 	Set ..WerklijstItemMakerInput.ProductieSequentieItem = ..ProductieSequentieItem
Index: vhTest/Mock/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesIsoProgrammaBepaler.cls.xml
===================================================================
diff -u -r63871 -r63980
--- vhTest/Mock/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesIsoProgrammaBepaler.cls.xml	(.../KamerFreesIsoProgrammaBepaler.cls.xml)	(revision 63871)
+++ vhTest/Mock/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesIsoProgrammaBepaler.cls.xml	(.../KamerFreesIsoProgrammaBepaler.cls.xml)	(revision 63980)
@@ -15,30 +15,30 @@
 </Method>
 
 <Method name="GeefLinksBinnen">
-<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,KlantID:DOM.VKP.VanHoeckeKlantID=""</FormalSpec>
+<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefLinksBinnen",Lade,KlantID)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefLinksBinnen",Lade,ProductieSequentieItem)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefLinksBuiten">
-<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,KlantID:DOM.VKP.VanHoeckeKlantID=""</FormalSpec>
+<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefLinksBuiten",Lade,KlantID)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefLinksBuiten",Lade,ProductieSequentieItem)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefRechtsBinnen">
-<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,KlantID:DOM.VKP.VanHoeckeKlantID=""</FormalSpec>
+<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefRechtsBinnen",Lade,KlantID)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefRechtsBinnen",Lade,ProductieSequentieItem)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefRechtsBuiten">
-<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,KlantID:DOM.VKP.VanHoeckeKlantID=""</FormalSpec>
+<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefRechtsBuiten",Lade,KlantID)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefRechtsBuiten",Lade,ProductieSequentieItem)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesDataProgrammaAanvuller.cls.xml
===================================================================
diff -u -r63871 -r63980
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesDataProgrammaAanvuller.cls.xml	(.../KamerFreesDataProgrammaAanvuller.cls.xml)	(revision 63871)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesDataProgrammaAanvuller.cls.xml	(.../KamerFreesDataProgrammaAanvuller.cls.xml)	(revision 63980)
@@ -30,13 +30,10 @@
 <Method name="VulAan">
 <FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.ZijkantKamerFreesUitvoeringInfo,WerklijstItemMakerInput:APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput</FormalSpec>
 <Implementation><![CDATA[
-	#dim ProductieSequentieItem As APPS.Halux.common.ProductieSequentieItem = WerklijstItemMakerInput.ProductieSequentieItem
-	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ProductieSequentieItem.PartijID
-	
-	Set UitvoeringInfo.KamerFreesData.ProgramLeftInner = ..ProgrammaBepaler.GeefLinksBinnen(..Lade, KlantID)
-	Set UitvoeringInfo.KamerFreesData.ProgramLeftOuter = ..ProgrammaBepaler.GeefLinksBuiten(..Lade, KlantID)
-	Set UitvoeringInfo.KamerFreesData.ProgramRightInner = ..ProgrammaBepaler.GeefRechtsBinnen(..Lade, KlantID)
-	Set UitvoeringInfo.KamerFreesData.ProgramRightOuter = ..ProgrammaBepaler.GeefRechtsBuiten(..Lade, KlantID)
+	Set UitvoeringInfo.KamerFreesData.ProgramLeftInner = ..ProgrammaBepaler.GeefLinksBinnen(..Lade, WerklijstItemMakerInput.ProductieSequentieItem)
+	Set UitvoeringInfo.KamerFreesData.ProgramLeftOuter = ..ProgrammaBepaler.GeefLinksBuiten(..Lade, WerklijstItemMakerInput.ProductieSequentieItem)
+	Set UitvoeringInfo.KamerFreesData.ProgramRightInner = ..ProgrammaBepaler.GeefRechtsBinnen(..Lade, WerklijstItemMakerInput.ProductieSequentieItem)
+	Set UitvoeringInfo.KamerFreesData.ProgramRightOuter = ..ProgrammaBepaler.GeefRechtsBuiten(..Lade, WerklijstItemMakerInput.ProductieSequentieItem)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler/Test.cls.xml
===================================================================
diff -u -r63871 -r63980
--- vhUnitTest/APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 63871)
+++ vhUnitTest/APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 63980)
@@ -13,63 +13,51 @@
 <Private>1</Private>
 </Property>
 
-<Method name="Test: Oorspronkelijke werking zonder KlantId">
+<Method name="Test: LijmProgramma indien HeeftFrontHoogteVerstelling = False">
 <Implementation><![CDATA[
-	Do ..AssertLijmProgramma(..Enum.Concept.Baliko, ..ZijkantRol.Links,,, ..LijmProgramma.A)
-	Do ..AssertLijmProgramma(..Enum.Concept.Baliko, ..ZijkantRol.Rechts,,, ..LijmProgramma.B)
+	Do ..AssertLijmProgramma(..Enum.Concept.Baliko, ..ZijkantRol.Links, $$$False, ..LijmProgramma.A)
+	Do ..AssertLijmProgramma(..Enum.Concept.Baliko, ..ZijkantRol.Rechts, $$$False, ..LijmProgramma.B)
 	
-	Do ..AssertLijmProgramma(..Enum.Concept.Valinge, ..ZijkantRol.Links,,, ..LijmProgramma.L)
-	Do ..AssertLijmProgramma(..Enum.Concept.Valinge, ..ZijkantRol.Rechts,,, ..LijmProgramma.R)
+	Do ..AssertLijmProgramma(..Enum.Concept.Valinge, ..ZijkantRol.Links, $$$False, ..LijmProgramma.L)
+	Do ..AssertLijmProgramma(..Enum.Concept.Valinge, ..ZijkantRol.Rechts, $$$False, ..LijmProgramma.R)
 	
-	Do ..AssertLijmProgramma(..Enum.Concept.ValingeBaliko, ..ZijkantRol.Links,,, ..LijmProgramma.C)
-	Do ..AssertLijmProgramma(..Enum.Concept.ValingeBaliko, ..ZijkantRol.Rechts,,, ..LijmProgramma.D)
+	Do ..AssertLijmProgramma(..Enum.Concept.ValingeBaliko, ..ZijkantRol.Links, $$$False, ..LijmProgramma.C)
+	Do ..AssertLijmProgramma(..Enum.Concept.ValingeBaliko, ..ZijkantRol.Rechts, $$$False, ..LijmProgramma.D)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Werking met irrelevant KlantId in functie van MagKlantTAORFrontHoogteVerstellingBestellen">
+<Method name="Test: LijmProgramma indien HeeftFrontHoogteVerstelling = True">
 <Implementation><![CDATA[
-	Do ..AssertLijmProgramma(..Enum.Concept.Baliko, ..ZijkantRol.Links, $$$ElkeWaarde, $$$False, ..LijmProgramma.A)
-	Do ..AssertLijmProgramma(..Enum.Concept.Baliko, ..ZijkantRol.Rechts, $$$ElkeWaarde, $$$False, ..LijmProgramma.B)
+	Do ..AssertLijmProgramma(..Enum.Concept.Baliko, ..ZijkantRol.Links, $$$True, ..LijmProgramma.A)
+	Do ..AssertLijmProgramma(..Enum.Concept.Baliko, ..ZijkantRol.Rechts, $$$True, ..LijmProgramma.B)
 	
-	Do ..AssertLijmProgramma(..Enum.Concept.Valinge, ..ZijkantRol.Links, $$$ElkeWaarde, $$$False, ..LijmProgramma.L)
-	Do ..AssertLijmProgramma(..Enum.Concept.Valinge, ..ZijkantRol.Rechts, $$$ElkeWaarde, $$$False, ..LijmProgramma.R)
+	Do ..AssertLijmProgramma(..Enum.Concept.Valinge, ..ZijkantRol.Links, $$$True, ..LijmProgramma.X)
+	Do ..AssertLijmProgramma(..Enum.Concept.Valinge, ..ZijkantRol.Rechts, $$$True, ..LijmProgramma.Y)
 	
-	Do ..AssertLijmProgramma(..Enum.Concept.ValingeBaliko, ..ZijkantRol.Links, $$$ElkeWaarde, $$$False, ..LijmProgramma.C)
-	Do ..AssertLijmProgramma(..Enum.Concept.ValingeBaliko, ..ZijkantRol.Rechts, $$$ElkeWaarde, $$$False, ..LijmProgramma.D)
+	Do ..AssertLijmProgramma(..Enum.Concept.ValingeBaliko, ..ZijkantRol.Links, $$$True, ..LijmProgramma.G)
+	Do ..AssertLijmProgramma(..Enum.Concept.ValingeBaliko, ..ZijkantRol.Rechts, $$$True, ..LijmProgramma.H)
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Werking met relevant KlantId in functie van MagKlantTAORFrontHoogteVerstellingBestellen">
-<Implementation><![CDATA[
-	Do ..AssertLijmProgramma(..Enum.Concept.Baliko, ..ZijkantRol.Links, $$$ElkeWaarde, $$$True, ..LijmProgramma.A)
-	Do ..AssertLijmProgramma(..Enum.Concept.Baliko, ..ZijkantRol.Rechts, $$$ElkeWaarde, $$$True, ..LijmProgramma.B)
-	
-	Do ..AssertLijmProgramma(..Enum.Concept.Valinge, ..ZijkantRol.Links, $$$ElkeWaarde, $$$True, ..LijmProgramma.X)
-	Do ..AssertLijmProgramma(..Enum.Concept.Valinge, ..ZijkantRol.Rechts, $$$ElkeWaarde, $$$True, ..LijmProgramma.Y)
-	
-	Do ..AssertLijmProgramma(..Enum.Concept.ValingeBaliko, ..ZijkantRol.Links, $$$ElkeWaarde, $$$True, ..LijmProgramma.G)
-	Do ..AssertLijmProgramma(..Enum.Concept.ValingeBaliko, ..ZijkantRol.Rechts, $$$ElkeWaarde, $$$True, ..LijmProgramma.H)
-]]></Implementation>
-</Method>
-
 <Method name="AssertLijmProgramma">
-<FormalSpec>Concept:DOM.PM.enu.TAORConcept,ZijkantRol:DOM.PM.Maatwerk.Lade.enu.ZijkantRol,KlantID:DOM.VKP.VanHoeckeKlantID="",MagKlantTAORFrontHoogteVerstellingBestellen:%Boolean,VerwachtLijmProgramma:APPS.Halux.Machine.Kantenband.enu.LijmProgramma</FormalSpec>
+<FormalSpec>Concept:DOM.PM.enu.TAORConcept,ZijkantRol:DOM.PM.Maatwerk.Lade.enu.ZijkantRol,HeeftFrontHoogteVerstelling:%Boolean,VerwachtLijmProgramma:APPS.Halux.Machine.Kantenband.enu.LijmProgramma</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim KlantInstellingenService As APPS.common.KlantInstellingenService = ##class(vhTest.Mock.APPS.common.KlantInstellingenService).%New()
-	If ($$$HasLength(KlantID)) {
-		Do KlantInstellingenService.IndienMethodCall("MagKlantTAORFrontHoogteVerstellingBestellen", KlantID).DanReturn(MagKlantTAORFrontHoogteVerstellingBestellen)
-	} Else {
-		Do KlantInstellingenService.IndienMethodCall("MagKlantTAORFrontHoogteVerstellingBestellen", "").DanReturn($$$False)
-	}
+	#dim ProductieSequentieItemDummy As APPS.Halux.common.ProductieSequentieItem = ##class(vhTest.Dummy.APPS.Halux.common.ProductieSequentieItem).%New()
 	
-	#dim ZijkantLijmProgrammaBepaler As APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler = ##class(APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler).%New(KlantInstellingenService)
-	#dim ZijkantStub As vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Zijkant = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Zijkant).%New()
-	
+	#dim ZijkantStub As DOM.PM.Maatwerk.LadeInfo.Zijkant = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Zijkant).%New()
 	Do ZijkantStub.IndienMethodCall("GeefConcept").DanReturn(Concept)
 	Do ZijkantStub.IndienMethodCall("GeefZijkantRol").DanReturn(ZijkantRol)
 	
-	Do $$$AssertEquals(ZijkantLijmProgrammaBepaler.BepaalProgramma(ZijkantStub), VerwachtLijmProgramma)
+	#dim TaxLadeStub As DOM.PM.TAORProduct.TAORLade = ##class(vhTest.Mock.DOM.PM.TAORProduct.TAORLade).%New()
+	Do TaxLadeStub.IndienMethodCall("HeeftFrontHoogteVerstelling").DanReturn(HeeftFrontHoogteVerstelling)
+	
+	#dim ProductTypeApiStub As DOM.PM.ProductTypeAPI = ##class(vhTest.Mock.DOM.PM.ProductTypeAPI).%New()
+	Do ProductTypeApiStub.IndienMethodCall("GeefTAORboxProduct", ProductieSequentieItemDummy.ProductID).DanReturn(TaxLadeStub)
+	
+	Set ZijkantLijmProgrammaBepaler = ##class(APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler).%New(ProductTypeApiStub)
+	
+	Do $$$AssertEquals(ZijkantLijmProgrammaBepaler.BepaalProgramma(ZijkantStub, ProductieSequentieItemDummy), VerwachtLijmProgramma)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Fake/APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler.cls.xml
===================================================================
diff -u -r63871 -r63980
--- vhTest/Fake/APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler.cls.xml	(.../ZijkantLijmProgrammaBepaler.cls.xml)	(revision 63871)
+++ vhTest/Fake/APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler.cls.xml	(.../ZijkantLijmProgrammaBepaler.cls.xml)	(revision 63980)
@@ -8,7 +8,7 @@
 <Super>APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler</Super>
 
 <Method name="BepaalProgramma">
-<FormalSpec>Zijkant:DOM.PM.Maatwerk.LadeInfo.Zijkant,KlantID:DOM.VKP.VanHoeckeKlantID=""</FormalSpec>
+<FormalSpec>Zijkant:DOM.PM.Maatwerk.LadeInfo.Zijkant,ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
 <ReturnType>APPS.Halux.Machine.Kantenband.enu.LijmProgramma</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesDataProgrammaAanvuller/VulAan/Test.cls.xml
===================================================================
diff -u -r63874 -r63980
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesDataProgrammaAanvuller/VulAan/Test.cls.xml	(.../Test.cls.xml)	(revision 63874)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesDataProgrammaAanvuller/VulAan/Test.cls.xml	(.../Test.cls.xml)	(revision 63980)
@@ -25,13 +25,11 @@
 
 <Method name="Test">
 <Implementation><![CDATA[
-	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ..ProductieSequentieItem.PartijID
-	
 	Set ProgrammaBepaler = ##class(vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.TAOR.Zijkant.KamerFreesIsoProgrammaBepaler).%New()
-	Do ProgrammaBepaler.IndienMethodCall("GeefLinksBinnen", ..Lade, KlantID).DanReturn(..#LinksBinnen)
-	Do ProgrammaBepaler.IndienMethodCall("GeefLinksBuiten", ..Lade, KlantID).DanReturn(..#LinksBuiten)
-	Do ProgrammaBepaler.IndienMethodCall("GeefRechtsBinnen", ..Lade, KlantID).DanReturn(..#RechtsBinnen)
-	Do ProgrammaBepaler.IndienMethodCall("GeefRechtsBuiten", ..Lade, KlantID).DanReturn(..#RechtsBuiten)
+	Do ProgrammaBepaler.IndienMethodCall("GeefLinksBinnen", ..Lade, ..ProductieSequentieItem).DanReturn(..#LinksBinnen)
+	Do ProgrammaBepaler.IndienMethodCall("GeefLinksBuiten", ..Lade, ..ProductieSequentieItem).DanReturn(..#LinksBuiten)
+	Do ProgrammaBepaler.IndienMethodCall("GeefRechtsBinnen", ..Lade, ..ProductieSequentieItem).DanReturn(..#RechtsBinnen)
+	Do ProgrammaBepaler.IndienMethodCall("GeefRechtsBuiten", ..Lade, ..ProductieSequentieItem).DanReturn(..#RechtsBuiten)
 	
 	Set KamerZijkantFreesDataAanvuller = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Zijkant.KamerFreesDataProgrammaAanvuller).%New(..Lade, ProgrammaBepaler)
 	Do KamerZijkantFreesDataAanvuller.VulAan(..ZijkantKamerFreesUitvoeringInfo, ..WerklijstItemMakerInput)
Index: vhTest/Mock/APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler.cls.xml
===================================================================
diff -u -r63871 -r63980
--- vhTest/Mock/APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler.cls.xml	(.../ZijkantLijmProgrammaBepaler.cls.xml)	(revision 63871)
+++ vhTest/Mock/APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler.cls.xml	(.../ZijkantLijmProgrammaBepaler.cls.xml)	(revision 63980)
@@ -8,16 +8,16 @@
 <Super>APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler,Tools.Mock.MockClassBase</Super>
 
 <Method name="%OnNew">
-<FormalSpec>KlantInstellingenService:APPS.common.KlantInstellingenService=""</FormalSpec>
+<FormalSpec>ProductTypeApi:DOM.PM.ProductTypeAPI=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalProgramma">
-<FormalSpec>Zijkant:DOM.PM.Maatwerk.LadeInfo.Zijkant,KlantID:DOM.VKP.VanHoeckeKlantID=""</FormalSpec>
+<FormalSpec>Zijkant:DOM.PM.Maatwerk.LadeInfo.Zijkant,ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
 <ReturnType>APPS.Halux.Machine.Kantenband.enu.LijmProgramma</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("BepaalProgramma",Zijkant,KlantID)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BepaalProgramma",Zijkant,ProductieSequentieItem)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/VerwerkingIDBepaler.cls.xml
===================================================================
diff -u -r63871 -r63980
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/VerwerkingIDBepaler.cls.xml	(.../VerwerkingIDBepaler.cls.xml)	(revision 63871)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/VerwerkingIDBepaler.cls.xml	(.../VerwerkingIDBepaler.cls.xml)	(revision 63980)
@@ -55,10 +55,9 @@
 <Implementation><![CDATA[
 	Set ..Zijkant = Zijkant
 	Set ..ProductieSequentieItem = ProductieSequentieItem
-	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ProductieSequentieItem.PartijID
 	
 	#dim VerwerkingID As %String = ""
-	Set VerwerkingID = ..GeefPrefix() _ ..GeefZijkantHoogte() _ ..GeefKleurCode(VerwerkingOnderdeelNr) _ ..GeefLadeDiepte() _ ..GeefLijmProgrammaCode(KlantID) _ ..GeefVolgnummer(VerwerkingOnderdeelNr,VerwerkingTeller)
+	Set VerwerkingID = ..GeefPrefix() _ ..GeefZijkantHoogte() _ ..GeefKleurCode(VerwerkingOnderdeelNr) _ ..GeefLadeDiepte() _ ..GeefLijmProgrammaCode() _ ..GeefVolgnummer(VerwerkingOnderdeelNr,VerwerkingTeller)
 	 
 	Quit ..GeefGeuniformiseerdeVerwerkingID(VerwerkingID)
 ]]></Implementation>
@@ -94,10 +93,9 @@
 </Method>
 
 <Method name="GeefLijmProgrammaCode">
-<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..ZijkantLijmProgrammaBepaler.BepaalProgramma(..Zijkant, KlantID)
+<Implementation><![CDATA[	Quit ..ZijkantLijmProgrammaBepaler.BepaalProgramma(..Zijkant, ..ProductieSequentieItem)
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler.cls.xml
===================================================================
diff -u -r63871 -r63980
--- APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler.cls.xml	(.../ZijkantLijmProgrammaBepaler.cls.xml)	(revision 63871)
+++ APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler.cls.xml	(.../ZijkantLijmProgrammaBepaler.cls.xml)	(revision 63980)
@@ -28,30 +28,36 @@
 <Private>1</Private>
 </Property>
 
-<Property name="KlantID">
-<Type>DOM.VKP.VanHoeckeKlantID</Type>
+<Property name="ProductTypeApi">
+<Type>DOM.PM.ProductTypeAPI</Type>
 <Private>1</Private>
 </Property>
 
+<Property name="HeeftFrontHoogteVerstelling">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>KlantInstellingenService:APPS.common.KlantInstellingenService=""</FormalSpec>
+<FormalSpec>ProductTypeApi:DOM.PM.ProductTypeAPI=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..KlantInstellingenService = $$$Inject(KlantInstellingenService, ##class(APPS.common.impl.KlantInstellingenService).%New())
+	Set ..ProductTypeApi = $$$Inject(ProductTypeApi, ##class(DOM.PM.impl.ProductTypeAPIimpl).%New())
 	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="BepaalProgramma">
-<FormalSpec>Zijkant:DOM.PM.Maatwerk.LadeInfo.Zijkant,KlantID:DOM.VKP.VanHoeckeKlantID=""</FormalSpec>
+<FormalSpec>Zijkant:DOM.PM.Maatwerk.LadeInfo.Zijkant,ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
 <ReturnType>APPS.Halux.Machine.Kantenband.enu.LijmProgramma</ReturnType>
 <Implementation><![CDATA[
+	#dim TaxLade As DOM.PM.TAORProduct.TAORLade = ..ProductTypeApi.GeefTAORboxProduct(ProductieSequentieItem.ProductID)
+	Set ..HeeftFrontHoogteVerstelling = TaxLade.HeeftFrontHoogteVerstelling()
 	Set ..Zijkant = Zijkant
-	Set ..KlantID = KlantID
 	Set ..ZijkantLijmProgramma = ..LijmProgramma.X
 	
 	Do ..Verwerk(Zijkant.GeefConcept())
@@ -75,9 +81,9 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	If (..Zijkant.GeefZijkantRol() = ..ZijkantRol.Links) {
-		Set ..ZijkantLijmProgramma = $$$If(..KlantInstellingenService.MagKlantTAORFrontHoogteVerstellingBestellen(..KlantID), ..LijmProgramma.X, ..LijmProgramma.L)
+		Set ..ZijkantLijmProgramma = $$$If(..HeeftFrontHoogteVerstelling, ..LijmProgramma.X, ..LijmProgramma.L)
 	} Else {
-		Set ..ZijkantLijmProgramma = $$$If(..KlantInstellingenService.MagKlantTAORFrontHoogteVerstellingBestellen(..KlantID), ..LijmProgramma.Y, ..LijmProgramma.R)
+		Set ..ZijkantLijmProgramma = $$$If(..HeeftFrontHoogteVerstelling, ..LijmProgramma.Y, ..LijmProgramma.R)
 	}
 ]]></Implementation>
 </Method>
@@ -86,9 +92,9 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	If (..Zijkant.GeefZijkantRol() = ..ZijkantRol.Links) {
-		Set ..ZijkantLijmProgramma = $$$If(..KlantInstellingenService.MagKlantTAORFrontHoogteVerstellingBestellen(..KlantID), ..LijmProgramma.G, ..LijmProgramma.C)
+		Set ..ZijkantLijmProgramma = $$$If(..HeeftFrontHoogteVerstelling, ..LijmProgramma.G, ..LijmProgramma.C)
 	} Else {
-		Set ..ZijkantLijmProgramma = $$$If(..KlantInstellingenService.MagKlantTAORFrontHoogteVerstellingBestellen(..KlantID), ..LijmProgramma.H, ..LijmProgramma.D)
+		Set ..ZijkantLijmProgramma = $$$If(..HeeftFrontHoogteVerstelling, ..LijmProgramma.H, ..LijmProgramma.D)
 	}
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesIsoProgrammaBepaler.cls.xml
===================================================================
diff -u -r63871 -r63980
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesIsoProgrammaBepaler.cls.xml	(.../KamerFreesIsoProgrammaBepaler.cls.xml)	(revision 63871)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesIsoProgrammaBepaler.cls.xml	(.../KamerFreesIsoProgrammaBepaler.cls.xml)	(revision 63980)
@@ -28,46 +28,46 @@
 </Method>
 
 <Method name="GeefLinksBinnen">
-<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,KlantID:DOM.VKP.VanHoeckeKlantID=""</FormalSpec>
+<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant = Lade.GeefZijkanten().GetAt(1)
 	
 	Quit:$$$Not($IsObject(Zijkant)) ""
-	Quit ..GeefProgrammaVolledigeNaam(..ZijkantHoogteCodeBepaler.Bepaal(Lade, 1) _ "_OUT_" _ ..ZijkantLijmProgrammaBepaler.BepaalProgramma(Zijkant, KlantID))
+	Quit ..GeefProgrammaVolledigeNaam(..ZijkantHoogteCodeBepaler.Bepaal(Lade, 1) _ "_OUT_" _ ..ZijkantLijmProgrammaBepaler.BepaalProgramma(Zijkant, ProductieSequentieItem))
 ]]></Implementation>
 </Method>
 
 <Method name="GeefLinksBuiten">
-<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,KlantID:DOM.VKP.VanHoeckeKlantID=""</FormalSpec>
+<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant = Lade.GeefZijkanten().GetAt(1)
 	
 	Quit:$$$Not($IsObject(Zijkant)) ""
-	Quit ..GeefProgrammaVolledigeNaam(..ZijkantHoogteCodeBepaler.Bepaal(Lade, 1) _ "_IN_" _ ..ZijkantLijmProgrammaBepaler.BepaalProgramma(Zijkant, KlantID))
+	Quit ..GeefProgrammaVolledigeNaam(..ZijkantHoogteCodeBepaler.Bepaal(Lade, 1) _ "_IN_" _ ..ZijkantLijmProgrammaBepaler.BepaalProgramma(Zijkant, ProductieSequentieItem))
 ]]></Implementation>
 </Method>
 
 <Method name="GeefRechtsBinnen">
-<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,KlantID:DOM.VKP.VanHoeckeKlantID=""</FormalSpec>
+<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant = Lade.GeefZijkanten().GetAt(2)
 	
 	Quit:$$$Not($IsObject(Zijkant)) ""
-	Quit ..GeefProgrammaVolledigeNaam(..ZijkantHoogteCodeBepaler.Bepaal(Lade, 2) _ "_IN_" _ ..ZijkantLijmProgrammaBepaler.BepaalProgramma(Zijkant, KlantID))
+	Quit ..GeefProgrammaVolledigeNaam(..ZijkantHoogteCodeBepaler.Bepaal(Lade, 2) _ "_IN_" _ ..ZijkantLijmProgrammaBepaler.BepaalProgramma(Zijkant, ProductieSequentieItem))
 ]]></Implementation>
 </Method>
 
 <Method name="GeefRechtsBuiten">
-<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,KlantID:DOM.VKP.VanHoeckeKlantID=""</FormalSpec>
+<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim Zijkant As DOM.PM.Maatwerk.LadeInfo.Zijkant = Lade.GeefZijkanten().GetAt(2)
 	
 	Quit:$$$Not($IsObject(Zijkant)) ""
-	Quit ..GeefProgrammaVolledigeNaam(..ZijkantHoogteCodeBepaler.Bepaal(Lade, 2) _ "_OUT_" _ ..ZijkantLijmProgrammaBepaler.BepaalProgramma(Zijkant, KlantID))
+	Quit ..GeefProgrammaVolledigeNaam(..ZijkantHoogteCodeBepaler.Bepaal(Lade, 2) _ "_OUT_" _ ..ZijkantLijmProgrammaBepaler.BepaalProgramma(Zijkant, ProductieSequentieItem))
 ]]></Implementation>
 </Method>
 
Index: vhTest/Fake/APPS/Halux/PPS/impl/ZijkantLijmProgrammaBepaler.cls.xml
===================================================================
diff -u -r63871 -r63980
--- vhTest/Fake/APPS/Halux/PPS/impl/ZijkantLijmProgrammaBepaler.cls.xml	(.../ZijkantLijmProgrammaBepaler.cls.xml)	(revision 63871)
+++ vhTest/Fake/APPS/Halux/PPS/impl/ZijkantLijmProgrammaBepaler.cls.xml	(.../ZijkantLijmProgrammaBepaler.cls.xml)	(revision 63980)
@@ -4,7 +4,7 @@
 <Super>APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler</Super>
 
 <Method name="BepaalProgramma">
-<FormalSpec>Zijkant:DOM.PM.Maatwerk.LadeInfo.Zijkant,KlantID:DOM.VKP.VanHoeckeKlantID=""</FormalSpec>
+<FormalSpec>Zijkant:DOM.PM.Maatwerk.LadeInfo.Zijkant,ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem</FormalSpec>
 <ReturnType>APPS.Halux.Machine.Kantenband.enu.LijmProgramma</ReturnType>
 <Implementation><![CDATA[	quit ##class(APPS.Halux.Machine.Kantenband.enu.LijmProgramma).A()
 ]]></Implementation>
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/VerwerkingIDBepaler/BepaalVerwerkingID/Test.cls.xml
===================================================================
diff -u -r63871 -r63980
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/VerwerkingIDBepaler/BepaalVerwerkingID/Test.cls.xml	(.../Test.cls.xml)	(revision 63871)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/VerwerkingIDBepaler/BepaalVerwerkingID/Test.cls.xml	(.../Test.cls.xml)	(revision 63980)
@@ -80,10 +80,10 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: ZijkantLijmProgrammaBepaler opgeroepen =&gt; Werking zonder KlantId">
+<Method name="Test: ZijkantLijmProgrammaBepaler opgeroepen">
 <Implementation><![CDATA[
 	Set ZijkantLijmProgrammaBepalerMock = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler).%New()
-	Do ZijkantLijmProgrammaBepalerMock.VerwachtMethodCall("BepaalProgramma", ..ZijkantStub)
+	Do ZijkantLijmProgrammaBepalerMock.VerwachtMethodCall("BepaalProgramma", ..ZijkantStub, ..ProductieSequentieItem)
 	
 	Set ..ZijkantLijmProgrammaBepaler = ZijkantLijmProgrammaBepalerMock
 	
@@ -93,19 +93,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: ZijkantLijmProgrammaBepaler opgeroepen =&gt; Werking met KlantId ">
-<Implementation><![CDATA[
-	Set ZijkantLijmProgrammaBepalerMock = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler).%New()
-	Do ZijkantLijmProgrammaBepalerMock.VerwachtMethodCall("BepaalProgramma", ..ZijkantStub, $$$ElkeWaarde)
-	
-	Set ..ZijkantLijmProgrammaBepaler = ZijkantLijmProgrammaBepalerMock
-	
-	#dim Identifier As %String = ..BepaalVerwerkingID()
-	
-	Do ZijkantLijmProgrammaBepalerMock.Verifieer()
-]]></Implementation>
-</Method>
-
 <Method name="Test: Kleur converter opgeroepen voor binnenplaatje">
 <Implementation><![CDATA[
 	Set KleurConverterMock = ##class(vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.TAOR.KleurConverter).%New()