1 %RegisteredObject 0 %SerialObject %Integer %String 1 %String 1 %SQLQuery LijnNr NotActive,0)=0 order by Batch,SubBatch]]> %Query BatchID:%Integer,SubBatch:APPS.Halux.PPS.TBXZaag.enu.SubBatch 1 1 %Status 1 qZaagLijstExecute %Status 1 qZaagLijstExecute %Status BatchID:%Integer,SubBatch:APPS.Halux.PPS.TBXZaag.enu.SubBatch %ListOfObjects Opdracht ListPos,Opdracht ListPos,Opdracht Wijziging wordt aangebracht bij de NextPlaat Plaat,NextPlaat ListPos,Plaat ..MaxPosList { If $L(..IndexRugChanges(NextListPos)) Quit:($LG(..IndexRugChanges(ListPos))=$LG(..IndexRugChanges(NextListPos))) Set NextListPos=NextListPos+1 } Set:NextListPos'>..MaxPosList Plaat.ReturnsAfter=NextListPos-ListPos ]]> ListPos,Plaat ..MaxPosList { If $L(..IndexBodemChanges(NextListPos)) Quit:($LG(..IndexBodemChanges(ListPos))=$LG(..IndexBodemChanges(NextListPos))) Set NextListPos=NextListPos+1 } Set:NextListPos'>..MaxPosList Plaat.ReturnsAfter=NextListPos-ListPos ]]> ListPos,Opdracht ListPos,Opdracht ListPos expression ListPos expression ListPos %SQLQuery BatchID:%Integer,SubBatch:APPS.Halux.PPS.TBXZaag.enu.SubBatch Select ID from APPS_Halux_PPS_TBXZaag.Opdrachten where Batch = :BatchID and isnull(SubBatch,'*')=isnull(:SubBatch,'*')