Boa tarde pessoal!
Seguinte, fiz uma aplicação no Forms e em um Trigger do botão coloquei o seguinte código
DECLARE
cursor dependencias is
select owner,constraint_name,constraint_type,table_name,r_owner,r_constraint_name
from all_constraints
-- into ow, cn, ct, tn, ro, rc
where constraint_type='R'
and r_constraint_name in (select constraint_name
from all_constraints
where constraint_type in ('P','U')
and table_name = :ALL_CONSTRAINTS.ENTRADA_PESQUISA);
BEGIN
if :ALL_CONSTRAINTS.ENTRADA_PESQUISA = 'NULL' then
admin.mostra_erro('PRG', 0, 'Entre com uma tabela válida!');
else
open dependencias;
<>
loop
fetch dependencias into :ALL_CONSTRAINTS.OWNER, :ALL_CONSTRAINTS.CONSTRAINT_NAME, :ALL_CONSTRAINTS.CONSTRAINT_TYPE, :ALL_CONSTRAINTS.TABLE_NAME, :ALL_CONSTRAINTS.R_OWNER, :ALL_CONSTRAINTS.R_CONSTRAINT_NAME;
exit when dependencias%notfound;
-- Se não tiver este diabo, nunca saira do primeiro registro da consulta!!
next_record;
end loop preenche_campos;
end if;
close dependencias;
END;
ou seja, no primeiro if, se o campo de texto estiver vazio, teoricamente era para da o erro descrito em “admin.mostra_erro”, que está em uma biblioteca aqui da empresa; contudo, nada é apresentado se eu deixar vazio. Alguma solução?
felipeg.
felipeg.
rudakmd
rudakmd
lordmaca
felipeg