Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesDataProgrammaAanvuller.cls.xml
===================================================================
diff -u -r29059 -r63871
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesDataProgrammaAanvuller.cls.xml	(.../KamerFreesDataProgrammaAanvuller.cls.xml)	(revision 29059)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesDataProgrammaAanvuller.cls.xml	(.../KamerFreesDataProgrammaAanvuller.cls.xml)	(revision 63871)
@@ -20,19 +20,23 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..Lade = Lade
+	Set ..Lade = Lade
 	Set ..ProgrammaBepaler = $$$Implementation(ProgrammaBepaler, ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Zijkant.KamerFreesIsoProgrammaBepaler).%New())
-	quit $$$OK
+	
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="VulAan">
 <FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.ZijkantKamerFreesUitvoeringInfo,WerklijstItemMakerInput:APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput</FormalSpec>
 <Implementation><![CDATA[
-	set UitvoeringInfo.KamerFreesData.ProgramLeftInner = ..ProgrammaBepaler.GeefLinksBinnen(..Lade)
-	set UitvoeringInfo.KamerFreesData.ProgramLeftOuter = ..ProgrammaBepaler.GeefLinksBuiten(..Lade)
-	set UitvoeringInfo.KamerFreesData.ProgramRightInner = ..ProgrammaBepaler.GeefRechtsBinnen(..Lade)
-	set UitvoeringInfo.KamerFreesData.ProgramRightOuter = ..ProgrammaBepaler.GeefRechtsBuiten(..Lade)
+	#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)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Fake/APPS/Halux/PPS/impl/ZijkantLijmProgrammaBepaler.cls.xml
===================================================================
diff -u -r29059 -r63871
--- vhTest/Fake/APPS/Halux/PPS/impl/ZijkantLijmProgrammaBepaler.cls.xml	(.../ZijkantLijmProgrammaBepaler.cls.xml)	(revision 29059)
+++ vhTest/Fake/APPS/Halux/PPS/impl/ZijkantLijmProgrammaBepaler.cls.xml	(.../ZijkantLijmProgrammaBepaler.cls.xml)	(revision 63871)
@@ -4,7 +4,7 @@
 <Super>APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler</Super>
 
 <Method name="BepaalProgramma">
-<FormalSpec>Zijkant:DOM.PM.Maatwerk.LadeInfo.Zijkant</FormalSpec>
+<FormalSpec>Zijkant:DOM.PM.Maatwerk.LadeInfo.Zijkant,KlantID:DOM.VKP.VanHoeckeKlantID=""</FormalSpec>
 <ReturnType>APPS.Halux.Machine.Kantenband.enu.LijmProgramma</ReturnType>
 <Implementation><![CDATA[	quit ##class(APPS.Halux.Machine.Kantenband.enu.LijmProgramma).A()
 ]]></Implementation>
Index: vhTest/Mock/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/VerwerkingIDBepaler.cls.xml
===================================================================
diff -u -r30738 -r63871
--- vhTest/Mock/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/VerwerkingIDBepaler.cls.xml	(.../VerwerkingIDBepaler.cls.xml)	(revision 30738)
+++ vhTest/Mock/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/VerwerkingIDBepaler.cls.xml	(.../VerwerkingIDBepaler.cls.xml)	(revision 63871)
@@ -3,11 +3,17 @@
 <Class name="vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.TAOR.Zijkant.VerwerkingIDBepaler">
 <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.Halux.PPS.Activiteit.impl.TAOR.Zijkant.VerwerkingIDBepaler,Tools.Mock.MockClassBase</Super>
 
+<Method name="%OnNew">
+<FormalSpec>KleurConverter:APPS.Halux.PPS.Activiteit.impl.TAOR.common.KleurConverter,VolgnummerBepaler:APPS.Halux.PPS.TAORProductie.impl.VolgnummerBepaler,ZijkantLijmProgrammaBepaler:APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler,ZijkantHoogteConverter:APPS.Halux.PPS.Activiteit.impl.TAOR.Zijkant.ZijkantHoogteConverter</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="BepaalVerwerkingID">
 <FormalSpec>Zijkant:DOM.PM.Maatwerk.LadeInfo.Zijkant,ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem,VerwerkingOnderdeelNr:TECH.Integer,VerwerkingTeller:%Integer=1</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler.cls.xml
===================================================================
diff -u -r34439 -r63871
--- APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler.cls.xml	(.../ZijkantLijmProgrammaBepaler.cls.xml)	(revision 34439)
+++ APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler.cls.xml	(.../ZijkantLijmProgrammaBepaler.cls.xml)	(revision 63871)
@@ -23,11 +23,35 @@
 <Private>1</Private>
 </Property>
 
+<Property name="KlantInstellingenService">
+<Type>APPS.common.KlantInstellingenService</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KlantID">
+<Type>DOM.VKP.VanHoeckeKlantID</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>KlantInstellingenService:APPS.common.KlantInstellingenService=""</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())
+	
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="BepaalProgramma">
-<FormalSpec>Zijkant:DOM.PM.Maatwerk.LadeInfo.Zijkant</FormalSpec>
+<FormalSpec>Zijkant:DOM.PM.Maatwerk.LadeInfo.Zijkant,KlantID:DOM.VKP.VanHoeckeKlantID=""</FormalSpec>
 <ReturnType>APPS.Halux.Machine.Kantenband.enu.LijmProgramma</ReturnType>
 <Implementation><![CDATA[
 	Set ..Zijkant = Zijkant
+	Set ..KlantID = KlantID
 	Set ..ZijkantLijmProgramma = ..LijmProgramma.X
 	
 	Do ..Verwerk(Zijkant.GeefConcept())
@@ -51,9 +75,9 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	If (..Zijkant.GeefZijkantRol() = ..ZijkantRol.Links) {
-		Set ..ZijkantLijmProgramma = ..LijmProgramma.L
+		Set ..ZijkantLijmProgramma = $$$If(..KlantInstellingenService.MagKlantTAORFrontHoogteVerstellingBestellen(..KlantID), ..LijmProgramma.X, ..LijmProgramma.L)
 	} Else {
-		Set ..ZijkantLijmProgramma = ..LijmProgramma.R
+		Set ..ZijkantLijmProgramma = $$$If(..KlantInstellingenService.MagKlantTAORFrontHoogteVerstellingBestellen(..KlantID), ..LijmProgramma.Y, ..LijmProgramma.R)
 	}
 ]]></Implementation>
 </Method>
@@ -62,9 +86,9 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	If (..Zijkant.GeefZijkantRol() = ..ZijkantRol.Links) {
-		Set ..ZijkantLijmProgramma = ..LijmProgramma.C
+		Set ..ZijkantLijmProgramma = $$$If(..KlantInstellingenService.MagKlantTAORFrontHoogteVerstellingBestellen(..KlantID), ..LijmProgramma.G, ..LijmProgramma.C)
 	} Else {
-		Set ..ZijkantLijmProgramma = ..LijmProgramma.D
+		Set ..ZijkantLijmProgramma = $$$If(..KlantInstellingenService.MagKlantTAORFrontHoogteVerstellingBestellen(..KlantID), ..LijmProgramma.H, ..LijmProgramma.D)
 	}
 ]]></Implementation>
 </Method>
Index: vhTest/Mock/APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler.cls.xml
===================================================================
diff -u -r34373 -r63871
--- vhTest/Mock/APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler.cls.xml	(.../ZijkantLijmProgrammaBepaler.cls.xml)	(revision 34373)
+++ vhTest/Mock/APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler.cls.xml	(.../ZijkantLijmProgrammaBepaler.cls.xml)	(revision 63871)
@@ -3,15 +3,21 @@
 <Class name="vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler">
 <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.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler,Tools.Mock.MockClassBase</Super>
 
+<Method name="%OnNew">
+<FormalSpec>KlantInstellingenService:APPS.common.KlantInstellingenService=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="BepaalProgramma">
-<FormalSpec>Zijkant:DOM.PM.Maatwerk.LadeInfo.Zijkant</FormalSpec>
+<FormalSpec>Zijkant:DOM.PM.Maatwerk.LadeInfo.Zijkant,KlantID:DOM.VKP.VanHoeckeKlantID=""</FormalSpec>
 <ReturnType>APPS.Halux.Machine.Kantenband.enu.LijmProgramma</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("BepaalProgramma",Zijkant)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("BepaalProgramma",Zijkant,KlantID)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Mock/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesIsoProgrammaBepaler.cls.xml
===================================================================
diff -u -r30385 -r63871
--- vhTest/Mock/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesIsoProgrammaBepaler.cls.xml	(.../KamerFreesIsoProgrammaBepaler.cls.xml)	(revision 30385)
+++ vhTest/Mock/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesIsoProgrammaBepaler.cls.xml	(.../KamerFreesIsoProgrammaBepaler.cls.xml)	(revision 63871)
@@ -3,36 +3,42 @@
 <Class name="vhTest.Mock.APPS.Halux.PPS.Activiteit.impl.TAOR.Zijkant.KamerFreesIsoProgrammaBepaler">
 <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.Halux.PPS.Activiteit.impl.TAOR.Zijkant.KamerFreesIsoProgrammaBepaler,Tools.Mock.MockClassBase</Super>
 
+<Method name="%OnNew">
+<FormalSpec>ZijkantLijmProgrammaBepaler:APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler,ZijkantHoogteCodeBepaler:APPS.Halux.PPS.TAORProductie.impl.ZijkantHoogteCodeBepaler</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="GeefLinksBinnen">
-<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
+<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,KlantID:DOM.VKP.VanHoeckeKlantID=""</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefLinksBinnen",Lade)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefLinksBinnen",Lade,KlantID)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefLinksBuiten">
-<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
+<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,KlantID:DOM.VKP.VanHoeckeKlantID=""</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefLinksBuiten",Lade)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefLinksBuiten",Lade,KlantID)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefRechtsBinnen">
-<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
+<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,KlantID:DOM.VKP.VanHoeckeKlantID=""</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefRechtsBinnen",Lade)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefRechtsBinnen",Lade,KlantID)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefRechtsBuiten">
-<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
+<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,KlantID:DOM.VKP.VanHoeckeKlantID=""</FormalSpec>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefRechtsBuiten",Lade)
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefRechtsBuiten",Lade,KlantID)
 ]]></Implementation>
 </Method>
 </Class>
Index: vhTest/Fake/APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler.cls.xml
===================================================================
diff -u -r29059 -r63871
--- vhTest/Fake/APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler.cls.xml	(.../ZijkantLijmProgrammaBepaler.cls.xml)	(revision 29059)
+++ vhTest/Fake/APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler.cls.xml	(.../ZijkantLijmProgrammaBepaler.cls.xml)	(revision 63871)
@@ -8,7 +8,7 @@
 <Super>APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler</Super>
 
 <Method name="BepaalProgramma">
-<FormalSpec>Zijkant:DOM.PM.Maatwerk.LadeInfo.Zijkant</FormalSpec>
+<FormalSpec>Zijkant:DOM.PM.Maatwerk.LadeInfo.Zijkant,KlantID:DOM.VKP.VanHoeckeKlantID=""</FormalSpec>
 <ReturnType>APPS.Halux.Machine.Kantenband.enu.LijmProgramma</ReturnType>
 <Implementation><![CDATA[	Quit ""
 ]]></Implementation>
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/VerwerkingIDBepaler/BepaalVerwerkingID/Test.cls.xml
===================================================================
diff -u -r63862 -r63871
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/VerwerkingIDBepaler/BepaalVerwerkingID/Test.cls.xml	(.../Test.cls.xml)	(revision 63862)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/VerwerkingIDBepaler/BepaalVerwerkingID/Test.cls.xml	(.../Test.cls.xml)	(revision 63871)
@@ -80,9 +80,9 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: ZijkantLijmProgrammaBepaler opgeroepen">
+<Method name="Test: ZijkantLijmProgrammaBepaler opgeroepen =&gt; Werking zonder KlantId">
 <Implementation><![CDATA[
-	Set ZijkantLijmProgrammaBepalerMock = ##class(vhTest.Mock.APPS.Halux.PPS.impl.ZijkantLijmProgrammaBepaler).%New()
+	Set ZijkantLijmProgrammaBepalerMock = ##class(vhTest.Mock.APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler).%New()
 	Do ZijkantLijmProgrammaBepalerMock.VerwachtMethodCall("BepaalProgramma", ..ZijkantStub)
 	
 	Set ..ZijkantLijmProgrammaBepaler = ZijkantLijmProgrammaBepalerMock
@@ -93,6 +93,19 @@
 ]]></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()
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/VerwerkingIDBepaler.cls.xml
===================================================================
diff -u -r30738 -r63871
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/VerwerkingIDBepaler.cls.xml	(.../VerwerkingIDBepaler.cls.xml)	(revision 30738)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/VerwerkingIDBepaler.cls.xml	(.../VerwerkingIDBepaler.cls.xml)	(revision 63871)
@@ -40,10 +40,11 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..KleurConverter = $$$Implementation(KleurConverter,##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.KleurConverter).%New())
-	set ..VolgnummerBepaler = $$$Implementation(VolgnummerBepaler,##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefTAORActiviteitService().GeefVolgnummerBepaler())
-	set ..ZijkantLijmProgrammaBepaler = $$$Implementation(ZijkantLijmProgrammaBepaler,##class(APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler).%New()) 
-	set ..ZijkantHoogteConverter = $$$Implementation(ZijkantHoogteConverter, ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Zijkant.ZijkantHoogteConverter).%New())
+	Set ..KleurConverter = $$$Implementation(KleurConverter,##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.KleurConverter).%New())
+	Set ..VolgnummerBepaler = $$$Implementation(VolgnummerBepaler,##class(APPS.ApplicatieContext).Instance().GeefProductieAPI().GeefTAORActiviteitService().GeefVolgnummerBepaler())
+	Set ..ZijkantLijmProgrammaBepaler = $$$Implementation(ZijkantLijmProgrammaBepaler,##class(APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler).%New()) 
+	Set ..ZijkantHoogteConverter = $$$Implementation(ZijkantHoogteConverter, ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Zijkant.ZijkantHoogteConverter).%New())
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -54,46 +55,49 @@
 <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()_..GeefVolgnummer(VerwerkingOnderdeelNr,VerwerkingTeller)
-	quit ..GeefGeuniformiseerdeVerwerkingID(VerwerkingID)
+	Set VerwerkingID = ..GeefPrefix() _ ..GeefZijkantHoogte() _ ..GeefKleurCode(VerwerkingOnderdeelNr) _ ..GeefLadeDiepte() _ ..GeefLijmProgrammaCode(KlantID) _ ..GeefVolgnummer(VerwerkingOnderdeelNr,VerwerkingTeller)
+	 
+	Quit ..GeefGeuniformiseerdeVerwerkingID(VerwerkingID)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefPrefix">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit "Z"
+<Implementation><![CDATA[	Quit "Z"
 ]]></Implementation>
 </Method>
 
 <Method name="GeefZijkantHoogte">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..ZijkantHoogteConverter.Converteer(..Zijkant.GeefHoogte())
+<Implementation><![CDATA[	Quit ..ZijkantHoogteConverter.Converteer(..Zijkant.GeefHoogte())
 ]]></Implementation>
 </Method>
 
 <Method name="GeefKleurCode">
 <FormalSpec>VerwerkingOnderdeelNr:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..KleurConverter.Converteer(..Zijkant.GeefKleuren().GetAt(VerwerkingOnderdeelNr))
+<Implementation><![CDATA[	Quit ..KleurConverter.Converteer(..Zijkant.GeefKleuren().GetAt(VerwerkingOnderdeelNr))
 ]]></Implementation>
 </Method>
 
 <Method name="GeefLadeDiepte">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit $E(..Zijkant.GeefLade().GeefDiepteInMM(),1,2)
+<Implementation><![CDATA[	Quit $Extract(..Zijkant.GeefLade().GeefDiepteInMM(), 1, 2)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefLijmProgrammaCode">
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit ..ZijkantLijmProgrammaBepaler.BepaalProgramma(..Zijkant)
+<Implementation><![CDATA[	Quit ..ZijkantLijmProgrammaBepaler.BepaalProgramma(..Zijkant, KlantID)
 ]]></Implementation>
 </Method>
 
@@ -102,8 +106,8 @@
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim ItemID As %String = VerwerkingOnderdeelNr _"."_( $select(..Zijkant.GeefZijkantRol()=##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Links():0,1:1) )
-	quit ..VolgnummerBepaler.BepaalVolgnummer(..ProductieSequentieItem,ItemID,VerwerkingTeller)
+	#dim ItemID As %String = VerwerkingOnderdeelNr _ "." _ ( $Select(..Zijkant.GeefZijkantRol() = ##class(DOM.PM.Maatwerk.Lade.enu.ZijkantRol).Links():0,1:1) )
+	Quit ..VolgnummerBepaler.BepaalVolgnummer(..ProductieSequentieItem, ItemID, VerwerkingTeller)
 ]]></Implementation>
 </Method>
 </Class>
FishEye: Tag 63871 refers to a dead (removed) revision in file `vhTest/Mock/APPS/Halux/PPS/impl/ZijkantLijmProgrammaBepaler.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhUnitTest/APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler/Test.cls.xml
===================================================================
diff -u -r34439 -r63871
--- vhUnitTest/APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 34439)
+++ vhUnitTest/APPS/Halux/PPS/TAORProductie/impl/ZijkantLijmProgrammaBepaler/Test.cls.xml	(.../Test.cls.xml)	(revision 63871)
@@ -13,24 +13,57 @@
 <Private>1</Private>
 </Property>
 
-<Method name="Test">
+<Method name="Test: Oorspronkelijke werking zonder KlantId">
 <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,,, ..LijmProgramma.A)
+	Do ..AssertLijmProgramma(..Enum.Concept.Baliko, ..ZijkantRol.Rechts,,, ..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,,, ..LijmProgramma.L)
+	Do ..AssertLijmProgramma(..Enum.Concept.Valinge, ..ZijkantRol.Rechts,,, ..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,,, ..LijmProgramma.C)
+	Do ..AssertLijmProgramma(..Enum.Concept.ValingeBaliko, ..ZijkantRol.Rechts,,, ..LijmProgramma.D)
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Werking met irrelevant KlantId in functie van MagKlantTAORFrontHoogteVerstellingBestellen">
+<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.Valinge, ..ZijkantRol.Links, $$$ElkeWaarde, $$$False, ..LijmProgramma.L)
+	Do ..AssertLijmProgramma(..Enum.Concept.Valinge, ..ZijkantRol.Rechts, $$$ElkeWaarde, $$$False, ..LijmProgramma.R)
+	
+	Do ..AssertLijmProgramma(..Enum.Concept.ValingeBaliko, ..ZijkantRol.Links, $$$ElkeWaarde, $$$False, ..LijmProgramma.C)
+	Do ..AssertLijmProgramma(..Enum.Concept.ValingeBaliko, ..ZijkantRol.Rechts, $$$ElkeWaarde, $$$False, ..LijmProgramma.D)
+]]></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,VerwachtLijmProgramma:APPS.Halux.Machine.Kantenband.enu.LijmProgramma</FormalSpec>
+<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>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim ZijkantLijmProgrammaBepaler As APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler = ##class(APPS.Halux.PPS.TAORProductie.impl.ZijkantLijmProgrammaBepaler).%New()
+	#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 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()
 	
 	Do ZijkantStub.IndienMethodCall("GeefConcept").DanReturn(Concept)
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesIsoProgrammaBepaler.cls.xml
===================================================================
diff -u -r34331 -r63871
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesIsoProgrammaBepaler.cls.xml	(.../KamerFreesIsoProgrammaBepaler.cls.xml)	(revision 34331)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Zijkant/KamerFreesIsoProgrammaBepaler.cls.xml	(.../KamerFreesIsoProgrammaBepaler.cls.xml)	(revision 63871)
@@ -28,50 +28,54 @@
 </Method>
 
 <Method name="GeefLinksBinnen">
-<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
+<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,KlantID:DOM.VKP.VanHoeckeKlantID=""</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))
+	
+	Quit:$$$Not($IsObject(Zijkant)) ""
+	Quit ..GeefProgrammaVolledigeNaam(..ZijkantHoogteCodeBepaler.Bepaal(Lade, 1) _ "_OUT_" _ ..ZijkantLijmProgrammaBepaler.BepaalProgramma(Zijkant, KlantID))
 ]]></Implementation>
 </Method>
 
 <Method name="GeefLinksBuiten">
-<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
+<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,KlantID:DOM.VKP.VanHoeckeKlantID=""</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))
+	
+	Quit:$$$Not($IsObject(Zijkant)) ""
+	Quit ..GeefProgrammaVolledigeNaam(..ZijkantHoogteCodeBepaler.Bepaal(Lade, 1) _ "_IN_" _ ..ZijkantLijmProgrammaBepaler.BepaalProgramma(Zijkant, KlantID))
 ]]></Implementation>
 </Method>
 
 <Method name="GeefRechtsBinnen">
-<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
+<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,KlantID:DOM.VKP.VanHoeckeKlantID=""</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))
+	
+	Quit:$$$Not($IsObject(Zijkant)) ""
+	Quit ..GeefProgrammaVolledigeNaam(..ZijkantHoogteCodeBepaler.Bepaal(Lade, 2) _ "_IN_" _ ..ZijkantLijmProgrammaBepaler.BepaalProgramma(Zijkant, KlantID))
 ]]></Implementation>
 </Method>
 
 <Method name="GeefRechtsBuiten">
-<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade</FormalSpec>
+<FormalSpec>Lade:DOM.PM.Maatwerk.LadeInfo.Lade,KlantID:DOM.VKP.VanHoeckeKlantID=""</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))
+	
+	Quit:$$$Not($IsObject(Zijkant)) ""
+	Quit ..GeefProgrammaVolledigeNaam(..ZijkantHoogteCodeBepaler.Bepaal(Lade, 2) _ "_OUT_" _ ..ZijkantLijmProgrammaBepaler.BepaalProgramma(Zijkant, KlantID))
 ]]></Implementation>
 </Method>
 
 <Method name="GeefProgrammaVolledigeNaam">
 <FormalSpec>ProgrammaNaam:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit "C:\TWINcat\CNC\"_ProgrammaNaam_".nc"
+<Implementation><![CDATA[	Quit "C:\TWINcat\CNC\"_ProgrammaNaam_".nc"
 ]]></Implementation>
 </Method>
 </Class>