Index: APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler/KleurcodeStringBepaler.cls.xml
===================================================================
diff -u -r64017 -r65769
--- APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler/KleurcodeStringBepaler.cls.xml	(.../KleurcodeStringBepaler.cls.xml)	(revision 64017)
+++ APPS/Halux/PPS/Activiteit/impl/TAOR/common/EtiketInfoBepaler/KleurcodeStringBepaler.cls.xml	(.../KleurcodeStringBepaler.cls.xml)	(revision 65769)
@@ -70,6 +70,7 @@
 		
 		set:Kleur="W" Kleur = "W1"
 		set:Kleur="S" Kleur = "Z8"
+		set:Kleur="Z9" Kleur = "S"
 		
 		do ..KleurCodes.SetAt(Kleur,ItemIndex)
 			
Index: vhTest/Mock/APPS/Halux/Machine/OpdeelZaag/impl/PlaatMateriaalBepaler.cls.xml
===================================================================
diff -u -r42267 -r65769
--- vhTest/Mock/APPS/Halux/Machine/OpdeelZaag/impl/PlaatMateriaalBepaler.cls.xml	(.../PlaatMateriaalBepaler.cls.xml)	(revision 42267)
+++ vhTest/Mock/APPS/Halux/Machine/OpdeelZaag/impl/PlaatMateriaalBepaler.cls.xml	(.../PlaatMateriaalBepaler.cls.xml)	(revision 65769)
@@ -7,6 +7,13 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.Halux.Machine.OpdeelZaag.impl.PlaatMateriaalBepaler,Tools.Mock.MockClassBase</Super>
 
+<Method name="%OnNew">
+<FormalSpec>Validator:TECH.OBJ.Validator</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <Method name="BepaalPlaatMateriaal">
 <FormalSpec>UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.OpdeelzaagUitvoeringInfo</FormalSpec>
 <ReturnType>%String</ReturnType>
Index: APPS/Halux/Machine/OpdeelZaag/impl/PlaatMateriaalBepaler.cls.xml
===================================================================
diff -u -r42796 -r65769
--- APPS/Halux/Machine/OpdeelZaag/impl/PlaatMateriaalBepaler.cls.xml	(.../PlaatMateriaalBepaler.cls.xml)	(revision 42796)
+++ APPS/Halux/Machine/OpdeelZaag/impl/PlaatMateriaalBepaler.cls.xml	(.../PlaatMateriaalBepaler.cls.xml)	(revision 65769)
@@ -54,6 +54,7 @@
 	#dim Kleur As %String = ..Kleur
 	set:(Kleur="W") Kleur = "W1"
 	set:(Kleur="S") Kleur = "Z8"
+	set:(Kleur="Z9") Kleur = "S"
 
 	#dim MateriaalCode As %String = MateriaalDisplay_"."_Kleur_"."_StringDikte