serial KeyCodesCNTs,%ApiCNTs Default %Library.TMFormClass Args:%String cache 0 document literal LineNr:%Integer,Text:%String cache 0 %Library.Boolean document literal cache 0 document literal %Library.TMForm %Library.String -1 %TMLabel %TMLabel %Library.String %Library.String %TMPanel %Library.String -1 %Library.String 1 %TMButton %TMSpeedButton %TMButton %TMSpeedButton %TMButton %TMButton %TMSpeedButton %TMSpeedButton %TMButton %TMButton %TMButton %TMButton %TMSpeedButton %TMSpeedButton %TMComboBox %TMComboBox %TMCheckBox %TMCheckBox %TMLabel %TMPopupMenu %TMMenuItem %TMPanel %TMRichEdit %TMTimer %TMEdit initvalue:%String cache 0 %Status document literal BeginLineNr,EndLineNr:%Library.Integer cache 0 %Library.Integer document literal cache 0 document literal Args:%String cache 0 document literal cache 0 document literal Type:%Library.Integer cache 0 document literal cache 0 %Library.Integer document literal initvalue:%String cache 0 MApplication document literal initvalue:%String cache 0 %Library.Status document literal cache 0 document literal SearchStr:%Library.String cache 0 document literal SearchStr:%Library.String cache 0 document literal BeginLineNr,EndLineNr:%Library.Integer cache 0 %Library.Integer document literal LineNr:%Library.Integer,SelectLine:%Library.Boolean=0 cache 0 %Library.Boolean document literal Msg:%Library.String cache 0 document literal Type:%Library.Integer cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal MaxLP) MaxLP=LP . Set Cnt=Cnt+1 . Do ..reLog.Lines.Add($C(9)_$J(Job,4)_": "_$J(^UGLYLinesPickedCnt(Job),4)_$S($ZU(67,0,Job)'=2:" (dead)",1:"")) If Cnt=0 Do . Do ..reLog.Lines.Add("No items found") Else Do . Do ..reLog.Lines.Add("") . Do ..reLog.Lines.Add($C(9)_Cnt_" job(s)") . Do ..reLog.Lines.Add("") . Do ..reLog.Lines.Add($C(9)_"Line(s) picked:") . Do ..reLog.Lines.Add($C(9)_"- average: "_(LPSum\Cnt)) . Do ..reLog.Lines.Add($C(9)_"- maximum: "_MaxLP) Do ..reLog.Lines.EndUpdate() ;End of user code s Args=$lb(Sender) q ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal cache 0 document literal cache 0 document literal 0) Do . Set ..cbbDate.ItemIndex=0 Do ..ShowMsg() Quit ]]> Date:%Library.String cache 0 document literal 0) ..cbbJob.ItemIndex=0 Do ..ShowMsg() Quit ]]> cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal %Library.CacheSerialState "%Library.TMFormClass" Address Form ComboBox1 Label1 cbbDate Label2 Panel1 cbbJob btnViewLog mmoLog btnTimeLine pbProgress reLog chkShowSimultaneous btnRefresh Button1 btnReload txtSearch chkSearchInJobs btnSearchInJobs pmLog pmiGoToJob pnlMsg lblMsg btnErrorJobs LastJob LastVolgNr btnUIMsgDown FormHandle REHandle btnUIMsgUp SpeedButton1 SpeedButton2 btnMsg btnMsgDown btnMsgUp btnErrorDown btnErrorUp chkAutoRefresh tmrRefresh btnLinesPicked frmLinesPicked btnMaxLineCnt btnClear