Induction Mode (Modo de Inducao)

/******************** STATEMENTS**************************************
**
** Induction Mode (Modo de Inducao)
** O padrao universal for windows,
** sugere que o usuario deve interagir
** sozinho com a interface, necessitan-
** o minimo de treinamento. Para tanto
** precisa ser induzido a interagir.
**
**********************************************************************/

Código:

DEF BUTTON bt-fim LABEL "&Ok".
DEF QUERY q-cust FOR customer.
DEF QUERY q-order FOR order.         
DEF BROWSE b-cust QUERY q-cust
    DISPLAY customer.cust-num
            customer.name
            WITH 8 DOWN.  
DEF BROWSE b-order QUERY q-order
    DISPLAY order.order-num
            order.order-date
            WITH 8 DOWN.         
OPEN QUERY q-cust FOR EACH customer.
DISPLAY b-cust b-order SKIP(2)
        bt-fim
        WITH FRAME A  CENTERED ROW 4.
ENABLE ALL WITH FRAME A.
B-order:HIDDEN = YES.
ON VALUE-CHANGED OF b-cust
DO:
   b-order:HIDDEN = NO.   
   OPEN QUERY q-order FOR EACH order OF customer.
END.
WAIT-FOR CHOOSE OF bt-fim.