LABEL, FORMAT E TITLE

/******************** STATEMENTS**************************************
**
** LABEL, FORMAT E TITLE (DEF BROWSE...)
** Na sua definicao do BROWSE, utilize
** o LABEL, FORMAT e TITLE conforme e
** tambem utilizado no DEFINE FRAME e no
** FORM.
**
**********************************************************************/

Código:

DEF BUTTON bt-fim LABEL "&Ok".
DEF QUERY  q-cust FOR CUSTOMER.
DEF BROWSE b-cust QUERY q-cust
  DISPLAY
  customer.cust-num       LABEL "CODIGO" 
  customer.name           LABEL "NOME"
  customer.credit-limit   LABEL "CREDITO"
                          FORMAT ">,>>>,>>9.99"
  customer.credit-limit * 0.30 LABEL "30% CRED"
  customer.credit-limit * 1.30 LABEL "CRED+30%"
  WITH SIZE 66.3 BY 6 SEPARATORS TITLE "CLIENTES".
OPEN QUERY q-cust
      FOR EACH customer.
DEFINE FRAME a
        SKIP(1)
        b-cust SKIP(1)
        bt-fim
        WITH CENTERED ROW 3
        TITLE "BROWSE DA TABELA CUSTOMER".
DISPLAY b-cust bt-fim WITH FRAME a.
ENABLE ALL WITH FRAME a.
WAIT-FOR CHOOSE OF bt-fim.