Index: APPS/Halux/PPS/Activiteit/impl/TAOR/common/enu/FreesProgramma/AutoComplete.cls.xml
===================================================================
diff -u -r65383 -r71183
--- APPS/Halux/PPS/Activiteit/impl/TAOR/common/enu/FreesProgramma/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 65383)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/common/enu/FreesProgramma/AutoComplete.cls.xml	(.../AutoComplete.cls.xml)	(revision 71183)
@@ -23,6 +23,13 @@
 <ReadOnly>1</ReadOnly>
 </Property>
 
+<Property name="FrontSpecialWorkshop">
+<Type>%String</Type>
+<InitialExpression>"S"</InitialExpression>
+<Transient>1</Transient>
+<ReadOnly>1</ReadOnly>
+</Property>
+
 <Property name="GeenBewerking">
 <Type>%String</Type>
 <InitialExpression>"X"</InitialExpression>
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/FreesProgrammaBepaler/BepaalFreesProgramma/Test.cls.xml
===================================================================
diff -u -r65841 -r71183
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/FreesProgrammaBepaler/BepaalFreesProgramma/Test.cls.xml	(.../Test.cls.xml)	(revision 65841)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/FreesProgrammaBepaler/BepaalFreesProgramma/Test.cls.xml	(.../Test.cls.xml)	(revision 71183)
@@ -30,6 +30,7 @@
 
 <Method name="Test: RugBreedte Kleiner dan Minimumbreedte Vector RugFrees en Valinge concept -&gt; FreesProgramma: Valigne">
 <Implementation><![CDATA[
+	Do ..Rug.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Rug())
 	Do ..Rug.IndienMethodCall("GeefLade").DanReturn(..Lade)
 	Do ..Rug.IndienMethodCall("GeefConcept").DanReturn(##class(DOM.PM.enu.TAORConcept).Valinge())
 	Do ..Rug.IndienMethodCall("GeefBreedteInMM").DanReturn(##class(APPS.Halux.Machine.Frees.Vector).MinimumBreedte()-100)
@@ -41,6 +42,7 @@
 
 <Method name="Test: RugBreedte Groter dan Minimumbreedte Vector RugFrees en Valinge concept -&gt; FreesProgramma: Valigne">
 <Implementation><![CDATA[
+	Do ..Rug.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Rug())
 	Do ..Rug.IndienMethodCall("GeefLade").DanReturn(..Lade)
 	Do ..Rug.IndienMethodCall("GeefConcept").DanReturn(##class(DOM.PM.enu.TAORConcept).Valinge())
 	Do ..Rug.IndienMethodCall("GeefBreedteInMM").DanReturn(##class(APPS.Halux.Machine.Frees.Vector).MinimumBreedte()+100)
@@ -52,6 +54,7 @@
 
 <Method name="Test: RugBreedte Kleiner dan Minimumbreedte Vector RugFrees en Baliko concept -&gt; FreesProgramma: Baliko">
 <Implementation><![CDATA[
+	Do ..Rug.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Rug())
 	Do ..Rug.IndienMethodCall("GeefLade").DanReturn(..Lade)
 	Do ..Rug.IndienMethodCall("GeefConcept").DanReturn(##class(DOM.PM.enu.TAORConcept).Baliko())
 	Do ..Rug.IndienMethodCall("GeefBreedteInMM").DanReturn(##class(APPS.Halux.Machine.Frees.Vector).MinimumBreedte()-100)
@@ -63,6 +66,7 @@
 
 <Method name="Test: RugBreedte Groter dan Minimumbreedte Vector RugFrees en Baliko concept -&gt; FreesProgramma: Baliko">
 <Implementation><![CDATA[
+	Do ..Rug.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Rug())
 	Do ..Rug.IndienMethodCall("GeefLade").DanReturn(..Lade)
 	Do ..Rug.IndienMethodCall("GeefConcept").DanReturn(##class(DOM.PM.enu.TAORConcept).Baliko())
 	Do ..Rug.IndienMethodCall("GeefBreedteInMM").DanReturn(##class(APPS.Halux.Machine.Frees.Vector).MinimumBreedte()+100)
@@ -74,6 +78,7 @@
 
 <Method name="Test: Bij ProductieWijze FrontLBX -&gt; default FreesProgramma: FrontLBX">
 <Implementation><![CDATA[
+	Do ..Front.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front())
 	Do ..Front.IndienMethodCall("GeefLade").DanReturn(..Lade)
 	Do ..Front.IndienMethodCall("GeefKleur").DanReturn(##class(DOM.PM.enu.TAORLadeKleur).NatuurEikenhout())
 	Do ..Lade.IndienMethodCall("GeefProductieWijze").DanReturn(##class(DOM.PM.enu.TAORProductieWijze).FrontLBX())
@@ -82,6 +87,17 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Bij ProductieWijze FrontSpecialWorkshop -&gt; default FreesProgramma: FrontSpecialWorkshop">
+<Implementation><![CDATA[
+	Do ..Front.IndienMethodCall("GeefRol").DanReturn(##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front())
+	Do ..Front.IndienMethodCall("GeefLade").DanReturn(..Lade)
+	Do ..Front.IndienMethodCall("GeefKleur").DanReturn(##class(DOM.PM.enu.TAORLadeKleur).WalnutMediumBrown())
+	Do ..Lade.IndienMethodCall("GeefProductieWijze").DanReturn(##class(DOM.PM.enu.TAORProductieWijze).Front())
+	
+	Do ..AssertFreesProgramma(..Front, ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.FreesProgramma).FrontSpecialWorkshop())
+]]></Implementation>
+</Method>
+
 <Method name="AssertFreesProgramma">
 <FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,VerwachteFreesProgramma:APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.FreesProgramma</FormalSpec>
 <Private>1</Private>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Front/VerwerkingIDBepaler.cls.xml
===================================================================
diff -u -r68124 -r71183
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Front/VerwerkingIDBepaler.cls.xml	(.../VerwerkingIDBepaler.cls.xml)	(revision 68124)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Front/VerwerkingIDBepaler.cls.xml	(.../VerwerkingIDBepaler.cls.xml)	(revision 71183)
@@ -48,7 +48,7 @@
 <Implementation><![CDATA[
 	Set ..Front = Front
 	Set ..ProductieSequentieItem = ProductieSequentieItem
-	#dim VerwerkingID As TECH.String = ..GeefPrefix()
+	#dim VerwerkingID As TECH.String = "F"
 	Set VerwerkingID = VerwerkingID_..GeefLadeHoogte()
 	Set VerwerkingID = VerwerkingID_..GeefFreesProgramma()
 	Set VerwerkingID = VerwerkingID_..GeefBreedte()
@@ -62,16 +62,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefPrefix">
-<Private>1</Private>
-<ReturnType>TECH.String</ReturnType>
-<Implementation><![CDATA[
-	#dim IsSpecialWorkshopAfhandeling As %Boolean = (..Front.GeefKleur() = ##class(DOM.PM.enu.TAORLadeKleur).WalnutMediumBrown())
-	
-	Quit $$$If(IsSpecialWorkshopAfhandeling, "S", "F")
-]]></Implementation>
-</Method>
-
 <Method name="GeefUitlijning">
 <Private>1</Private>
 <ReturnType>TECH.String</ReturnType>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/common/FreesProgrammaBepaler.cls.xml
===================================================================
diff -u -r65841 -r71183
--- APPS/Halux/PPS/Activiteit/impl/TAOR/common/FreesProgrammaBepaler.cls.xml	(.../FreesProgrammaBepaler.cls.xml)	(revision 65841)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/common/FreesProgrammaBepaler.cls.xml	(.../FreesProgrammaBepaler.cls.xml)	(revision 71183)
@@ -21,6 +21,8 @@
 	
 	If (..LadeOnderdeel.GeefLade().GeefProductieWijze() = ##class(DOM.PM.enu.TAORProductieWijze).FrontLBX()) {
 		Do ..VerwerkFrontLBX()
+	} ElseIf (..IsFrontVoorSpecialWorkshop()) {
+		Do ..VerwerkFrontSpecialWorkshop()
 	} Else {
 		Do ..Verwerk(LadeOnderdeel.GeefConcept())
 	}
@@ -47,11 +49,29 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkFrontSpecialWorkshop">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..FreesProgramma = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.FreesProgramma).FrontSpecialWorkshop()
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkGeenBewerking">
 <Private>1</Private>
 <Implementation><![CDATA[	Set ..FreesProgramma = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.FreesProgramma).GeenBewerking()
 ]]></Implementation>
 </Method>
+
+<Method name="IsFrontVoorSpecialWorkshop">
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	If (..LadeOnderdeel.GeefRol() = ##class(DOM.PM.Maatwerk.LadeInfo.enu.LadeOnderdeel).Front()) {
+		Quit (..LadeOnderdeel.GeefKleur() = ##class(DOM.PM.enu.TAORLadeKleur).WalnutMediumBrown())
+	} Else {
+		Quit $$$False
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/FrontLBX/VerwerkingIDBepaler/BepaalVerwerkingID/Test.cls.xml
===================================================================
diff -u -r65437 -r71183
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/FrontLBX/VerwerkingIDBepaler/BepaalVerwerkingID/Test.cls.xml	(.../Test.cls.xml)	(revision 65437)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/FrontLBX/VerwerkingIDBepaler/BepaalVerwerkingID/Test.cls.xml	(.../Test.cls.xml)	(revision 71183)
@@ -3,17 +3,12 @@
 <Class name="vhUnitTest.APPS.Halux.PPS.Activiteit.impl.TAOR.FrontLBX.VerwerkingIDBepaler.BepaalVerwerkingID.Test">
 <Super>vhUnitTest.TestCase</Super>
 
-<Parameter name="FreesProgramma">
-<Type>%String</Type>
-<Default>Y</Default>
-</Parameter>
-
 <Property name="ProductieSequentieItem">
 <Type>APPS.Halux.common.ProductieSequentieItem</Type>
 <Private>1</Private>
 </Property>
 
-<Property name="FrontLBX">
+<Property name="Front">
 <Type>vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Front</Type>
 <Private>1</Private>
 </Property>
@@ -47,11 +42,12 @@
 
 <Method name="Test: 3e karakter wordt bepaald door de ProgrammaBepaler">
 <Implementation><![CDATA[
+	#dim FreesProgramma = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.FreesProgramma).FrontLBX()
 	Do ..InitFrontLBX()
 	
-	Do ..ProgrammaBepaler.VerwachtMethodCall("BepaalFreesProgramma", ..FrontLBX).DanReturn(..#FreesProgramma)
+	Do ..ProgrammaBepaler.VerwachtMethodCall("BepaalFreesProgramma", ..Front).DanReturn(FreesProgramma)
 	
-	Do $$$AssertEquals($Extract(..BepaalVerwerkingID(), 3), ..#FreesProgramma)
+	Do $$$AssertEquals($Extract(..BepaalVerwerkingID(), 3), FreesProgramma)
 	Do ..ProgrammaBepaler.Verifieer()
 ]]></Implementation>
 </Method>
@@ -62,11 +58,11 @@
 	Set Lade = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade).%New()
 	Do Lade.IndienMethodCall("GeefHoogte").DanReturn("F")
 	
-	Set ..FrontLBX = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Front).%New()
-	Do ..FrontLBX.IndienMethodCall("GeefLade").DanReturn(Lade)
-	Do ..FrontLBX.IndienMethodCall("GeefBreedteInMM").DanReturn("250")
-	Do ..FrontLBX.IndienMethodCall("GeefKleur").DanReturn(##class(DOM.PM.enu.TAORLadeKleur).NatuurEikenhout())
-	Do ..FrontLBX.IndienMethodCall("GeefAantalBodemOndersteuningen").DanReturn($$$DummyInteger).ExactAantalKeer(1)
+	Set ..Front = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Front).%New()
+	Do ..Front.IndienMethodCall("GeefLade").DanReturn(Lade)
+	Do ..Front.IndienMethodCall("GeefBreedteInMM").DanReturn("250")
+	Do ..Front.IndienMethodCall("GeefKleur").DanReturn(##class(DOM.PM.enu.TAORLadeKleur).NatuurEikenhout())
+	Do ..Front.IndienMethodCall("GeefAantalBodemOndersteuningen").DanReturn($$$DummyInteger).ExactAantalKeer(1)
 ]]></Implementation>
 </Method>
 
@@ -75,7 +71,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set VerwerkingIDBepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.Front.VerwerkingIDBepaler).%New(..ProgrammaBepaler, ..KleurConverter , ..VolgnummerBepaler)
-	Quit VerwerkingIDBepaler.BepaalVerwerkingID(..FrontLBX, ..ProductieSequentieItem)
+	Quit VerwerkingIDBepaler.BepaalVerwerkingID(..Front, ..ProductieSequentieItem)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/common/enu/FreesProgramma.cls.xml
===================================================================
diff -u -r65383 -r71183
--- APPS/Halux/PPS/Activiteit/impl/TAOR/common/enu/FreesProgramma.cls.xml	(.../FreesProgramma.cls.xml)	(revision 65383)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/common/enu/FreesProgramma.cls.xml	(.../FreesProgramma.cls.xml)	(revision 71183)
@@ -38,6 +38,13 @@
 <Implementation><![CDATA[	Quit "Y"
 ]]></Implementation>
 </Method>
+
+<Method name="FrontSpecialWorkshop">
+<ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.FreesProgramma</ReturnType>
+<Implementation><![CDATA[	Quit "S"
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/common/enu/FreesProgramma/Verwerker.cls.xml
===================================================================
diff -u -r65383 -r71183
--- APPS/Halux/PPS/Activiteit/impl/TAOR/common/enu/FreesProgramma/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 65383)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/common/enu/FreesProgramma/Verwerker.cls.xml	(.../Verwerker.cls.xml)	(revision 71183)
@@ -16,6 +16,8 @@
 		Do ..VerwerkBaliko()
 	} ElseIf FreesProgramma = "Y" {
 		Do ..VerwerkFrontLBX()
+	} ElseIf FreesProgramma = "S" {
+		Do ..VerwerkFrontSpecialWorkshop()
 	} ElseIf FreesProgramma = "X" {
 		Do ..VerwerkGeenBewerking()
 	} ElseIf FreesProgramma = "V" {
@@ -39,6 +41,12 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 
+<Method name="VerwerkFrontSpecialWorkshop">
+<Abstract>1</Abstract>
+<Private>1</Private>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
 <Method name="VerwerkGeenBewerking">
 <Abstract>1</Abstract>
 <Private>1</Private>