VIEW-AS ALERT-BOX ERROR

/******************** STATEMENTS**************************************
**
** VIEW-AS ALERT-BOX ERROR (MESSAGE...)
** Faz surgir o icon de erro do windows.
**
**********************************************************************/

Código:

DEF BUTTON bt-fim LABEL "&Ok"
         SIZE 20 BY 1.
DEF QUERY q-cust  FOR customer.
DEF QUERY q-order FOR order.       
DEF QUERY q-order-line FOR order-line, item.           
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.   
DEF BROWSE b-order-line QUERY q-order-line
    DISPLAY order-line.item-num 
            item.item-name
            WITH 8 DOWN.                   
OPEN QUERY q-cust FOR EACH customer.
DEFINE FRAME a
    b-cust b-order b-order-line
    SKIP(2)  bt-fim  AT ROW 10  COLUMN 4
    SKIP(1)  WITH CENTERED ROW 1
    VIEW-AS DIALOG-BOX SIZE 87.2 BY 13.
DISPLAY b-cust b-order b-order-line
        bt-fim WITH FRAME a.
ENABLE ALL WITH FRAME a.
ASSIGN b-order:HIDDEN      = YES
       b-order-line:HIDDEN = YES. 
ON VALUE-CHANGED OF b-cust
DO:                                     
   FIND FIRST order OF customer NO-ERROR.
   IF AVAIL order THEN
   DO:
          ASSIGN b-order:HIDDEN      = NO 
                 b-order-line:HIDDEN = NO .   
          OPEN QUERY q-order
                 FOR EACH order OF customer.                    
          APPLY "VALUE-CHANGED" TO  b-order.
   END.     
   ELSE DO:
          ASSIGN b-order:HIDDEN      = YES 
               b-order-line:HIDDEN = YES .              
          MESSAGE "CLIENTE SEM PEDIDO"
               VIEW-AS ALERT-BOX ERROR.
    END.                  
END.                                                            
ON VALUE-CHANGED OF b-order
DO:
  OPEN QUERY q-order-line
        FOR EACH order-line OF order,
            EACH item OF order-line.
END.
WAIT-FOR CHOOSE OF bt-fim.