VIEW-AS RADIO-SET, VALUE-CHANGED

/******************** STATEMENTS**************************************
**
** VIEW-AS RADIO-SET (DEFINE VARIABLE...)
** Radio-set e uma widget. E uma forma de
** representar dados na interface. Vem
** de radio, pois em um radio nao e
** possivel ouvir mais de uma estacao
** por vez. Em um RADIO-SET, somente
** uma e somente uma opcao e verdade.
**
** VALUE-CHANGED (Event) (RADIO-SET)
** E o evento default do RADIO-SET. Sig-
** nifica que voce mudou de opcao no
** RADIO-SET.
**
**********************************************************************/

Código:

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

DEF VAR ordem AS INTEGER 
    VIEW-AS RADIO-SET
    RADIO-BUTTONS "CODIGO", 1, 
                  "NOME", 2,
                  "BALANCE", 3.     
                  
DEF QUERY  q-cust FOR CUSTOMER.  

DEF BROWSE b-cust QUERY Q-CUST
    DISPLAY customer.cust-num
            customer.name
            customer.balance
            WITH SIZE 46.7 BY 8 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 4.
   
DISP B-CUST ordem BT-FIM WITH FRAME A.   

ENABLE ALL WITH FRAME A. 

ON VALUE-CHANGED OF ordem
DO: 
   ASSIGN ordem.
   IF ordem = 1 THEN
     OPEN QUERY Q-CUST FOR EACH CUSTOMER.
   ELSE  
   IF ordem = 2 THEN
     OPEN QUERY Q-CUST 
         FOR EACH CUSTOMER 
         USE-INDEX NAME.
   ELSE                                             
     OPEN QUERY Q-CUST FOR EACH 
       CUSTOMER BY CUSTOMER.BALANCE.
END. 
WAIT-FOR CHOOSE OF BT-FIM.