ENABLE

Solicitar digitação de dados em tabela ou variável. Usuário digita dados no buffer de tela. Este comando é uma alternativa mais moderna ao UPDATE.


/* exemplo 1 - solicitar todos campos da tabela customer para digitação */
ENABLE customer.

/* exemplo 2 - solicitar apenas o campo custnum */
ENABLE customer.custnum.

/* exemplo 3 - solicitar uma variábel */
ENABLE codigo.

ENABLE

Solicitar leitura de uma variável ou tabela.


DEF VAR teste AS CHAR.

ENABLE teste.

ON RETURN OF 'teste':
    ASSIGN teste.
END.

WAIT-FOR 'f4' OF CURRENT-WINDOW OR
         'return' OF CURRENT-WINDOW.

MESSAGE KEYFUNCTION(LASTKEY) teste.

BROWSE

Definir uma estrutura para apresentar query e permitir navegação. Cursor-up/down, Page-up/down.


DEF QUERY q1 FOR customer.

DEF BROWSE b1 QUERY q1
    DISP customer.CustNum customer.Name 
    WITH 12 DOWN SEPARATORS CENTERED DCOLOR 05 NO-BOX OVERLAY.

DEF FRAME t1
    b1 HELP "Teclar    page-up/down    cursor-up/down"
    WITH TITLE " Customers " CENTERED OVERLAY.

OPEN QUERY q1 FOR EACH customer NO-LOCK.

ENABLE ALL WITH FRAME t1.

APPLY 'ENTRY' TO b1 IN FRAME t1.

WAIT-FOR 'f4' OF FRAME t1.