BEGIN
IF :MARCA.EMPCOD IS NOT NULL THEN
SELECT EMPNOME
INTO :MARCA.TXT_EXIBIR
FROM EMPRESA
WHERE RPAD(EMPCOD,3) =RPAD(:MARCA.EMPCOD,3);
ELSE
:MARCA.TXT_EXIBIR := NULL;
END IF;
EXCEPTION WHEN NO_DATA_FOUND THEN
MENSAGEM('Empresa invalido! Pressione F9 para listar os empresa validos.');
:MARCA.EMPCOD :=NULL;
:MARCA.TXT_EXIBIR := NULL;
RAISE FORM_TRIGGER_FAILURE;
WHEN OTHERS THEN
MENSAGEM('Erro Desconhecido ao tentar validar A Empresa!'||CHR(100)||'Erro: '||SQLERRM);
END;
BEGIN
IF :MARCA.EMPCOD IS NOT NULL THEN
SELECT EMPNOME
INTO :MARCA.TXT_EXIBIR
FROM EMPRESA
WHERE RPAD(EMPCOD,3) =RPAD(:MARCA.EMPCOD,3);
ELSE
:MARCA.TXT_EXIBIR := NULL;
END IF;
EXCEPTION WHEN NO_DATA_FOUND THEN
MENSAGEM('Empresa invalido! Pressione F9 para listar os empresa validos.');
:MARCA.EMPCOD :=NULL;
:MARCA.TXT_EXIBIR := NULL;
RAISE FORM_TRIGGER_FAILURE;
WHEN OTHERS THEN
MENSAGEM('Erro Desconhecido ao tentar validar A Empresa!'||CHR(100)||'Erro: '||SQLERRM);
END;
como arrumo isso?
Arrumei tinha que mudar itens banco de dados na propriedades e colocava não vlw