Naam = "KiesBatch" persistent APPS.P2L.Core.PickSequence 1 APPS.P2L.Controller.ControllerState 0 %Integer list 1 %Integer 1 Breng de displays in overeenstemming met de huidige state. %Status 0 ) { Set BatchID = " "_..LijstBatchID.GetAt(..HuidigePositie) Set Tekst = "b"_$extract(BatchID,$length(BatchID)-2,$length(BatchID)) } else { Set Tekst = "b" } ;Do ..Client.ZetIntensiteit(Display, 100) Do ..Client.ZetKleur(Display,3) Do ..Client.ToonTekst(Display, Tekst) Quit $$$OK ]]> %Status %Status %Status %Status %Status 0) { Do ..Controller.ZetPicking(..LijstBatchID.GetAt(..HuidigePositie)) } Quit $$$OK ]]> %Status ..LijstBatchID.Size) { Set ..HuidigePositie = ..LijstBatchID.Size } Do ..%Save() Quit ..Controller.Update() ]]> Controller:APPS.P2L.Controller.Controller,ContainingState:APPS.P2L.Controller.CompositeStateWithHistory="",Naam:%String 1 1 %Status %Status 1 %Library.CacheStorage KiesBatchDefaultData listnode "KiesBatch" HuidigePositie LijstBatchID