Index: APPS/Halux/PPS/TBXZaag/dto/PlaatMateriaal.cls.xml
===================================================================
diff -u -r2741 -r2859
--- APPS/Halux/PPS/TBXZaag/dto/PlaatMateriaal.cls.xml	(.../PlaatMateriaal.cls.xml)	(revision 2741)
+++ APPS/Halux/PPS/TBXZaag/dto/PlaatMateriaal.cls.xml	(.../PlaatMateriaal.cls.xml)	(revision 2859)
@@ -48,7 +48,7 @@
 	Set dtoPlaat.Kleuren=..TranslateKleuren(Plaat.GeefKleuren())
 	Set dtoPlaat.Hoogte=Plaat.GeefDiepte()
 	Set dtoPlaat.HoogteOms=Plaat.GeefDiepteVanLade()
-	Set dtoPlaat.HoogteEnKleurOms=dtoPlaat.HoogteOms_" "_dtoPlaat.Kleuren_" "_$S(Plaat.GeefFSC()="GEEN":"",1:"FSC")
+	Set dtoPlaat.HoogteEnKleurOms=Plaat.GeefDiepteVanLade()_" "_dtoPlaat.Kleuren_" "_$S(Plaat.GeefFSC()="GEEN":"",1:"FSC")
 	Set dtoPlaat.ProductNr=Plaat.GeefPRNr()
 	Set dtoPlaat.KortTekst=Plaat.GeefKorttekst()
 	Set dtoPlaat.ImageURL=Plaat.GeefBiKleurenImageURL()
Index: APPS/Halux/PPS/TBXZaag/impl/LijstHelper.cls.xml
===================================================================
diff -u -r2828 -r2859
--- APPS/Halux/PPS/TBXZaag/impl/LijstHelper.cls.xml	(.../LijstHelper.cls.xml)	(revision 2828)
+++ APPS/Halux/PPS/TBXZaag/impl/LijstHelper.cls.xml	(.../LijstHelper.cls.xml)	(revision 2859)
@@ -36,7 +36,7 @@
 <FormalSpec>BatchID:%Integer,SubBatch:APPS.Halux.PPS.TBXZaag.enu.SubBatch</FormalSpec>
 <SqlProc>1</SqlProc>
 <Parameter name="CONTAINID" value="1"/>
-<Parameter name="ROWSPEC" value="ZaagID:%Integer,PRNr:%Integer,KortTekst:%String,BatchID:%Integer,SubBatch:%String,KlantNaam:%String,TOENr:%Integer,DossierCode:%String,VolgNr:%Integer,SubNr:%Integer,Totaal:%Integer,Status:%String,Transferlijn:%String,Mode:%String,ModeTitel:%String,Opmerking1:%String,Opmerking2:%String,PrintXML:%String,OpmetenBodem:%Boolean,BodemAanslagSensor:%Boolean,BodemBewerking:%String,BodemChangeAfter:%Integer,BodemLengteUntilChange:%Float,BodemChangeHoogte:%Boolean,BodemChangeKleur:%Boolean,BodemBreedte:%Float,BodemHoogte:%Integer,BodemHoogteOms:%String,BodemHoogteSensor:%Boolean,BodemKleur2de:%String,BodemKleurZichtbaar:%String,BodemReturnsAfter:%Integer,BodemProductID:%Integer,BodemImageURL:%String,RugAanslagSensor:%Boolean,RugBewerking:%String,RugChangeAfter:%Integer,RugLengteUntilChange:%Float,RugChangeHoogte:%Boolean,RugChangeKleur:%Boolean,RugBreedte:%Float,RugHoogte:%Integer,RugHoogteOms:%String,RugHoogteSensor:%Boolean,RugKleur2de:%String,RugKleurZichtbaar:%String,RugReturnsAfter:%Integer,RugProductID:%Integer,RugImageURL:%String"/>
+<Parameter name="ROWSPEC" value="ZaagID:%Integer,PRNr:%Integer,KortTekst:%String,BatchID:%Integer,SubBatch:%String,KlantNaam:%String,TOENr:%Integer,DossierCode:%String,VolgNr:%Integer,SubNr:%Integer,Totaal:%Integer,Status:%String,Transferlijn:%String,Mode:%String,ModeTitel:%String,Opmerking1:%String,Opmerking2:%String,PrintXML:%String,OpmetenBodem:%Boolean,BodemAanslagSensor:%Boolean,BodemBewerking:%String,BodemChangeAfter:%Integer,BodemLengteUntilChange:%String,BodemChangeHoogte:%Boolean,BodemChangeKleur:%Boolean,BodemBreedte:%Float,BodemHoogte:%Integer,BodemHoogteOms:%String,BodemHoogteSensor:%Boolean,BodemKleur2de:%String,BodemKleurZichtbaar:%String,BodemReturnsAfter:%Integer,BodemProductID:%Integer,BodemImageURL:%String,RugAanslagSensor:%Boolean,RugBewerking:%String,RugChangeAfter:%Integer,RugLengteUntilChange:%String,RugChangeHoogte:%Boolean,RugChangeKleur:%Boolean,RugBreedte:%Float,RugHoogte:%Integer,RugHoogteOms:%String,RugHoogteSensor:%Boolean,RugKleur2de:%String,RugKleurZichtbaar:%String,RugReturnsAfter:%Integer,RugProductID:%Integer,RugImageURL:%String"/>
 </Query>
 
 <Method name="qZaagLijstExecute">
@@ -218,13 +218,13 @@
 	Set NextListPos=ListPos
 	Do { 
 		Set Cnt=Cnt+1
-		Set Lengte=Lengte+$LG(..IndexRugChanges(NextListPos),3)
+		Set Lengte=Lengte+$LG(..IndexRugChanges(NextListPos),2)
 		Quit:..ChangesNextRug(NextListPos)
 		Set NextListPos=NextListPos+1
 	} While NextListPos<..MaxPosList
 	
 	Set Opdracht.Rug.ChangeAfter=Cnt
-	Set Opdracht.Rug.LengteUntilChange=Lengte*1.05
+	Set Opdracht.Rug.LengteUntilChange=..Afronden(Lengte,Opdracht.Rug.PlaatLengte)
 ]]></Implementation>
 </Method>
 
@@ -242,10 +242,19 @@
 	} While NextListPos<..MaxPosList
 	
 	Set Opdracht.Bodem.ChangeAfter=Cnt
-	Set Opdracht.Bodem.LengteUntilChange=Lengte*1.05
+	Set Opdracht.Bodem.LengteUntilChange=..Afronden(Lengte,Opdracht.Bodem.PlaatLengte)
 ]]></Implementation>
 </Method>
 
+<Method name="Afronden">
+<FormalSpec>Lengte,PlaatLengte</FormalSpec>
+<Implementation><![CDATA[
+	Set AantalPlaten=Lengte\PlaatLengte
+	Set Rest=+Rest(Lengte-(PlaatLengte*AantalPlaten),0,1)
+	Quit $S(AantalPlaten:Aantalplaten&"pl ",1:"")&&$S(Rest>0.1:$TR(Rest,".","m"),1:"")
+]]></Implementation>
+</Method>
+
 <Method name="ZoekPlaatVerschil">
 <FormalSpec>ListPos</FormalSpec>
 <Implementation><![CDATA[
Index: APPS/Halux/PPS/TBXZaag/dto/OpdrachtPlaat.cls.xml
===================================================================
diff -u -r2829 -r2859
--- APPS/Halux/PPS/TBXZaag/dto/OpdrachtPlaat.cls.xml	(.../OpdrachtPlaat.cls.xml)	(revision 2829)
+++ APPS/Halux/PPS/TBXZaag/dto/OpdrachtPlaat.cls.xml	(.../OpdrachtPlaat.cls.xml)	(revision 2859)
@@ -57,7 +57,7 @@
 </Property>
 
 <Property name="LengteUntilChange">
-<Type>%Float</Type>
+<Type>%String</Type>
 </Property>
 
 <Property name="ChangeAfter">
Index: APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml
===================================================================
diff -u -r2824 -r2859
--- APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 2824)
+++ APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 2859)
@@ -218,8 +218,6 @@
 		Quit:'Lengte
 		Do ..BeschadigingPlaat(PlaatPRNr,Lengte,Verantwoordelijke,Omschrijving)
 	}
-	
-	; TODO - rework
 ]]></Implementation>
 </Method>