SEPARATORS (DEFINE BROWSE...)

/******************** STATEMENTS**************************************
**
** SEPARATORS (DEFINE BROWSE...)
** E um elemento estetico para o BROWSE
** e que produz um efeito visual seme-
** lhante a uma planilha eletronica.
**
** TITLE (DEFINE BROWSE...)
** E possivel tambem colocar titulos
** em um BROWSE.
**
**********************************************************************/

Código:

DEF QUERY  q-cust FOR customer.     

DEF BROWSE b-cust QUERY q-cust
    DISPLAY customer.cust-num
            customer.name 
            WITH SIZE 33 BY 9.2 SEPARATORS
            TITLE "CLIENTES". 
            
OPEN QUERY q-cust FOR EACH customer.    

DEF BUTTON bt-fim LABEL "FI&M".

DEFINE FRAME A   
   b-cust SKIP(1)
   SPACE(10) bt-fim SKIP(1)
   WITH CENTERED SIDE-LABEL
   ROW 2 .
   
DISP b-cust bt-fim WITH FRAME A.   

ENABLE ALL WITH FRAME A.  
WAIT-FOR CHOOSE OF bt-fim.