Index: APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml
===================================================================
diff -u -r73199 -r73288
--- APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml)	(revision 73199)
+++ APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml	(.../AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml)	(revision 73288)
@@ -112,13 +112,28 @@
 <Private>1</Private>
 <ReturnType>%ListOfObjects</ReturnType>
 <Implementation><![CDATA[
-	Set LijstOptieslaatmateriaalKleuren = ##class(%ListOfObjects).%New()
-	#dim PlaatmateriaalKleuren As %String = ""
+	Set LijstOptieslaatmateriaalKleuren = ##class(%ListOfObjects).%New()	
+	#dim PlaatmateriaalBodemKleur As %String = ..GeefPlaatmateriaalBodemKleur(Product)
+	Do LijstOptieslaatmateriaalKleuren.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Plaatmateriaalbodemkleuren", PlaatmateriaalBodemKleur))
 	
+	If (IngegevenKenmerken.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()) {
+		Do LijstOptieslaatmateriaalKleuren.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Plaatmateriaalrugkleuren", PlaatmateriaalBodemKleur))
+	}
+	
+	Quit LijstOptieslaatmateriaalKleuren
+]]></Implementation>
+</Method>
+
+<Method name="GeefPlaatmateriaalBodemKleur">
+<FormalSpec>Product:DOM.PM.MaatwerkProduct</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim PlaatmateriaalBodemKleur As %String = ""
+	
 	#dim BodemKleurZichtbaar As %string = $ListGet(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",Product.GeefID(),"KB"))
 	#dim BodemProductNummer As %String = $Piece($Get(^PRBS("BS",Product.GeefID(),"PRBDHO.001")),"\",1)
 	#dim MogelijkeKleurenBodem As %String = $Select(BodemProductNummer?4.7N:##class(Prod.Kenmerk.DataDefinitie).Get("TB",BodemProductNummer,"Kleur"),1:"")
-	#dim BodemKleur2de As %String = ""
+	#dim BodemKleur2de As %String = BodemKleurZichtbaar
 	
 	If $$$Not(MogelijkeKleurenBodem = "") {
 		#dim IndexBodemkleurZichtbaar As %Integer= $ListFind(MogelijkeKleurenBodem,BodemKleurZichtbaar)
@@ -127,19 +142,9 @@
 		Set BodemKleur2de = $ListGet(MogelijkeKleurenBodem, IndexMogelijkeBodemkleur2de) 
 	}
 	
-	If (BodemKleurZichtbaar = BodemKleur2de) {
-		Set PlaatmateriaalKleuren = BodemKleurZichtbaar
-	} Else {
-		Set PlaatmateriaalKleuren = BodemKleurZichtbaar _ "/" _ BodemKleur2de
-	}
+	Set PlaatmateriaalBodemKleur = BodemKleurZichtbaar _ "/" _ BodemKleur2de
 	
-	Do LijstOptieslaatmateriaalKleuren.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Plaatmateriaalbodemkleuren", PlaatmateriaalKleuren))
-	
-	If (IngegevenKenmerken.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()) {
-		Do LijstOptieslaatmateriaalKleuren.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Plaatmateriaalrugkleuren", PlaatmateriaalKleuren))
-	}
-	
-	Quit LijstOptieslaatmateriaalKleuren
+	Quit PlaatmateriaalBodemKleur
 ]]></Implementation>
 </Method>