0022815: Empresa Operadora - WebMobi /Arca

bug#22815
dev:valdevir
qua:

Alterações da ADM

git-svn-id: http://desenvolvimento.rjconsultores.com.br/repositorio/sco/BD/FlyWay/trunk@108383 d1611594-4594-4d17-8e1d-87c2c4800839
master
valdir 2021-08-19 13:16:13 +00:00
parent 8fc9364491
commit 5c54f685f7
2 changed files with 72 additions and 0 deletions

View File

@ -0,0 +1,49 @@
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 RUTA ADD STATUS_AUTORIZADORA NUMBER(2,0) ';
exception
when object_exists then null;
when except_01451 then null;
when except_01442 then null;
end;
/
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 RUTA_EMPRESA ADD EMPRESA_AUTORIZADORA_ID NUMBER(7,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,''2'',''ADM > ESQUEMA OPERACIONAL > MANUTENCAO OPERACAO DE LINHAS'',''COM.RJCONSULTORES.ADMINISTRACION.GUI.ESQUEMAOPERACIONAL.MENU.AUTORIZACAORUTA'',''1'',SYSDATE,''1'')';
exception
when dup_val_on_index then null;
when except_02291 then null;
end;

View File

@ -0,0 +1,23 @@
DO $$
BEGIN
ALTER TABLE RUTA ADD STATUS_AUTORIZADORA NUMBER(2,0);
EXCEPTION WHEN duplicate_column THEN NULL;
END
$$;
/
DO $$
BEGIN
ALTER TABLE RUTA_EMPRESA ADD EMPRESA_AUTORIZADORA_ID NUMBER(7,0);
EXCEPTION WHEN duplicate_column THEN NULL;
END
$$;
/
DO $$
BEGIN
insert into FUNCION_SISTEMA (FUNCIONSISTEMA_ID,SISTEMA_ID,NOMBFUNCION,DESCRUTA,ACTIVO,FECMODIF,USUARIO_ID)
values
(FUNCION_SISTEMA_SEQ.NEXTVAL,'2','ADM > ESQUEMA OPERACIONAL > MANUTENCAO OPERACAO DE LINHAS','COM.RJCONSULTORES.ADMINISTRACION.GUI.ESQUEMAOPERACIONAL.MENU.AUTORIZACAORUTA','1',SYSDATE,'1');
EXCEPTION WHEN duplicate_column THEN NULL;
END
$$;