NUM-LOCKED-COLUMNS

/******************** STATEMENTS**************************************
**
** objeto-1:NUM-LOCKED-COLUMNS = n
** Permite que n colunas fiquem fixas
** para o scrollbar-horizontal.
**
**********************************************************************/

Código:

DEFINE QUERY q-cust FOR customer SCROLLING.
DEFINE BROWSE b-cust QUERY q-cust 
       DISPLAY customer.cust-num 
               customer.name
               customer.address 
               customer.address2
               customer.city
               customer.state
               customer.postal-code
               customer.country
               customer.contact
               customer.phone
               customer.sales-rep
               customer.credit-limit
               customer.balance                      
       ENABLE  ALL 
       WITH SEPARATORS SIZE 54 BY 10
       TITLE "Atualizacao de Clientes".
       
DEFINE FRAME f-cust
       b-cust
       WITH SIDE-LABELS AT ROW 2 COLUMN 10 NO-BOX.
       
ASSIGN b-cust:NUM-LOCKED-COLUMNS = 2.

OPEN QUERY q-cust FOR EACH customer NO-LOCK.
ENABLE ALL WITH FRAME f-cust.
WAIT-FOR WINDOW-CLOSE OF CURRENT-WINDOW.