dialog.p
1 |
DEFINE VARIABLE roomRate AS DECIMAL INITIAL 0 |
---|---|
2 |
LABEL "Rate for Day" |
3 |
NO-UNDO. |
4 |
|
5 |
DEFINE VARIABLE roomRate2 AS character FORMAT "x(12)" |
6 |
LABEL "Rate for Day2" |
7 |
NO-UNDO. |
8 |
|
9 |
DEFINE FRAME gDialog |
10 |
roomRate AT ROW 6 COL 15.2 COLON-ALIGNED WIDGET-ID 8 |
11 |
SPACE(15.79) SKIP(3.03) |
12 |
roomRate2 |
13 |
WITH VIEW-AS DIALOG-BOX KEEP-TAB-ORDER |
14 |
SIDE-LABELS NO-UNDERLINE THREE-D SCROLLABLE |
15 |
TITLE "Update Rate". |
16 |
|
17 |
PROCEDURE enable_UI : |
18 |
DISPLAY roomRate roomRate2 |
19 |
WITH FRAME gDialog. |
20 |
ENABLE roomRate roomRate2 |
21 |
WITH FRAME gDialog. |
22 |
roomRate:format = "$ >>>,>>9.99". |
23 |
roomRate2:screen-value = roomRate:screen-value. |
24 |
|
25 |
VIEW FRAME gDialog. |
26 |
|
27 |
END PROCEDURE. |
28 |
|
29 |
MAIN-BLOCK: |
30 |
DO ON ERROR UNDO MAIN-BLOCK, LEAVE MAIN-BLOCK |
31 |
ON END-KEY UNDO MAIN-BLOCK, LEAVE MAIN-BLOCK: |
32 |
RUN enable_UI. |
33 |
WAIT-FOR GO OF FRAME gDialog . |
34 |
END. |