EXCEPT... (ENABLE)

/******************** STATEMENTS**********************************
**
** EXCEPT... (ENABLE)
** Excetua as widgets quanto a ENABLE.
**
**********************************************************************/

Código:

DEFINE BUTTON   bt-fim       LABEL "&Fim".  
DEFINE BUTTON   bt-primeiro  LABEL "&Primeiro".  
DEFINE BUTTON   bt-proximo   LABEL "P&roximo".  
DEFINE BUTTON   bt-anterior  LABEL "A&nterior".
DEFINE BUTTON   bt-ultimo    LABEL "&Ultimo".    

DEFINE FRAME f-tela
       customer.name  AT ROW  03 COLUMN 20
       bt-fim         AT ROW  05 COLUMN 10       
       bt-primeiro    AT ROW  05 COLUMN 20              
       bt-proximo     AT ROW  05 COLUMN 30              
       bt-anterior    AT ROW  05 COLUMN 40              
       bt-ultimo      AT ROW  05 COLUMN 50                     
       WITH TITLE "CLIENTES" SIDE-LABELS
       SIZE 70 BY 10 CENTERED ROW 4. 
       
ENABLE  ALL EXCEPT customer.name      
        WITH FRAME f-tela.    
             
FIND FIRST customer.
   APPLY "U1" TO BT-FIM.

ON U1 OF BT-FIM
DO:
      DISPLAY customer.name 
          WITH FRAME f-tela. 
END.

ON CHOOSE OF bt-primeiro
  DO:
   FIND FIRST customer.
   APPLY "U1" TO BT-FIM.
END. 

ON CHOOSE OF bt-proximo
  DO:
   FIND NEXT customer.
   APPLY "U1" TO BT-FIM.
  END. 
   
ON CHOOSE OF bt-anterior
  DO:
   FIND PREV customer.
   APPLY "U1" TO BT-FIM.
  END. 
   
ON CHOOSE OF bt-ultimo
  DO:
   FIND LAST customer.              
   APPLY "U1" TO BT-FIM.
  END. 

    

WAIT-FOR CHOOSE OF BT-FIM.