Index: APPS/Halux/PPS/TBXZaag/impl/LijstHelper.cls.xml
===================================================================
diff -u -r2895 -r2902
--- APPS/Halux/PPS/TBXZaag/impl/LijstHelper.cls.xml	(.../LijstHelper.cls.xml)	(revision 2895)
+++ APPS/Halux/PPS/TBXZaag/impl/LijstHelper.cls.xml	(.../LijstHelper.cls.xml)	(revision 2902)
@@ -26,7 +26,7 @@
 <Query name="qActieveBatchLijst">
 <Type>%SQLQuery</Type>
 <FormalSpec>LijnNr</FormalSpec>
-<SqlQuery><![CDATA[	Select   Batch || '||' || isnull(SubBatch,"") as BatchKey, Batch || ' ' || isnull(SubBatch,'') || ' - nog ' || sum(case status when 'W' then 1 else 0 end) || ' van ' || count(*) as BatchOms from APPS_Halux_PPS_TBXZaag.Opdrachten --where isnull(Batch->NotActive,0)=0
+<SqlQuery><![CDATA[	Select Batch || '||' || isnull(SubBatch,"") as BatchKey, Batch || ' ' || isnull(SubBatch,'') as BatchOms,Batch || ' ' || isnull(SubBatch,'') || ' - nog ' || sum(case status when 'W' then 1 else 0 end) || ' van ' || count(*) as BatchLangeOms from APPS_Halux_PPS_TBXZaag.Opdrachten --where isnull(Batch->NotActive,0)=0
 	group by Batch,SubBatch]]></SqlQuery>
 <Parameter name="CONTAINID" value="0"/>
 </Query>
@@ -111,8 +111,8 @@
 	
 	; index voorbereiden
 	Set ListPos=..ZaagList.Count()
-	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:"")
+	Set ..IndexBodemChanges(ListPos)=$S($isObject(Opdracht.Bodem)&&Opdracht.Bodem.ProductNr:$LB(Opdracht.Bodem.GetPlaatKey(),Opdracht.Bodem.Breedte,Opdracht.Bodem.NodigePlaatLengte),1:"")
+	Set ..IndexRugChanges(ListPos)=$S($isObject(Opdracht.Rug)&&Opdracht.Rug.ProductNr:$LB(Opdracht.Rug.GetPlaatKey(),Opdracht.Rug.Breedte,Opdracht.Rug.NodigePlaatLengte),1:"")
 ]]></Implementation>
 </Method>
 
@@ -145,6 +145,8 @@
 <Method name="AddBodemChange">
 <FormalSpec>ListPos,Opdracht</FormalSpec>
 <Implementation><![CDATA[
+	Quit:'$isObject(Opdracht.Bodem)
+	Quit:'Opdracht.Bodem.ProductNr
 	Set NextOpdracht=..ZaagList.GetAt(ListPos+1)
 	Do ..AddChange(Opdracht.Bodem,NextOpdracht.Bodem)
 	Do ..AddBodemReturnsAfter(ListPos,Opdracht.Bodem)
@@ -154,6 +156,8 @@
 <Method name="AddRugChange">
 <FormalSpec>ListPos,Opdracht</FormalSpec>
 <Implementation><![CDATA[
+	Quit:'$isObject(Opdracht.Rug)
+	Quit:'Opdracht.Rug.ProductNr
 	Set NextOpdracht=..ZaagList.GetAt(ListPos+1)
 	Do ..AddChange(Opdracht.Rug,NextOpdracht.Rug)
 	Do ..AddRugReturnsAfter(ListPos,Opdracht.Rug)
@@ -214,6 +218,7 @@
 <FormalSpec>ListPos,Opdracht</FormalSpec>
 <Implementation><![CDATA[
 	Quit:'$isObject(Opdracht.Rug)
+	Quit:'Opdracht.Rug.ProductNr
 	Set (Cnt,Lengte)=0
 	Set NextListPos=ListPos
 	Do { 
@@ -232,6 +237,7 @@
 <FormalSpec>ListPos,Opdracht</FormalSpec>
 <Implementation><![CDATA[
 	Quit:'$isObject(Opdracht.Bodem)
+	Quit:'Opdracht.Bodem.ProductNr
 	Set (Cnt,Lengte)=0
 	Set NextListPos=ListPos
 	Do { 
@@ -251,6 +257,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set:PlaatLengte>1500 Lengte=Lengte*1.1 ;uit stroken
+	Quit:'PlaatLengte "n/a"
 	Set AantalPlaten=Lengte\PlaatLengte
 	Set Rest=$J(Lengte#PlaatLengte/1000,0,1)
 	Quit $S(AantalPlaten:AantalPlaten_"pl ",1:"")_$S(Rest>0.1:$TR(Rest,".","m"),1:"")