Index: APPS/Halux/Machine/OpdeelZaag/impl/PlaatMateriaalBepaler.cls.xml
===================================================================
diff -u -r42684 -r42693
--- APPS/Halux/Machine/OpdeelZaag/impl/PlaatMateriaalBepaler.cls.xml	(.../PlaatMateriaalBepaler.cls.xml)	(revision 42684)
+++ APPS/Halux/Machine/OpdeelZaag/impl/PlaatMateriaalBepaler.cls.xml	(.../PlaatMateriaalBepaler.cls.xml)	(revision 42693)
@@ -44,14 +44,14 @@
 <Implementation><![CDATA[
 	set ..Dikte = UitvoeringInfo.OptimalisatieData.Dikte
 	set ..Materiaal = UitvoeringInfo.OptimalisatieData.Decor
-		
+	Set ..Kleur = UitvoeringInfo.OptimalisatieData.Kleur
+
+	do ..Validator.ValidateObject(%this)
+
 	#dim StringDikte As %String = ##class(TECH.StringUtils).AlignRight(UitvoeringInfo.OptimalisatieData.Dikte * 10, "0", 3)
-	Set ..Materiaal = ##class(APPS.Halux.PPS.enu.TAORDecor).LogicalToDisplay(UitvoeringInfo.OptimalisatieData.Decor)
-	Set ..Kleur = UitvoeringInfo.OptimalisatieData.Kleur	
-		
-	#dim MateriaalCode As %String = ..Materiaal_"."_..Kleur_"."_StringDikte
+	#dim MateriaalDisplay As %String = ##class(APPS.Halux.PPS.enu.TAORDecor).LogicalToDisplay(UitvoeringInfo.OptimalisatieData.Decor)
 	
-	do ..Validator.ValidateObject(%this)
+	#dim MateriaalCode As %String = MateriaalDisplay_"."_..Kleur_"."_StringDikte
 
 	quit $$$UCase(MateriaalCode)
 ]]></Implementation>