DECLARE 
  dbmserrcode NUMBER; 
  dbmserrtext VARCHAR2(200); 
BEGIN 
   IF ERROR_CODE = 40401 THEN
      /* Botao confirmar premido com ecran vazio */
      sdf_informa ( ERROR_TYPE||'-'||to_char(ERROR_CODE)||':'||
		' N?o ha nada para gravar!' );
	RAISE form_trigger_failure;

   ELSIF  ERROR_CODE = 41000 THEN
      /* Func?o n?o disponivel */
      sdf_informa ( ERROR_TYPE||'-'||to_char(ERROR_CODE)||':'||
		' Tecla desactivada!' );
	RAISE form_trigger_failure;

   ELSIF  ERROR_CODE = 40100 THEN
      /* Usado o << no primeiro registo */
      sdf_informa ( ERROR_TYPE||'-'||to_char(ERROR_CODE)||':'||
		' N?o ha registos anteriores!' );
	RAISE form_trigger_failure;

   ELSIF ERROR_CODE = 40209 THEN
      /* A mascara n?o esta a ser respeitada */
      sdf_stop ( ERROR_TYPE||'-'||to_char(ERROR_CODE)||':'||
		' Caracteres invalidos no campo.'||CHR(13)||
		'Formato incorrecto!' );
	RAISE form_trigger_failure;

   ELSIF ERROR_CODE = 40212 THEN
      /* Valor invalido no campo */
      sdf_stop ( ERROR_TYPE||'-'||to_char(ERROR_CODE)||':'||
		' Valor invalido para este campo!');
	RAISE form_trigger_failure;

   ELSIF ERROR_CODE = 41051 THEN
      /* N?o pode criar records neste campo */
      sdf_aviso ( ERROR_TYPE||'-'||to_char(ERROR_CODE)||':'||
		' N?o pode inserir linhas neste ecr?!' );
	RAISE form_trigger_failure;

   ELSIF ERROR_CODE = 41830 THEN
      /* List of values contains no entries.*/
	sdf_aviso( ERROR_TYPE||'-'||to_char(ERROR_CODE)||':'||
	      ' N?o existe qualquer valor para escolher.');
	RAISE form_trigger_failure;

   ELSIF ERROR_CODE = 50016 THEN
      /* caracteres invalidos no campo */
      sdf_stop ( ERROR_TYPE||'-'||to_char(ERROR_CODE)||':'||
		' Caracteres invalidos no campo!' );
	RAISE form_trigger_failure;

   ELSIF ERROR_CODE = 40202 THEN
      /* campo obrigatorio nao preenchido */
      sdf_stop ( ERROR_TYPE||'-'||to_char(ERROR_CODE)||':'||
		' O campo deve ser preenchido!' );
	RAISE form_trigger_failure;

   ELSIF ERROR_CODE = 41004 THEN
      /* buttao << em QUERY-MODE */
      sdf_aviso ( ERROR_TYPE||'-'||to_char(ERROR_CODE)||':'||
		' Este but?o n?o pode ser usado aqui!' );
	RAISE form_trigger_failure;

   ELSIF ERROR_CODE = 40508 THEN
      /* registo nao inserido na base de dados */
      sdf_stop ( ERROR_TYPE||'-'||to_char(ERROR_CODE)||':'||
		' O registo n?o foi inserido na base de dados.'||CHR(13)||
		'Verifique se ja existe!');
	RAISE form_trigger_failure;

   ELSIF ERROR_CODE = 40735 THEN 
          /* Excepc?o n?o tratada */ 
      dbmserrcode := DBMS_ERROR_CODE; 
      dbmserrtext := DBMS_ERROR_TEXT; 
      IF dbmserrcode = -1400 THEN 
            /* ORA-01400 is "Mandatory column is NULL" */ 
          sdf_stop(to_char(dbmserrcode)||': '||
		' N?o preencheu um valor obrigatorio!'); 
      ELSIF  dbmserrcode = -02291 THEN
	    /* ORA-02291 is "Parent key not found" */
	  sdf_stop(to_char(dbmserrcode)||': '||
		' Este valor n?o e valido na Base de Dados!');
      ELSE 
            /* Escreve uma mensagem generica com a string de erro. */
          sdf_stop('Erro: '||ERROR_TYPE||'-'||to_char(ERROR_CODE)||':'||
		to_char(dbmserrcode)||': '||dbmserrtext);
	  RAISE form_trigger_failure;
      END IF; 

   ELSE 
       sdf_stop(ERROR_TYPE||'-'||TO_CHAR(ERROR_CODE)||': '||ERROR_TEXT);
       RAISE Form_trigger_failure;
   END IF;
END;