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