[RESOLVIDO] Incluir linha de erro/alerta no SHOWMESSAGE

Pessoal,
No re1001, na verdade no re1001b2 (item documento), quando clicamos no OK e há algum erro ou altera, aparece a tela SHOWMESSAGE.
Estou fazendo uma upc e após uma validação, queria incluir uma linha de erro no SHOWMESSAGE, alguém pode me ajudar?
Eu vou tentando também, se descobrir a solução eu posto aqui.
Obrigado.

Acho dificil voce conseguir caso a mensagem apresentada nao seja cadastrada,
teria que localizar o handle da descricao da mensagem e mesmo assim teria que completar a mensagem com a nova descricao.
Ok
Everton

Consegui fazer, há duas opções:
1 - Se for só pra mostrar uma mensgem no showmessage:

DEFINE TEMP-TABLE RowErrors NO-UNDO...
DEFINE VARIABLE hShowMsg as HANDLE NO-UNDO.

IF NOT VALID-HANDLE(hShowMsg) THEN
RUN utp\ShowMessage PERSISTENT SET hShowMsg.

RUN showMessages IN hShowMsg ( INPUT TABLE RowErrors ).

2 - Para incluir uma linha de erro e exibir no showmessage junto com outras mensagens de erro (que era meu objetivo):
FIND tt-epc WHERE cod-parameter = "Object-Handle" NO-LOCK NO-ERROR.
ASSIGN h-bo = WIDGET-HANDLE(tt-epc.val-parameter).

RUN _insertError in h-bo (input 18796,
input "EMS",
input "ERROR",
input "").

Obrigado, Bruno

Everton,

Para fazer com uma mensagem específica, sem usar uma mensagem padrão do EMS, teria que fazer semelhante ao escrito acima, passando os seguintes parametros:

RUN _insertError in h-bo (input 17006,
input "EMS",
input "ERROR",
input "MENSAGEM 1 ~~ MENSGEM 2").

Obrigado pelo retorno,
Bruno