Index: APPS/Halux/PPS/TBXZaag/dto/OpdrachtPlaat.cls.xml
===================================================================
diff -u -r2859 -r2875
--- APPS/Halux/PPS/TBXZaag/dto/OpdrachtPlaat.cls.xml	(.../OpdrachtPlaat.cls.xml)	(revision 2859)
+++ APPS/Halux/PPS/TBXZaag/dto/OpdrachtPlaat.cls.xml	(.../OpdrachtPlaat.cls.xml)	(revision 2875)
@@ -133,7 +133,7 @@
 <Method name="BuildList">
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
- Set List=$LB(..AanslagSensor,..Bewerking, ..ChangeAfter, $J(..LengteUntilChange,0,1), ..ChangeHoogte ,..ChangeKleur,..Breedte,..Hoogte,..HoogteOms,..HoogteSensor,..Kleur2de,..KleurZichtbaar,..ReturnsAfter,..ProductNr,..ImageURL)
+ Set List=$LB(..AanslagSensor,..Bewerking, ..ChangeAfter, ..LengteUntilChange, ..ChangeHoogte ,..ChangeKleur,..Breedte,..Hoogte,..HoogteOms,..HoogteSensor,..Kleur2de,..KleurZichtbaar,..ReturnsAfter,..ProductNr,..ImageURL)
  Quit List
 ]]></Implementation>
 </Method>
Index: APPS/Halux/PPS/TBXZaag/impl/LijstHelper.cls.xml
===================================================================
diff -u -r2859 -r2875
--- APPS/Halux/PPS/TBXZaag/impl/LijstHelper.cls.xml	(.../LijstHelper.cls.xml)	(revision 2859)
+++ APPS/Halux/PPS/TBXZaag/impl/LijstHelper.cls.xml	(.../LijstHelper.cls.xml)	(revision 2875)
@@ -236,7 +236,7 @@
 	Set NextListPos=ListPos
 	Do { 
 		Set Cnt=Cnt+1
-		Set Lengte=Lengte+$LG(..IndexBodemChanges(NextListPos),3)
+		Set Lengte=Lengte+$LG(..IndexBodemChanges(NextListPos),2)
 		Quit:..ChangesNextBodem(NextListPos)
 		Set NextListPos=NextListPos+1
 	} While NextListPos<..MaxPosList
@@ -247,11 +247,13 @@
 </Method>
 
 <Method name="Afronden">
-<FormalSpec>Lengte,PlaatLengte</FormalSpec>
+<FormalSpec>Lengte:%Integer,PlaatLengte:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
 <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:"")
+	Set Rest=$J(Lengte#PlaatLengte/1000,0,1)
+	Quit $S(AantalPlaten:AantalPlaten_"pl ",1:"")_$S(Rest>0.1:$TR(Rest,".","m"),1:"")
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/TBXZaag/dto/PlaatMateriaal.cls.xml
===================================================================
diff -u -r2859 -r2875
--- APPS/Halux/PPS/TBXZaag/dto/PlaatMateriaal.cls.xml	(.../PlaatMateriaal.cls.xml)	(revision 2859)
+++ APPS/Halux/PPS/TBXZaag/dto/PlaatMateriaal.cls.xml	(.../PlaatMateriaal.cls.xml)	(revision 2875)
@@ -48,7 +48,7 @@
 	Set dtoPlaat.Kleuren=..TranslateKleuren(Plaat.GeefKleuren())
 	Set dtoPlaat.Hoogte=Plaat.GeefDiepte()
 	Set dtoPlaat.HoogteOms=Plaat.GeefDiepteVanLade()
-	Set dtoPlaat.HoogteEnKleurOms=Plaat.GeefDiepteVanLade()_" "_dtoPlaat.Kleuren_" "_$S(Plaat.GeefFSC()="GEEN":"",1:"FSC")
+	Set dtoPlaat.HoogteEnKleurOms=Plaat.GeefDiepte()_" "_dtoPlaat.Kleuren_" "_$S(Plaat.GeefFSC()="GEEN":"",1:"FSC")
 	Set dtoPlaat.ProductNr=Plaat.GeefPRNr()
 	Set dtoPlaat.KortTekst=Plaat.GeefKorttekst()
 	Set dtoPlaat.ImageURL=Plaat.GeefBiKleurenImageURL()