DEFINE QUERY q-customer FOR cliente scrolling .
DEFINE BROWSE b-customer QUERY q-customer
    DISPLAY cliente.cod
        cliente.nome COLUMN-BGCOLOR 15 COLUMN-FGCOLOR 2
        cliente.sexo ENABLE nome WITH SIZE 70 BY 15 SCROLLABLE TITLE "Clientes".
OPEN QUERY q-customer FOR EACH cliente BY nome.

/*where cliente.nome begins 'o' */


DEFINE VARIABLE oi AS CHARACTER LABEL "Filtrar"
VIEW-AS FILL-IN.
DEFINE BUTTON b-ok LABEL '&OK'.

DEFINE BUTTON criar LABEL 'Novo cliente'.
DEFINE BUTTON atualizar LABEL 'Atualizar dados'.
DEFINE BUTTON deletar LABEL 'Deletar cliente'.

FORM b-customer WITH FRAME f-customer CENTERED 1 columns SIDE-LABELS.
FORM oi
     b-ok WITH FRAME f-customer CENTERED 2 columns SIDE-LABELS.
FORM criar
    atualizar
    deletar WITH FRAME f-customer CENTERED 3 columns SIDE-LABELS.


ON "choose":u OF b-ok in FRAME f-customer DO:
     OPEN QUERY q-customer FOR EACH cliente WHERE cliente.nome BEGINS oi:SCREEN-VALUE NO-LOCK.
     FORM b-customer WITH FRAME f-customer.
END.

ON "choose":u OF criar in FRAME f-customer DO:
    DEFINE VARIABLE nome AS CHARACTER.
    DEFINE VARIABLE sexo AS LOGICAL FORMAT "Masculino/Feminino".
   UPDATE nome sexo.


   /* pre processador ??? */

   CREATE cliente.
            UPDATE cliente.nome = nome.
            UPDATE cliente.sexo = sexo.


            /*Qual a diferença entre update e assign ? */
    OPEN QUERY q-customer FOR EACH cliente NO-LOCK BY nome.

END.

ON "choose":u OF atualizar  in FRAME f-customer DO:

    DEFINE VARIABLE nome AS CHARACTER.
    DEFINE VARIABLE sexo AS LOGICAL FORMAT "Masculino/Feminino".
   UPDATE nome sexo.

   CREATE cliente.
   ASSIGN
            cliente.nome = nome.
            cliente.sexo = sexo.

END.

ON "choose":u OF deletar  in FRAME f-customer DO:
    DEFINE VARIABLE cod AS DECIMAL LABEL 'Qual o código do cliente a ser deletado?' FORMAT 999.

    UPDATE cod.

    FIND FIRST cliente WHERE cliente.cod = cod NO-ERROR.

    IF NOT AVAILABLE cliente THEN DO:
        BELL.
        MESSAGE "Cliente com o código informado não existe"
        VIEW-AS ALERT-BOX WARNING TITLE "Erro ao deletar cliente".
    END.
    ELSE DO:
         DELETE cliente.

    END.

END.

UPDATE b-customer
       b-ok
       oi
       criar
       atualizar
       deletar WITH FRAME f-customer.