Kbase P14255: How to use Database fields to build a RADIO SET widget
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
30/01/2003 |
|
Status: Unverified
GOAL:
How to use Database fields to build a RADIO SET widget
FIX:
Below is an example of some code that would use database fields to build a RADIO-SET widget in the UIB.
Since the UIB won't allow you to start with a radio set with no items in it, this example assumes that to start you have a radio set with only one item, called "Item 1".
This serves as a placeholder until you're ready to delete it and load the items you want.
Notice also that as you add each new item to the radio set you must increase its height.
DEF VAR x AS LOGICAL.
DEF VAR i AS INTEGER.
/* first delete the item already there */
x = radio-set-1:DELETE("Item 1").
i = 1.
FOR EACH salesrep NO-LOCK:
x = radio-set-1:ADD-LAST(salesrep.sales-rep, i).
radio-set-1:HEIGHT-CHARS = radio-set:HEIGHT-CHARS + 1.
i = i + 1.
END.