Index: APPS/Halux/PPS/TBXZaag/impl/LijstHelper.cls.xml
===================================================================
diff -u -r2742 -r2828
--- APPS/Halux/PPS/TBXZaag/impl/LijstHelper.cls.xml	(.../LijstHelper.cls.xml)	(revision 2742)
+++ APPS/Halux/PPS/TBXZaag/impl/LijstHelper.cls.xml	(.../LijstHelper.cls.xml)	(revision 2828)
@@ -111,8 +111,8 @@
 	
 	; index voorbereiden
 	Set ListPos=..ZaagList.Count()
-	Set ..IndexBodemChanges(ListPos)=$S($isObject(Opdracht.Bodem):$LB(Opdracht.Bodem.GetPlaatKey(),Opdracht.Bodem.Breedte),1:"")
-	Set ..IndexRugChanges(ListPos)=$S($isObject(Opdracht.Rug):$LB(Opdracht.Rug.GetPlaatKey(),Opdracht.Rug.Breedte),1:"")
+	Set ..IndexBodemChanges(ListPos)=$S($isObject(Opdracht.Bodem):$LB(Opdracht.Bodem.GetPlaatKey(),Opdracht.Bodem.Breedte,Opdracht.Bodem.NodigePlaatLengte),1:"")
+	Set ..IndexRugChanges(ListPos)=$S($isObject(Opdracht.Rug):$LB(Opdracht.Rug.GetPlaatKey(),Opdracht.Rug.Breedte,Opdracht.Rug.NodigePlaatLengte),1:"")
 ]]></Implementation>
 </Method>
 
@@ -218,7 +218,7 @@
 	Set NextListPos=ListPos
 	Do { 
 		Set Cnt=Cnt+1
-		Set Lengte=Lengte+$LG(..IndexRugChanges(NextListPos),2)
+		Set Lengte=Lengte+$LG(..IndexRugChanges(NextListPos),3)
 		Quit:..ChangesNextRug(NextListPos)
 		Set NextListPos=NextListPos+1
 	} While NextListPos<..MaxPosList
@@ -236,7 +236,7 @@
 	Set NextListPos=ListPos
 	Do { 
 		Set Cnt=Cnt+1
-		Set Lengte=Lengte+$LG(..IndexBodemChanges(NextListPos),2)
+		Set Lengte=Lengte+$LG(..IndexBodemChanges(NextListPos),3)
 		Quit:..ChangesNextBodem(NextListPos)
 		Set NextListPos=NextListPos+1
 	} While NextListPos<..MaxPosList
Index: APPS/Halux/PPS/TBXZaag/dto/OpdrachtPlaat.cls.xml
===================================================================
diff -u -r2533 -r2828
--- APPS/Halux/PPS/TBXZaag/dto/OpdrachtPlaat.cls.xml	(.../OpdrachtPlaat.cls.xml)	(revision 2533)
+++ APPS/Halux/PPS/TBXZaag/dto/OpdrachtPlaat.cls.xml	(.../OpdrachtPlaat.cls.xml)	(revision 2828)
@@ -18,6 +18,10 @@
 <Type>%Integer</Type>
 </Property>
 
+<Property name="NodigePlaatLengte">
+<Type>%Integer</Type>
+</Property>
+
 <Property name="Hoogte">
 <Description>
 uitgedrukt in 10x mm</Description>
@@ -84,6 +88,7 @@
 	Set dtoPlaat.Hoogte=Lade.GeefBodem().GeefDiepte()
 	Set dtoPlaat.HoogteOms=Lade.GeefBodem().GeefDiepteVanLade()
 	Set dtoPlaat.Breedte=Lade.GeefBodemBreedte()
+	Set dtoPlaat.NodigePlaatLengte=Lade.GeefBodemBreedte()/Lade.GeefBodem().GeefBreedte()
 	Set dtoPlaat.HoogteSensor=1
 	Set dtoPlaat.AanslagSensor=1
 	Set dtoPlaat.ProductNr=Lade.GeefBodem().GeefPRNr()
@@ -108,6 +113,7 @@
 	Set dtoPlaat.KleurZichtbaar=Lade.GeefRugKleur()
 	Set dtoPlaat.Kleur2de=Lade.GeefRug().GeefKleur2de(dtoPlaat.KleurZichtbaar)
 	Set dtoPlaat.Hoogte=Lade.GeefRug().GeefHoogte()
+	Set dtoPlaat.NodigePlaatLengte=Lade.GeefRugBreedte()/Lade.GeefRug().GeefBreedte()
 	Set dtoPlaat.HoogteOms=Lade.GeefRugHoogte()_" "_dtoPlaat.Hoogte
 	Set dtoPlaat.Breedte=Lade.GeefRugBreedte()
 	Set dtoPlaat.HoogteSensor=1