[RESOLVIDO] Criar Alerta para solicitante

Boa tarde,


Estou com um duvida

Atualmente estamos tendo um problema com quantidade de itens por requisiçao/solicitaçao,
A pedido do nucleo de suprimentos gostaríamos de impor um limite de 15 itens por requisiçao/solicitaçao no CD1406

ja seria mais que útil se ao inserir o item , fosse apresentada uma mensagem de alerta informando ao solicitante que o limite de itens foi excedido nessa requisiçao/solicitaçao (CD1406A)

Gostaria de auxilio nesse procedimento pois o produto padrao EMS206 nao fornece essa "barreira" para o solicitante.

desde ja agradeço

Boa tarde,

Venho deixar um exemplo do que consegui ate o momento, acredito que sera o suficiente para o aviso

************************************************************************************
FIND it-requisicao
where it-requisicao.sequencia = INTEGER(h-cd1406a1-sequencia:SCREEN-VALUE)
NO-LOCK NO-ERROR.
if INTEGER(h-cd1406a1-sequencia:SCREEN-VALUE) >= 151 then do:
MESSAGE "Linha de Mensagem" SKIP

VIEW-AS ALERT-BOX INFO BUTTON OK.

RETURN 'NOK':U.
END.


if h-cd1406a1-sequencia:SCREEN-VALUE MATCHES "1*" OR
h-cd1406a1-sequencia:SCREEN-VALUE MATCHES "2*" OR
h-cd1406a1-sequencia:SCREEN-VALUE MATCHES "3*" OR
h-cd1406a1-sequencia:SCREEN-VALUE MATCHES "3*" OR
h-cd1406a1-sequencia:SCREEN-VALUE MATCHES "5*" OR
h-cd1406a1-sequencia:SCREEN-VALUE MATCHES "6*" OR
h-cd1406a1-sequencia:SCREEN-VALUE MATCHES "7*" OR
h-cd1406a1-sequencia:SCREEN-VALUE MATCHES "8*" OR
h-cd1406a1-sequencia:SCREEN-VALUE MATCHES "9*" then do:


MESSAGE "Sequencia Invalida !" SKIP
"Linha de Mensagem!" SKIP

VIEW-AS ALERT-BOX INFO BUTTON OK.
RETURN 'NOK':U.
END.
****************************************************************************************

De maneira meio "grosseira" mas foi a forma que encontrei pra o que queria