RADIO-SET

/******************** STATEMENTS**************************************
**
** & (RADIO-SET)
** E possivel usar teclas de atalho no
** RADIO-SET.
**
**********************************************************************/

Código:

DEF BUTTON BT-FIM LABEL "FI&M".

DEF VAR ORDEM AS INTEGER 
    VIEW-AS RADIO-SET
    RADIO-BUTTONS "C&ODIGO", 1, 
                  "NO&ME", 2,
                  "BA&LANCE", 3 HORIZONTAL.         
                  
DEF QUERY  Q-CUST FOR CUSTOMER.  

DEF BROWSE B-CUST QUERY Q-CUST
    DISPLAY CUSTOMER.CUST-NUM
            CUSTOMER.NAME
            CUSTOMER.BALANCE
            WITH SIZE 45.5 BY 6 SEPARATORS. 
            
OPEN QUERY Q-CUST FOR EACH CUSTOMER.    

DEFINE FRAME A   
   B-CUST SKIP(1)
   SPACE(2) ORDEM BT-FIM SKIP(1)
   WITH CENTERED SIDE-LABEL ROW 3.
   
DISP B-CUST ORDEM BT-FIM WITH FRAME A.   

ENABLE ALL WITH FRAME A. 

ON VALUE-CHANGED OF ORDEM
DO: 
   CASE ORDEM:SCREEN-VALUE:
       WHEN  "1" THEN
           OPEN QUERY Q-CUST FOR EACH CUSTOMER.
       WHEN  "2" THEN
           OPEN QUERY Q-CUST FOR EACH CUSTOMER 
                USE-INDEX NAME.
       OTHERWISE                                            
           OPEN QUERY Q-CUST FOR EACH CUSTOMER
                BY CUSTOMER.BALANCE. 
   END CASE.             
END.                               

WAIT-FOR CHOOSE OF BT-FIM.