Index: vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/FreesProgrammaBepaler/BepaalFreesProgramma/Test.cls.xml
===================================================================
diff -u -r63654 -r65432
--- vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/FreesProgrammaBepaler/BepaalFreesProgramma/Test.cls.xml	(.../Test.cls.xml)	(revision 63654)
+++ vhUnitTest/APPS/Halux/PPS/Activiteit/impl/TAOR/common/FreesProgrammaBepaler/BepaalFreesProgramma/Test.cls.xml	(.../Test.cls.xml)	(revision 65432)
@@ -8,6 +8,11 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Front">
+<Type>DOM.PM.Maatwerk.LadeInfo.Front</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="Lade">
 <Type>DOM.PM.Maatwerk.LadeInfo.Lade</Type>
 <Private>1</Private>
@@ -18,6 +23,7 @@
 <Implementation><![CDATA[
 	Do ##super(aTestName)
 	Set ..Rug = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Rug).%New()
+	Set ..Front = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Front).%New()
 	Set ..Lade = ##class(vhTest.Mock.DOM.PM.Maatwerk.LadeInfo.Lade).%New()
 ]]></Implementation>
 </Method>
@@ -28,7 +34,8 @@
 	Do ..Rug.IndienMethodCall("GeefConcept").DanReturn(##class(DOM.PM.enu.TAORConcept).Valinge())
 	Do ..Rug.IndienMethodCall("GeefBreedteInMM").DanReturn(##class(APPS.Halux.Machine.Frees.Vector).MinimumBreedte()-100)
 	Do ..Lade.IndienMethodCall("GeefProductieWijze").DanReturn("")
-	Do ..AssertFreesProgramma(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.FreesProgramma).Valinge())
+	
+	Do ..AssertFreesProgramma(..Rug, ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.FreesProgramma).Valinge())
 ]]></Implementation>
 </Method>
 
@@ -38,7 +45,8 @@
 	Do ..Rug.IndienMethodCall("GeefConcept").DanReturn(##class(DOM.PM.enu.TAORConcept).Valinge())
 	Do ..Rug.IndienMethodCall("GeefBreedteInMM").DanReturn(##class(APPS.Halux.Machine.Frees.Vector).MinimumBreedte()+100)
 	Do ..Lade.IndienMethodCall("GeefProductieWijze").DanReturn("")
-	Do ..AssertFreesProgramma(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.FreesProgramma).Valinge())
+	
+	Do ..AssertFreesProgramma(..Rug, ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.FreesProgramma).Valinge())
 ]]></Implementation>
 </Method>
 
@@ -48,7 +56,8 @@
 	Do ..Rug.IndienMethodCall("GeefConcept").DanReturn(##class(DOM.PM.enu.TAORConcept).Baliko())
 	Do ..Rug.IndienMethodCall("GeefBreedteInMM").DanReturn(##class(APPS.Halux.Machine.Frees.Vector).MinimumBreedte()-100)
 	Do ..Lade.IndienMethodCall("GeefProductieWijze").DanReturn("")
-	Do ..AssertFreesProgramma(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.FreesProgramma).Baliko())
+	
+	Do ..AssertFreesProgramma(..Rug, ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.FreesProgramma).Baliko())
 ]]></Implementation>
 </Method>
 
@@ -58,17 +67,39 @@
 	Do ..Rug.IndienMethodCall("GeefConcept").DanReturn(##class(DOM.PM.enu.TAORConcept).Baliko())
 	Do ..Rug.IndienMethodCall("GeefBreedteInMM").DanReturn(##class(APPS.Halux.Machine.Frees.Vector).MinimumBreedte()+100)
 	Do ..Lade.IndienMethodCall("GeefProductieWijze").DanReturn("")
-	Do ..AssertFreesProgramma(##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.FreesProgramma).Baliko())
+	
+	Do ..AssertFreesProgramma(..Rug, ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.FreesProgramma).Baliko())
 ]]></Implementation>
 </Method>
 
+<Method name="Test: Bij ProductieWijze FrontLBX -&gt; default FreesProgramma: FrontLBX">
+<Implementation><![CDATA[
+	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())
+	
+	Do ..AssertFreesProgramma(..Front, ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.FreesProgramma).FrontLBX())
+]]></Implementation>
+</Method>
+
+<Method name="Test: Bij ProductieWijze FrontLBX als LadeKleur OudZwart is -&gt; FreesProgramma: GeenBewerking">
+<Implementation><![CDATA[
+	Do ..Front.IndienMethodCall("GeefLade").DanReturn(..Lade)
+	Do ..Front.IndienMethodCall("GeefKleur").DanReturn(##class(DOM.PM.enu.TAORLadeKleur).OudZwart())
+	Do ..Lade.IndienMethodCall("GeefProductieWijze").DanReturn(##class(DOM.PM.enu.TAORProductieWijze).FrontLBX())
+	
+	Do ..AssertFreesProgramma(..Front, ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.FreesProgramma).GeenBewerking())
+]]></Implementation>
+</Method>
+
 <Method name="AssertFreesProgramma">
-<FormalSpec>VerwachteFreesProgramma:APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.FreesProgramma</FormalSpec>
+<FormalSpec>LadeOnderdeel:DOM.PM.Maatwerk.LadeInfo.LadeOnderdeel,VerwachteFreesProgramma:APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.FreesProgramma</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
 	Set Bepaler = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.FreesProgrammaBepaler).%New()
-	#dim FreesProgramma As APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.FreesProgramma = Bepaler.BepaalFreesProgramma(..Rug)
-	Do $$$AssertEquals(FreesProgramma,VerwachteFreesProgramma)
+	#dim FreesProgramma As APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.FreesProgramma = Bepaler.BepaalFreesProgramma(LadeOnderdeel)
+	
+	Do $$$AssertEquals(FreesProgramma, VerwachteFreesProgramma)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/common/FreesProgrammaBepaler.cls.xml
===================================================================
diff -u -r63654 -r65432
--- APPS/Halux/PPS/Activiteit/impl/TAOR/common/FreesProgrammaBepaler.cls.xml	(.../FreesProgrammaBepaler.cls.xml)	(revision 63654)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/common/FreesProgrammaBepaler.cls.xml	(.../FreesProgrammaBepaler.cls.xml)	(revision 65432)
@@ -18,8 +18,13 @@
 <ReturnType>APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.FreesProgramma</ReturnType>
 <Implementation><![CDATA[
 	Set ..LadeOnderdeel = LadeOnderdeel
+	
 	If (..LadeOnderdeel.GeefLade().GeefProductieWijze() = ##class(DOM.PM.enu.TAORProductieWijze).FrontLBX()) {
-		Do ..VerwerkFrontLBX()
+		If (..LadeOnderdeel.GeefKleur() = ##class(DOM.PM.enu.TAORLadeKleur).OudZwart()) {
+			Do ..VerwerkGeenBewerking()
+		} Else {
+			Do ..VerwerkFrontLBX()
+		}
 	} Else {
 		Do ..Verwerk(LadeOnderdeel.GeefConcept())
 	}
@@ -45,6 +50,12 @@
 <Implementation><![CDATA[	Set ..FreesProgramma = ##class(APPS.Halux.PPS.Activiteit.impl.TAOR.common.enu.FreesProgramma).FrontLBX()
 ]]></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>
 </Class>