Index: APPS/Halux/Machine/OpdeelZaag/dto/OptimalisatieData.cls.xml
===================================================================
diff -u -r40927 -r65775
--- APPS/Halux/Machine/OpdeelZaag/dto/OptimalisatieData.cls.xml	(.../OptimalisatieData.cls.xml)	(revision 40927)
+++ APPS/Halux/Machine/OpdeelZaag/dto/OptimalisatieData.cls.xml	(.../OptimalisatieData.cls.xml)	(revision 65775)
@@ -43,6 +43,12 @@
 <Type>TECH.String</Type>
 </Property>
 
+<Property name="IsKleurOudZwart">
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+<Transient>1</Transient>
+</Property>
+
 <Property name="Decor">
 <Type>APPS.Halux.PPS.enu.TAORDecor</Type>
 </Property>
Index: APPS/Halux/Machine/OpdeelZaag/impl/PlaatMateriaalBepaler.cls.xml
===================================================================
diff -u -r65769 -r65775
--- APPS/Halux/Machine/OpdeelZaag/impl/PlaatMateriaalBepaler.cls.xml	(.../PlaatMateriaalBepaler.cls.xml)	(revision 65769)
+++ APPS/Halux/Machine/OpdeelZaag/impl/PlaatMateriaalBepaler.cls.xml	(.../PlaatMateriaalBepaler.cls.xml)	(revision 65775)
@@ -53,8 +53,10 @@
 	
 	#dim Kleur As %String = ..Kleur
 	set:(Kleur="W") Kleur = "W1"
-	set:(Kleur="S") Kleur = "Z8"
-	set:(Kleur="Z9") Kleur = "S"
+	
+	If (UitvoeringInfo.OptimalisatieData.IsKleurOudZwart = $$$False) {
+		set:(Kleur="S") Kleur = "Z8"
+	}
 
 	#dim MateriaalCode As %String = MateriaalDisplay_"."_Kleur_"."_StringDikte
 
Index: APPS/Halux/PPS/Activiteit/impl/TAOR/Front/OpdeelzaagOptimalisatieDataAanvuller.cls.xml
===================================================================
diff -u -r30624 -r65775
--- APPS/Halux/PPS/Activiteit/impl/TAOR/Front/OpdeelzaagOptimalisatieDataAanvuller.cls.xml	(.../OpdeelzaagOptimalisatieDataAanvuller.cls.xml)	(revision 30624)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/Front/OpdeelzaagOptimalisatieDataAanvuller.cls.xml	(.../OpdeelzaagOptimalisatieDataAanvuller.cls.xml)	(revision 65775)
@@ -35,7 +35,15 @@
 	Set UitvoeringInfo.OptimalisatieData.Dikte = ZaagDimensie.Hoogte
 	Set UitvoeringInfo.OptimalisatieData.Breedte = ZaagDimensie.Breedte
 	Set UitvoeringInfo.OptimalisatieData.Lengte = ZaagDimensie.Lengte
-	Set UitvoeringInfo.OptimalisatieData.Kleur = ..FrontPlaat.GeefKleur()
+	
+	#dim FrontPlaatKleur As DOM.PM.enu.TAORKantenbandKleur = ..FrontPlaat.GeefKleur()
+	
+	If (FrontPlaatKleur = ##class(DOM.PM.enu.TAORKantenbandKleur).OudZwart()) {
+		Set UitvoeringInfo.OptimalisatieData.IsKleurOudZwart = $$$True
+		Set FrontPlaatKleur = ##class(DOM.PM.enu.TAORKantenbandKleur).Zwart()
+	}
+	
+	Set UitvoeringInfo.OptimalisatieData.Kleur = FrontPlaatKleur
 	Set UitvoeringInfo.OptimalisatieData.Decor = ..FrontPlaat.GeefDecor()
 	Set UitvoeringInfo.OptimalisatieData.Aantal = 1
 ]]></Implementation>