browse_num_entries2.p
| 1 |
define temp-table tt |
|---|---|
| 2 |
field tt-id as integer |
| 3 |
field tt-desc as character. |
| 4 |
|
| 5 |
def var i as integer. |
| 6 |
repeat i = 1 to 20: |
| 7 |
create tt. tt.tt-id = i. tt.tt-desc = "desc " + string(i). |
| 8 |
end. |
| 9 |
|
| 10 |
define buffer mybf for tt. |
| 11 |
define query myqr for mybf scrolling. |
| 12 |
|
| 13 |
define browse mybr query myqr |
| 14 |
display |
| 15 |
mybf.tt-id |
| 16 |
mybf.tt-desc |
| 17 |
with size 40 by 10. |
| 18 |
|
| 19 |
define frame myfr |
| 20 |
mybr |
| 21 |
with |
| 22 |
title "Title". |
| 23 |
|
| 24 |
open query myqr for each mybf. |
| 25 |
enable all with frame myfr. |
| 26 |
|
| 27 |
reposition myqr to row 18. |
| 28 |
message browse mybr:num-entries. |
| 29 |
|
| 30 |
wait-for close of current-window. |