[RESOLVIDO] dúvida em EPC

bom dia estou implementando uma epc aqui no cp0301 para quando a pessoa criar a ordem de produção, após as validações dos campos, solicitar ao usuário a confirmação da criação da ordem. mesmo eu colocando o if, ele cadastra a op clicando em "Sim" ou "não".

Código:

ASSIGN l-resposta = YES.
IF p-ind-event  = "before-validate" AND
   p-ind-object = "viewer"    AND
   c-char      = "v04in271.w" THEN DO :
   
    MESSAGE "Confirma cadastro da OP" 
                            VIEW-AS ALERT-BOX QUESTION BUTTONS YES-NO TITLE "Mensagem" UPDATE l-resposta.
    IF l-resposta = NO THEN
            RETURN "NOk".
   
END.

:cry:

alguém tem alguma dica?


valew.

Bom dia Thiago.

Favor colocar assim e testar.

Código:

ASSIGN l-resposta = YES.
IF p-ind-event  = "before-validate" AND
   p-ind-object = "viewer"    AND
   c-char      = "v04in271.w" THEN DO :
   
    MESSAGE "Confirma cadastro da OP" 
                            VIEW-AS ALERT-BOX QUESTION BUTTONS YES-NO TITLE "Mensagem" UPDATE l-resposta.
    IF l-resposta = NO THEN DO:
            RETURN NO-APPLY.
    END.
   
END.

é o erro ainda persiste. ele cadastra mesmo clicando na opção não.

e ai, alguma dica ae?
:roll:

fiz assim e funcionou

Código:

iF p-ind-event = "before-validade"           AND
   p-ind-object = "viewer"          and 
   c-objeto  MATCHES "*v04in271.w*" THEN DO:    


   
END.             

    RETURN 'NOK'.

mas se eu fizer assim da erro.

Código:

ASSIGN l-ok = yes.
iF p-ind-event = "before-validade"           AND
    p-ind-object = "viewer"          and 
    c-objeto  MATCHES "*v04in271.w*" THEN DO:    
    ASSIGN l-ok = no.
END.             
IF l-ok THEN
    NEXT.
ELSE
    RETURN 'NOK'.

o que pode ser?


valewww :?