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[