CODEWITHSUNDEEP
progress-4glopenedge
Bhavin Bhaskaran
Bhavin Bhaskaran

Reputation: 582

Geeting Values from Browse and Create Temp Table

I have a dynamic Browser.It will populate values dynamicaly based on some input given through UI.

Now i wan to get the values displayed in that Browse and make a temp-table for that. please help

Upvotes: 0

Views: 3659

Answers (1)

Tom Bascom
Tom Bascom

Reputation: 14020

To add new values you first insert a new row into the temp-table and then arrange to update that row. The following code is ugly but it may serve to illustrate:

define temp-table tt_simple no-undo
  field id   as integer
  field name as character
  index id_idx is unique id
.

define variable r as integer no-undo.

define query q for tt_simple.

define browse b query q display tt_simple.name with 5 down.

form b with frame easy.

form
  tt_simple.name
 with
  frame updEasy
  column 30
  row 1
.

procedure newRecord:
  define input parameter initName as character no-undo.
  create tt_simple.
  assign
    r    = r + 1
    id   = r
    name = initName
  .
end.

run newRecord( "abc" ).
run newRecord( "xyz" ).

on "enter" of b in frame easy do:
  apply "entry" to tt_simple.name in frame updEasy.
  return no-apply.
end.

on "insert-mode", "CTRL-I" anywhere do:
  run newRecord( "" ).
  close query q.
  open query q for each tt_simple.
  get last q.
  apply "entry" to tt_simple.name in frame updEasy.
  return no-apply.
end.

on "go" of tt_simple.name in frame updEasy do:
  tt_simple.name = self:screen-value.
  close query q.   
  open query q for each tt_simple.
  apply "entry" to b in frame easy.
  return no-apply.
end.

on "value-changed" of b in frame easy do:
  display tt_simple.name with frame updEasy.
end.

open query q for each tt_simple.

enable tt_simple.name with frame updEasy.
enable b with frame easy.
apply "entry" to b in frame easy.

wait-for "close" of this-procedure.

Upvotes: 4

Related Questions