fixes bug#24160

qua:
dev:Valdevir


git-svn-id: http://desenvolvimento.rjconsultores.com.br/repositorio/sco/BD/FlyWay/trunk@111888 d1611594-4594-4d17-8e1d-87c2c4800839
master
valdevir 2022-04-13 21:54:18 +00:00
parent c7cc412184
commit 10d920b3b9
1 changed files with 31 additions and 0 deletions

View File

@ -0,0 +1,31 @@
declare
object_exists exception;
except_01451 exception;
except_01442 exception;
pragma exception_init (object_exists , -01430);
pragma exception_init (except_01451 , -01451);
pragma exception_init (except_01442 , -01442);
begin
execute immediate 'ALTER TABLE EMPRESA ADD INDAGRUPLOCCONEXAO NUMBER(1,0)';
exception
when object_exists then null;
when except_01451 then null;
when except_01442 then null;
end;
/
declare
dup_val_on_index exception;
except_02291 exception;
pragma exception_init (dup_val_on_index , -00001);
pragma exception_init (except_02291 , -02291);
begin
execute immediate 'INSERT INTO FUNCION_SISTEMA (FUNCIONSISTEMA_ID, SISTEMA_ID, NOMBFUNCION, DESCRUTA, ACTIVO, FECMODIF, USUARIO_ID)
VALUES (FUNCION_SISTEMA_SEQ.nextval, 1, ''ADM > RELATORIOS > OPERACIONAIS >> RELATORIO IRK'',
''COM.RJCONSULTORES.ADMINISTRACION.GUI.RELATORIOS.MENU.RELATORIOIRK'', 1,
SYSDATE, -1)';
exception
when dup_val_on_index then null;
when except_02291 then null;
end;