[RESOLVIDO] Mensangens de erros ignoradas!

Seguinte, vamos trocar esse seu message.p, faz o seguinte comando, run utp/ut-msgs.p('show',17006,"Situação Invalida!~~O campo familia comercial é obrigatorio!").

Caro colega,

Testa está logica para ver se funciona:

Código:

/************************************************************************************

Programa .....: upc-cd0204

Data .........:

Cliente ......:                                                       

Programador ..: Eduardo B. Leite - EBLeite Consultoria - ebleite.consultoria@gmail.com

Objetivo .....: Validar informações da tabela item

************************************************************************************/

/********** Definicao de Parametros de entrada *************************************/

def input param p-ind-event                             as char                     no-undo.
def input param p-ind-object                            as char                     no-undo.
def input param p-wgh-object                            as handle                   no-undo.
def input param p-wgh-frame                             as widget-handle            no-undo.
def input param p-cod-table                             as char                     no-undo.
def input param p-row-table                             as rowid                    no-undo.
                                                       
/***********************************************************************************/
if  p-ind-event            = "validate"             and
    p-ind-object           = "viewer"               and
    p-wgh-object:file-name = "invwr/v35in172.w"     then do:

    run pi-valida-pedido.
    if return-value = "NOk" then
        return "NOk".

end.

/***********************************************************************************/
procedure pi-valida-pedido:

    run utp\ut-msgs.r (input "show",
                       input 17006,
                       input "Pedido Inexistente!" + "~~" +
                             "Pedido inexistente. Favor verificar.").
    return "NOk".

end procedure.

return "Ok".

Se não funcionar, a sua versão do TOTVS11 está com problema, aconselho abrir um chamado e relatar o problema. No VALIDATE não pode continuar, deveria parar desta maneira, em outros eventos já vi acontecer o que você relatou no EMS2, porém o Validate nunca tive problema.

Eu to achando que o problema dele está no message.p, por isso pedi pra usar o ut-msgs.p