Error FRM-47100

[marlonpasquali]

Olá amigos. Preciso de uma ajuda.
Tenho um form onde mostro a foto do funcionário. As imagens estão salvas em um diretorio. Ocorre que quando não encontra a foto de algum funcionario, dá o erro FRM-47100 "Não é possível ler o arquivo de imagem"
Gostaria de desabilitar esta mensagem de erro. Como faço ?
a rotina está assim:

Selecionar tudo

:SYSTEM.MESSAGE_LEVEL:=25;         

IF photo_filename IS NOT NULL THEN  
  READ_IMAGE_FILE(photo_filename, 'JPG', 'PCN_AACP_VENDAS.FOTO');
  IF NOT FORM_SUCCESS THEN
    MESSAGE('Não encontrada a Foto para este funcionario.' ||photo_filename);
  END IF;
END IF;  

:SYSTEM.MESSAGE_LEVEL:=VLEVEL;

[victorpsl]

Monta o código fazendo um tratamento,

Selecionar tudo

declare
  msg_lv number := :system.message_level;
begin
  :system.message_level := 25;
  --
  if photo_filename is not null then
    read_image_file(photo_filename, 'JPG', 'PCN_AACP_VENDAS.FOTO');
      if not form_success then
        message('Não encontrada a Foto para este funcionario.'||photo_filename);
      end if;
  end if;
  --
  :system.message_level := msg_lv; 
exception
  when others then
    null;
end;

Tenta ai, e vê se funciona..!

[marlonpasquali]

Galera,
resolvi o problema colocando no gatilho a nivel de Form ON-ERROR o seguinte:

Selecionar tudo

DECLARE
  TIPO_ERRO   VARCHAR2(03) := ERROR_TYPE;
  CODIGO_ERRO NUMBER       := ERROR_CODE;
BEGIN
  IF (TIPO_ERRO = 'FRM') AND (CODIGO_ERRO = 47100) THEN
      NULL;
  END IF;
END;