1
|
DEFINE BUTTON Btn_Cancel AUTO-END-KEY
|
2
|
LABEL "Cancel"
|
3
|
SIZE 15 BY 1.14.
|
4
|
|
5
|
DEFINE BUTTON Btn_OK AUTO-GO
|
6
|
LABEL "Update"
|
7
|
SIZE 15 BY 1.14.
|
8
|
|
9
|
DEFINE BUTTON endDatePicker
|
10
|
IMAGE-UP FILE "graphics/calendar.bmp":U
|
11
|
IMAGE-INSENSITIVE FILE "graphics/calendar-disabled.bmp":U NO-FOCUS
|
12
|
LABEL ""
|
13
|
SIZE 6 BY 1.19.
|
14
|
|
15
|
DEFINE BUTTON startDatePicker
|
16
|
IMAGE-UP FILE "graphics/calendar.bmp":U
|
17
|
IMAGE-INSENSITIVE FILE "graphics/calendar-disabled.bmp":U NO-FOCUS
|
18
|
LABEL ""
|
19
|
SIZE 6 BY 1.19.
|
20
|
|
21
|
DEFINE VARIABLE roomType AS CHARACTER FORMAT "X(256)":U
|
22
|
LABEL "Room Type"
|
23
|
VIEW-AS COMBO-BOX INNER-LINES 5
|
24
|
LIST-ITEM-PAIRS "Item 1","Item 1"
|
25
|
DROP-DOWN-LIST
|
26
|
SIZE 34 BY 1 NO-UNDO.
|
27
|
|
28
|
DEFINE VARIABLE endDate AS DATE FORMAT "99/99/99":U
|
29
|
LABEL "End Date (incl.)"
|
30
|
VIEW-AS FILL-IN
|
31
|
SIZE 14 BY 1 NO-UNDO.
|
32
|
|
33
|
DEFINE VARIABLE roomRate AS DECIMAL FORMAT ">>>,>>9.99":U INITIAL 0
|
34
|
LABEL "Rate for Day ($)"
|
35
|
VIEW-AS FILL-IN
|
36
|
SIZE 14 BY 1 NO-UNDO.
|
37
|
|
38
|
DEFINE VARIABLE startDate AS DATE FORMAT "99/99/99":U
|
39
|
LABEL "Start Date"
|
40
|
VIEW-AS FILL-IN
|
41
|
SIZE 14 BY 1 NO-UNDO.
|
42
|
|
43
|
DEFINE FRAME gDialog
|
44
|
startDatePicker AT ROW 2.91 COL 32.8 WIDGET-ID 12
|
45
|
endDatePicker AT ROW 4.43 COL 32.8 WIDGET-ID 14
|
46
|
roomType AT ROW 1.48 COL 15.2 COLON-ALIGNED WIDGET-ID 2
|
47
|
startDate AT ROW 3 COL 15.2 COLON-ALIGNED WIDGET-ID 4
|
48
|
endDate AT ROW 4.52 COL 15.2 COLON-ALIGNED WIDGET-ID 6
|
49
|
roomRate AT ROW 6 COL 15.2 COLON-ALIGNED WIDGET-ID 8
|
50
|
Btn_OK AT ROW 8.14 COL 3
|
51
|
Btn_Cancel AT ROW 8.14 COL 20
|
52
|
"$" VIEW-AS TEXT
|
53
|
SIZE 8 BY .62 AT ROW 6.1 COL 31 WIDGET-ID 10
|
54
|
SPACE(15.79) SKIP(3.03)
|
55
|
WITH VIEW-AS DIALOG-BOX KEEP-TAB-ORDER
|
56
|
SIDE-LABELS NO-UNDERLINE THREE-D SCROLLABLE
|
57
|
// FONT 8
|
58
|
TITLE "Update Rate"
|
59
|
DEFAULT-BUTTON Btn_OK CANCEL-BUTTON Btn_Cancel WIDGET-ID 100.
|
60
|
|
61
|
PROCEDURE enable_UI :
|
62
|
/*------------------------------------------------------------------------------
|
63
|
Purpose: ENABLE the User Interface
|
64
|
Parameters: <none>
|
65
|
Notes: Here we display/view/enable the widgets in the
|
66
|
user-interface. In addition, OPEN all queries
|
67
|
associated with each FRAME and BROWSE.
|
68
|
These statements here are based on the "Other
|
69
|
Settings" section of the widget Property Sheets.
|
70
|
------------------------------------------------------------------------------*/
|
71
|
DISPLAY roomType startDate endDate roomRate
|
72
|
WITH FRAME gDialog.
|
73
|
ENABLE startDatePicker endDatePicker roomType startDate endDate roomRate
|
74
|
Btn_OK Btn_Cancel
|
75
|
WITH FRAME gDialog.
|
76
|
VIEW FRAME gDialog.
|
77
|
|
78
|
END PROCEDURE.
|
79
|
|
80
|
/* Now enable the interface and wait for the exit condition. */
|
81
|
/* (NOTE: handle ERROR and END-KEY so cleanup code will always fire. */
|
82
|
MAIN-BLOCK:
|
83
|
DO ON ERROR UNDO MAIN-BLOCK, LEAVE MAIN-BLOCK
|
84
|
ON END-KEY UNDO MAIN-BLOCK, LEAVE MAIN-BLOCK:
|
85
|
RUN enable_UI.
|
86
|
WAIT-FOR GO OF FRAME gDialog .
|
87
|
END.
|
88
|
|