6720_5.p
| 1 |
DEFINE VARIABLE qh AS HANDLE. |
|---|---|
| 2 |
DEFINE BUTTON btS LABEL "next". |
| 3 |
DEFINE FRAME f |
| 4 |
btS. |
| 5 |
def buffer b1 for t3. |
| 6 |
|
| 7 |
CREATE QUERY qh. |
| 8 |
qh:SET-BUFFERS(BUFFER b1:HANDLE). |
| 9 |
qh:QUERY-PREPARE("FOR EACH b1 WHERE f1_____ > 1").
|
| 10 |
qh:QUERY-OPEN. |
| 11 |
qh:get-next. |
| 12 |
find next t3 where t3.f1 > 1 no-lock. |
| 13 |
|
| 14 |
buffer-copy b1 to t3. |
| 15 |
qh:get-next. |
| 16 |
|
| 17 |
on choose of btS IN FRAME f do: |
| 18 |
find next t3 where t3.f1 > 1 no-lock no-error. |
| 19 |
message available(t3). |
| 20 |
end. |
| 21 |
|
| 22 |
ENABLE btS WITH FRAME f. |
| 23 |
|
| 24 |
|
| 25 |
WAIT-FOR CLOSE OF CURRENT-WINDOW. |