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>