Index: BL/Prod/sub/pxVoorraadIdentificatie.cls.xml
===================================================================
diff -u -r69255 -r69264
--- BL/Prod/sub/pxVoorraadIdentificatie.cls.xml	(.../pxVoorraadIdentificatie.cls.xml)	(revision 69255)
+++ BL/Prod/sub/pxVoorraadIdentificatie.cls.xml	(.../pxVoorraadIdentificatie.cls.xml)	(revision 69264)
@@ -117,9 +117,8 @@
 		Do ..HoekKastLade(BasisType)
 	}ElseIf BasisType="" {
 		Do ..ProductZonderKenmerken()
-		Do ..ZetGegevensIndienLBXBodem(PRNr)
+		Do ..ZetGegevensIndienBodem(PRNr)
 		Do ..ZetGegevensIndienLBXRug(PRNr)
-		Do ..ZetGegevensIndienMVXBodem(PRNr)
 		Do ..ZetGegevensIndienMVXRug(PRNr)
 	} Else {
 		Set ..BasisType=$S(BasisType?1"BODEM".E:"BODEM", BasisType?1"RUG".E:"RUG", 1:BasisType)
@@ -134,15 +133,15 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ZetGegevensIndienLBXBodem">
+<Method name="ZetGegevensIndienBodem">
 <FormalSpec>PRNr:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim KenmerkWaarde As %String = ..GeefKenmerkWaarde("LBX_PPS_Bodem","Breedte",PRNr)
+	#dim KenmerkWaarde As %String = ..GeefKenmerkWaarde("PPS_IdentificatiePlaatMateriaal_Bodem","Breedte", PRNr)
 	If $L(KenmerkWaarde) {
 		Set ..BasisType = "BODEM"
 		Set ..Afmeting = "D "_KenmerkWaarde
-		Do ..ZetKleur("LBX_PPS_Bodem"," / ")
+		Do ..ZetKleur("PPS_IdentificatiePlaatMateriaal_Bodem"," / ")
 	}
 ]]></Implementation>
 </Method>
@@ -151,39 +150,26 @@
 <FormalSpec>PRNr:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim KenmerkWaarde As %String = ..GeefKenmerkWaarde("LBX_PPS_Rug","Hoogte",PRNr)
+	#dim KenmerkWaarde As %String = ..GeefKenmerkWaarde("LBX_PPS_Rug", "Hoogte", PRNr)
 	If $L(KenmerkWaarde) {
 		Set ..BasisType = "RUG"
 		#dim RugUtils As DOM.PM.Maatwerk.Lade.RugUtils = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeRugUtils(##class(DOM.PM.enu.LadeVariant).LBXPure())
 		Set ..Afmeting = "H "_RugUtils.GeefRugHoogteInMm(KenmerkWaarde)
-		Do ..ZetKleur("LBX_PPS_Rug"," / ","LBX_PPS_Bodem")   // Bij LBX is Kleur voor de houten ruggen meesteal ingevuld in PPS_Bodem  :-P 
+		Do ..ZetKleur("LBX_PPS_Rug", " / ")
 	}
 ]]></Implementation>
 </Method>
 
-<Method name="ZetGegevensIndienMVXBodem">
-<FormalSpec>PRNr:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	#dim KenmerkWaarde As %String = ..GeefKenmerkWaarde("MVX_PPS_Bodem","Breedte",PRNr)
-	If $L(KenmerkWaarde) {
-		Set ..BasisType = "BODEM"
-		Set ..Afmeting = "D "_KenmerkWaarde
-		Do ..ZetKleur("MVX_PPS_Bodem"," / ")
-	}
-]]></Implementation>
-</Method>
-
 <Method name="ZetGegevensIndienMVXRug">
 <FormalSpec>PRNr:%String</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim KenmerkWaarde As %String = ..GeefKenmerkWaarde("MVX_PPS_Rug","RugHoogte",PRNr)
+	#dim KenmerkWaarde As %String = ..GeefKenmerkWaarde("MVX_PPS_Rug", "RugHoogte", PRNr)
 	If $L(KenmerkWaarde) {
 		Set ..BasisType = "RUG"
 		#dim RugUtils As DOM.PM.Maatwerk.Lade.RugUtils = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeRugUtils(##class(DOM.PM.enu.LadeVariant).MVX())
 		Set ..Afmeting = "H "_RugUtils.GeefRugHoogteInMm(KenmerkWaarde)
-		Do ..ZetKleur("MVX_PPS_Rug"," / ","MVX_PPS_Bodem") 
+		Do ..ZetKleur("MVX_PPS_Rug"," / ")
 	}
 ]]></Implementation>
 </Method>
@@ -261,7 +247,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim PRNr As %String = ..PRNr
-	#dim KenmerkNaam As %String = $Select($Extract(GroepID,1 ,3) = "MVX": "BodemKleur", 1: "Kleur")
+	#dim KenmerkNaam As %String = $Select($Extract(GroepID, 1, 3) = "MVX": "BodemKleur", 1: "Kleur")
 	#dim lbKleuren As %List = ##class(Prod.Kenmerk.DataDefinitie).Get(GroepID,PRNr,KenmerkNaam)
 	
 	If ($LG(lbKleuren,1) = "") && ($$$HasLength(FallbackGroepID)) {