Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r2847 -r2899
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 2847)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 2899)
@@ -605,7 +605,6 @@
 	Set pxLabel.ZW=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"ZW")) ; Zijwandhoogte
 	Set ASM=$S($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"NMASM")):"",1:$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"ASM"))) ; Antislipmat
 	Set VPK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"VERPAK")) ; Verpakking
-	Set RSTL=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"RSTL")) ; Rug verlaagd
 	Set PlaatMat=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"MATKL")) ; Materiaal gezaagd
 
 	Set Batch = ##class(APPS.Halux.common.BatchService).%New().GeefBatch(oQ.BatchID)
@@ -662,6 +661,8 @@
 		Set pxLabel.RWHInfo = "RWH: -- -- --"	
 	}
 	
+	Set pxLabel.BodemDiepte = Lade.GeefBodemDiepte()
+	
 	; opmerking
 	Set Opmerking=""
 	Set:PlaatMat?1(1"HZ",1"HA",1"KS",1"KZ",1"KA") Opmerking=Opmerking_", "_$Case(PlaatMat,"HZ":"Verzaagd","HA":"Verzaagd","KS":"Klant",:"Klant verzaagd") ; plaatmateriaal is reeds gezaagd
@@ -673,11 +674,8 @@
 	Set:DK=25 Opmerking=Opmerking_", "_"Intrabox"
 	Set:DS="BA" Opmerking=Opmerking_", "_"Baliko"
 	Set:DC="L" Opmerking=Opmerking_", "_"Intivo"
-	;Set:RSTL'="" Opmerking=Opmerking_", "_"VERLAAGDE RUG "_RSTL
 	Set:BM="T" Opmerking=Opmerking_", "_"TIP-ON"_$S(TipOnSyncPRNr?4.7N:"+"_$E($P(^KPR(TipOnSyncPRNr,0),"\",1),5,7),1:"") ;TIPON + Z55Sxxx
 
-	;Set:IsSR pxLabel.KR="Staal "_pxLabel.KR_" "_pxLabel.RH_" "_(IB-28),pxLabel.RH="",pxLabel.Bor="",pxLabel.RHNet="",pxLabel.BreedteR=""  ;Stalen rug
-	;Set:(ODSP'="")&&(ODSP'["H") pxLabel.KR="--" ; herstelling zonder rugwandhouders
 	Set:KLAS["SP" Opmerking=Opmerking_", "_$CASE(KLAS,"SP":"SP 1","SP2":"SP 2",:"")_" "_$CASE(SPZK,"S":"Smal",:"Breed"), BreedteR=""
 	Set:KLAS["SP" pxLabel.Spoelbak = 1
 	Set:KLAS["SY" Opmerking=Opmerking_", "_"Sifon", BreedteR=""
Index: DOM/PM/TBXProduct/impl/TBXBodemImpl.cls.xml
===================================================================
diff -u -r2542 -r2899
--- DOM/PM/TBXProduct/impl/TBXBodemImpl.cls.xml	(.../TBXBodemImpl.cls.xml)	(revision 2542)
+++ DOM/PM/TBXProduct/impl/TBXBodemImpl.cls.xml	(.../TBXBodemImpl.cls.xml)	(revision 2899)
@@ -11,5 +11,15 @@
 <Implementation><![CDATA[	Quit $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",..GeefPRNr(),"LadeDiepte"))
 ]]></Implementation>
 </Method>
+
+<Method name="GeefDiepte">
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	/// Bij de decker laden geldt de regel van staal/hout rug niet. Daar is de regel dat er steeds 24 moet afgetrokken worden
+	/// Door de huidige configuratie van data komt dit toevallig goed uit. Dit wordt later mss gecorrigeerd naar een ander systeem.
+	Set Kleur = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",..GeefPRNr(),"Kleur"))
+	Quit ..GeefDiepteVanLade()-$S($E(Kleur,3)="S":22,1:24)
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: DOM/PM/TBXProduct/impl/TBXBodemStrookImpl.cls.xml
===================================================================
diff -u -r2589 -r2899
--- DOM/PM/TBXProduct/impl/TBXBodemStrookImpl.cls.xml	(.../TBXBodemStrookImpl.cls.xml)	(revision 2589)
+++ DOM/PM/TBXProduct/impl/TBXBodemStrookImpl.cls.xml	(.../TBXBodemStrookImpl.cls.xml)	(revision 2899)
@@ -12,12 +12,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="GeefDiepte">
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	Quit ..GeefDiepteVanLade()-$S($E($LG(..GeefKleuren()),3)="S":22,1:24)
-]]></Implementation>
-</Method>
-
 <Method name="HeeftInkeping">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[	Quit 0
Index: BL/PPS/TBX/sub/pxLabelV1.cls.xml
===================================================================
diff -u -r2555 -r2899
--- BL/PPS/TBX/sub/pxLabelV1.cls.xml	(.../pxLabelV1.cls.xml)	(revision 2555)
+++ BL/PPS/TBX/sub/pxLabelV1.cls.xml	(.../pxLabelV1.cls.xml)	(revision 2899)
@@ -139,11 +139,15 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="BodemDiepte">
+<Type>%String</Type>
+</Property>
+
 <Method name="WriteRow">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	;TBXPROD ;BATCHID`$E($G(C("TOENR")),4,6)`DOSNR`VOLGNR`QTY`KB`$G(C("LD"))-24`BreedteB`KR`RH`RHnet`BreedteR`BOR`KL`ZW`LD`$G(C("IB"))`OPM`PICT`BM`VHOSS
-	Write ..BatchID,*9,..TOENr,*9,..DOSNr,*9,..VolgNr,*9,..Qty,*9,..KB,*9,$S(..LD="":"",1:(..LD-24)),*9,..BreedteB,*9,..RugInfo,*9,..RWHInfo,*9,..KL,*9,..ZW,*9,..LD,*9,..IB,*9,..Opm1,*9,..Picture,*9,..VHossID
+	Write ..BatchID,*9,..TOENr,*9,..DOSNr,*9,..VolgNr,*9,..Qty,*9,..KB,*9,..BodemDiepte,*9,..BreedteB,*9,..RugInfo,*9,..RWHInfo,*9,..KL,*9,..ZW,*9,..LD,*9,..IB,*9,..Opm1,*9,..Picture,*9,..VHossID
 	Write *9
 	Write:(..TiponCount > 0) ..TiponCount
 	Write *9,..Line
Index: DOM/PM/TBXProduct/impl/TBXBodemOpMaatImpl.cls.xml
===================================================================
diff -u -r2589 -r2899
--- DOM/PM/TBXProduct/impl/TBXBodemOpMaatImpl.cls.xml	(.../TBXBodemOpMaatImpl.cls.xml)	(revision 2589)
+++ DOM/PM/TBXProduct/impl/TBXBodemOpMaatImpl.cls.xml	(.../TBXBodemOpMaatImpl.cls.xml)	(revision 2899)
@@ -23,11 +23,5 @@
 <Implementation><![CDATA[	Quit $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TB",..GeefPRNr(),"Opties")) = "INKEPING"
 ]]></Implementation>
 </Method>
-
-<Method name="GeefDiepte">
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	Quit ..GeefDiepteVanLade()-$S($E(..GeefKleur())="S":22,1:24)
-]]></Implementation>
-</Method>
 </Class>
 </Export>
Index: DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml
===================================================================
diff -u -r2851 -r2899
--- DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml	(.../TBXLadeImpl.cls.xml)	(revision 2851)
+++ DOM/PM/TBXProduct/impl/TBXLadeImpl.cls.xml	(.../TBXLadeImpl.cls.xml)	(revision 2899)
@@ -379,7 +379,7 @@
 
 <Method name="GeefBodemDiepte">
 <ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	Quit ..GeefLadeDiepte() - 24
+<Implementation><![CDATA[	Quit ..GeefBodem().GeefDiepte()
 ]]></Implementation>
 </Method>
 
Index: BL/PPS/TBX/DocsProPlus.cls.xml
===================================================================
diff -u -r2847 -r2899
--- BL/PPS/TBX/DocsProPlus.cls.xml	(.../DocsProPlus.cls.xml)	(revision 2847)
+++ BL/PPS/TBX/DocsProPlus.cls.xml	(.../DocsProPlus.cls.xml)	(revision 2899)
@@ -596,7 +596,7 @@
 	. . . Set Oms1=$S(TeZagen:"ZAAG",1:"")
 	. . . Set IB = TBXLade.GeefInbouwBreedte()
 	. . . Set BodemBreedte = TBXLade.GeefBodemBreedte()
-	. . . Set BodemDiepte = TBXLade.GeefLadeDiepte()-$S(TBXLade.GeefRugMateriaal()=##class(DOM.PM.enu.TBXRugMateriaal).Staal():22,1:24)
+	. . . Set BodemDiepte = TBXLade.GeefBodemDiepte()
 	. . . Set BodemCount=""
 	. . . If (PrevBodem'=Bodem.GeefPRNr()) || (PrevIB '= IB) Do
 	. . . . Set VolgNr2=VolgNr