Disparar Mensagem

[ny]

Pessoal
Preciso fazer disparar na tela uma mensagem quando digito um número negativo em um Text_Item avisando a impossibilidade quanto a números negativos...
Alguém poderia postar esse procedimento detalhadamente?

[Trevisolli]

Brother,

Seria isso?

Selecionar tudo

IF :BLOCO.CAMPO <0 
THEN
  MESSAGE('Negativo.');
  MESSAGE('Negativo.');
END IF;

Só não coloquei um RAISE, mas, vai da tua necessidade ou não de se interromper o processamento.

qualquer coisa, manda pra gente.

[dr_gori]

Eu sempre usei uma PROCEDURE que mostra um ALERT para o usuário com a mensagem. É mais "bonito" que repetir os MESSAGE :-/

[ny]

Ta e se eu colocar assim não da certo ... Também?


/* If :Bloco.Campo < 0 Then
Msg_Erro_Case ('()Peso não pode ser negativo','E', False);
End If;*/