1 %RegisteredObject 0 %SerialObject %Integer %String 1 %String 1 %SQLQuery LijnNr 0 and Batch->IsActief=1 group by Batch,SubBatch]]> %SQLQuery LijnNr 0 and Batch->IsActief=1 group 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 ..MaxPosList Set Opdracht.Rug.ChangeAfter=Cnt Set Opdracht.Rug.LengteUntilChange=..Afronden(Lengte,Opdracht.Rug.PlaatLengte) ]]> ListPos,Opdracht ..MaxPosList Set Opdracht.Bodem.ChangeAfter=Cnt Set Opdracht.Bodem.LengteUntilChange=..Afronden(Lengte,Opdracht.Bodem.PlaatLengte) ]]> Lengte:%Integer,PlaatLengte:%Integer %String 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:"") ]]> ListPos expression ListPos expression ListPos %SQLQuery BatchID:%Integer,SubBatch:APPS.Halux.TBX.enu.SubBatch Select ID from APPS_Halux_PPS_TBXZaag.Opdrachten where Batch = :BatchID and isnull(SubBatch,'*')=isnull(:SubBatch,'*')