[Progress Communities] [Progress OpenEdge ABL] Forum Post: RE: ABL(old) Form: Searching for an user tag/id in an static browser definition

[goo]

Not sure what you really want, but depending on how dynamic you want it to be, you can do something like this to travers either frame or the browse columns …. //Geir Otto /*------------------------------------------------------------------------ File : browse_test.p Purpose : Syntax : Description : Author(s) : goo_000 Created : Fri Feb 28 10:47:13 CET 2020 Notes : ----------------------------------------------------------------------*/ /* *************************** Definitions ************************** */ BLOCK-LEVEL ON ERROR UNDO , THROW . /* ******************** Preprocessor Definitions ******************** */ /* *************************** Main Block *************************** */ def temp-table tt no-undo field field1 as char field field2 as char . def var x as char format 'x(30)' view-as FILL-IN . def var B as char format 'x(30)' view-as FILL-IN . def var colName as char no-undo . def var ii as int no-undo . DEFINE QUERY b1 FOR tt SCROLLING . def browse b1 query b1 display field1 field2 WITH NO-ROW-MARKERS SEPARATORS SIZE 113 BY 7 . 38 FIT-LAST-COLUMN . def var mapFields as handle extent no-undo . def frame frame1 x at row 1 col 10 b at row 2 col 10 b1 at row 3 col 1 with size 80 by 20 SIDE-LABELS . on 'value-changed' of browse b1 do : do ii = 1 to extent (mapFields): mapFields[ii]: screen-value = browse b1: get-browse-column (ii): screen-value . end . end . /* xRIVATE-DATA = 'field1'.*/ /* brivate-data = 'field2'.*/ create tt. assign tt.field1 = 'aaaa' tt.field2 = 'bbb' . create tt. assign tt.field1 = 'ccc' tt.field2 = 'dddddd' . OPEN QUERY b1 FOR EACH tt. enable all with frame frame1. extent (mapFields) = browse b1: num-columns . do ii = 1 to browse b1: num-columns : colName = browse b1: GET-BROWSE-COLUMN (ii): name . case colname: when 'field1' then mapFields[ii] = x : handle in frame frame1. when 'field2' then mapFields[ii] = b: handle in frame frame1. end case . end . x : screen-value in frame frame1 = 'Hello world' . wait-for close of this-procedure .

Continue reading...