[firebase-br] Log de Erros etc.. do end-user

[Mário Reis]

Boas tardes,

É mais uma questão aparentemente injustificavel. Como sabem criei uma Stored 
Procedure que carrega uma messagem de erro de um ficheiro de
Erros Execute Procedure MS_NO('APL011', 'Etc;Etc;Etc;) e de seguida levanta 
a Excepção STOP 'MSN_TXT..'.
Ora, até aqui tudo bem. Poré quando vou registar essa excepção num ficheiro 
não dá erro mas tb. não regista, assim:

BEGIN
 /* Procedure body */
 Select MSG_TXT, MSG_GRAV From APL_MSG
 Where Msg_No=:S_IN COLLATE PXW_INTL850 INTO :S_MSGTXT, :GRAV_ERR ;

  If (S_MSGTXT=' ') then
    Exception Stop 'Erro campo «Código Erro» vazio: ';
  Else
   S_MSGTXT = udf_format(S_MSGTXT, s_rpl );

    If (GRAV_ERR > 50) Then
     begin
      S_MSGTXT=S_IN||' - '||TRIM(S_MSGTXT);

   /*  INCONPRENSÍVEL!!! NÃO FUNCIONA EM NENHUM DOS CASOS*/
    /*  INSERT INTO GESTAO_LOG values(:S_IN,:S_MSGTXT,'i',CURRENT_USER, 
CURRENT_DATE, CURRENT_TIME);    */
      Execute Procedure LOG_INSERT(S_IN,S_MSGTXT ) ;

      Exception Stop S_MSGTXT ;
     end

  SUSPEND;
END

Alguem poderá ajudar?