Outro Exemplo de Query

Código:

DEF BUTTON bt-fim LABEL "&Ok".
DEF QUERY q-cust FOR customer, order, 
                     order-line, item.
DEF BROWSE b-cust QUERY q-cust
 DISPLAY customer.cust-num
         customer.name
         order.order-num
         order.order-date
         order-line.item-num
         item.item-name
         WITH SIZE 78 BY 10.
OPEN QUERY q-cust
      FOR EACH customer, 
          EACH order OF customer,
          EACH order-line OF order,
          EACH item OF order-line.                           
DEFINE FRAME a
       b-cust SKIP(2)
       bt-fim
       WITH ROW 4. 
DISPLAY  b-cust bt-fim WITH FRAME a.
ENABLE ALL WITH FRAME a.
WAIT-FOR CHOOSE OF bt-fim.