1
|
DEFINE VARIABLE choice AS CHARACTER NO-UNDO FORMAT "x(50)"
|
2
|
LABEL "You have selected".
|
3
|
DEFINE VARIABLE idx AS INTEGER NO-UNDO.
|
4
|
DEFINE VARIABLE items AS CHARACTER NO-UNDO.
|
5
|
|
6
|
DEFINE VARIABLE rc AS LOGICAL NO-UNDO.
|
7
|
|
8
|
DEFINE FRAME b WITH SIZE 70 BY 6.
|
9
|
DEFINE FRAME c choice.
|
10
|
DEFINE FRAME y items.
|
11
|
|
12
|
DEFINE VARIABLE aitem AS CHARACTER NO-UNDO LABEL "Item to add".
|
13
|
DEFINE VARIABLE aval AS CHARACTER NO-UNDO LABEL "Value to add".
|
14
|
|
15
|
DEFINE FRAME z aitem SPACE(2) aval.
|
16
|
|
17
|
DEFINE VARIABLE hRS AS HANDLE NO-UNDO.
|
18
|
|
19
|
RUN P_Create_RS.
|
20
|
|
21
|
ENABLE ALL WITH FRAME b NO-LABELS TITLE "Please select an item".
|
22
|
ENABLE items WITH FRAME y NO-LABELS TITLE "Please specify item to delete" WIDTH 50.
|
23
|
ENABLE aitem aval WITH FRAME z TITLE "Please specify item(s) to add" WIDTH 50.
|
24
|
|
25
|
ON 'VALUE-CHANGED':U OF hRS
|
26
|
DO:
|
27
|
choice = SELF:SCREEN-VALUE.
|
28
|
DISPLAY choice WITH FRAME c SIDE-LABELS.
|
29
|
END.
|
30
|
|
31
|
ON RETURN OF items IN FRAME y DO:
|
32
|
ASSIGN FRAME y items.
|
33
|
MESSAGE items VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
|
34
|
rc = hRS:DELETE(items).
|
35
|
MESSAGE rc VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
|
36
|
END.
|
37
|
|
38
|
ON RETURN OF aval IN FRAME z DO:
|
39
|
ASSIGN FRAME z aitem aval.
|
40
|
MESSAGE aitem aval VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
|
41
|
rc = hRS:ADD-LAST(aitem, aval).
|
42
|
MESSAGE rc VIEW-AS ALERT-BOX INFORMATION BUTTONS OK.
|
43
|
END.
|
44
|
|
45
|
|
46
|
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW.
|
47
|
|
48
|
PROCEDURE P_Create_RS PRIVATE :
|
49
|
|
50
|
CREATE RADIO-SET hRS ASSIGN
|
51
|
HEIGHT-CHARS = 1
|
52
|
WIDTH-CHARS = 10.0
|
53
|
FRAME = FRAME b:HANDLE
|
54
|
HORIZONTAL = FALSE
|
55
|
BGCOLOR = 8
|
56
|
AUTO-RESIZE = TRUE
|
57
|
.
|
58
|
hRS:ADD-LAST("Item 1", "1").
|
59
|
hRS:ADD-LAST("Item 2", "2").
|
60
|
hRS:ADD-LAST("Item 3", "3").
|
61
|
|
62
|
END PROCEDURE.
|
63
|
|
64
|
|