Fixes bug#AL-4506

master
Luis Angel Espina Hernandez 2024-09-02 18:40:30 -04:00
parent d52e953fde
commit e031a2888c
5 changed files with 175 additions and 32 deletions

View File

@ -8,35 +8,3 @@ begin
exception when column_exists then null; exception when column_exists then null;
end; 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 CONSTANTE (CONSTANTE_ID, NOMBCONSTANTE, DESCCONSTANTE, INDTIPOCONSTANTE,
VALORCONSTANTE, INDMANTENIMIENTOUSUARIO, ACTIVO, FECMODIF, USUARIO_ID)
VALUES (CONSTANTE_SEQ.NEXTVAL, ''CONFIG_ARREDONDAMENTO_CENTENAS'', ''CONFIG DE ARREDONDAMENTO CENTENAS'',
null, ''false'', null, ''1'', SYSDATE, ''1'')';
exception
when dup_val_on_index then null;
when except_02291 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 CONSTANTE (CONSTANTE_ID,NOMBCONSTANTE,DESCCONSTANTE,INDTIPOCONSTANTE,
VALORCONSTANTE,INDMANTENIMIENTOUSUARIO,ACTIVO,FECMODIF,USUARIO_ID)
values (CONSTANTE_SEQ.NEXTVAL,''TEMPO_LIMPEZA_CACHE_REDONDEO'',''TEMPO LIMPEZA CACHE REDONDEO'',
null,null,null,''1'',sysdate,''1'')';
exception
when dup_val_on_index then null;
when except_02291 then null;
end;

View File

@ -0,0 +1,15 @@
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 CONSTANTE (CONSTANTE_ID, NOMBCONSTANTE, DESCCONSTANTE, INDTIPOCONSTANTE,
VALORCONSTANTE, INDMANTENIMIENTOUSUARIO, ACTIVO, FECMODIF, USUARIO_ID)
VALUES (CONSTANTE_SEQ.NEXTVAL, ''CONFIG_ARREDONDAMENTO_CENTENAS'', ''CONFIG DE ARREDONDAMENTO CENTENAS'',
null, ''false'', null, ''1'', SYSDATE, ''1'')';
exception
when dup_val_on_index then null;
when except_02291 then null;
end;

View File

@ -0,0 +1,15 @@
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 CONSTANTE (CONSTANTE_ID,NOMBCONSTANTE,DESCCONSTANTE,INDTIPOCONSTANTE,
VALORCONSTANTE,INDMANTENIMIENTOUSUARIO,ACTIVO,FECMODIF,USUARIO_ID)
values (CONSTANTE_SEQ.NEXTVAL,''TEMPO_LIMPEZA_CACHE_REDONDEO'',''TEMPO LIMPEZA CACHE REDONDEO'',
null,null,null,''1'',sysdate,''1'')';
exception
when dup_val_on_index then null;
when except_02291 then null;
end;

View File

@ -0,0 +1,65 @@
declare
object_exists exception;
pragma exception_init (object_exists , -00955);
begin
execute immediate 'CREATE TABLE CONFIGURACION_PRODUCTO (
CONFIGURACIONPRODUCTO_ID NUMBER(7,0) NOT NULL,
TIPOEVENTOEXTRA_ID NUMBER(7,0) NOT NULL,
PRECIO NUMBER(12,2) NOT NULL,
FECVIGENCIAINICIAL DATE NOT NULL,
FECVIGENCIAFINAL DATE NOT NULL,
USUARIO_ID NUMBER(7,0) NOT NULL,
FECMODIF DATE NOT NULL,
ACTIVO NUMBER(1,0) NOT NULL,
CONSTRAINT CONFIGURACION_PRODUCTO_PK PRIMARY KEY (CONFIGURACIONPRODUCTO_ID)
)';
exception when object_exists then null;
end;
/
declare
object_exists exception;
except_02275 exception;
except_02270 exception;
except_02261 exception;
pragma exception_init (object_exists , -01430);
pragma exception_init (except_02275 , -02275);
pragma exception_init (except_02270 , -02270);
pragma exception_init (except_02261 , -02261);
begin
execute immediate 'ALTER TABLE CONFIGURACION_PRODUCTO ADD CONSTRAINT CONFIGURACION_PRODUCTO_TIPO_EVENTO_EXTRA_FK FOREIGN KEY (TIPOEVENTOEXTRA_ID) REFERENCES VTABOL.TIPO_EVENTO_EXTRA(TIPOEVENTOEXTRA_ID)';
exception
when object_exists then null;
when except_02275 then null;
when except_02270 then null;
when except_02261 then null;
end;
/
declare
object_exists exception;
except_02275 exception;
except_02270 exception;
except_02261 exception;
pragma exception_init (object_exists , -01430);
pragma exception_init (except_02275 , -02275);
pragma exception_init (except_02270 , -02270);
pragma exception_init (except_02261 , -02261);
begin
execute immediate 'ALTER TABLE CONFIGURACION_PRODUCTO ADD CONSTRAINT CONFIGURACION_PRODUCTO_USUARIO_FK FOREIGN KEY (USUARIO_ID) REFERENCES VTABOL.USUARIO(USUARIO_ID)';
exception
when object_exists then null;
when except_02275 then null;
when except_02270 then null;
when except_02261 then null;
end;
/
declare
object_exists exception;
pragma exception_init (object_exists , -00955);
begin
execute immediate 'CREATE SEQUENCE CONFIGURACION_PRODUCTO_SEQ INCREMENT BY 1 MINVALUE 0 NOCYCLE NOCACHE NOORDER';
exception when object_exists then null;
end;

View File

@ -0,0 +1,80 @@
declare
object_exists exception;
pragma exception_init (object_exists , -00955);
begin
execute immediate 'CREATE TABLE CONFIGURACION_PRODUCTO_PARADA (
CONFIGURACION_PRODUCTO_PARADA_ID NUMBER(7,0) NOT NULL,
CONFIGURACIONPRODUCTO_ID NUMBER(7,0) NOT NULL,
PARADA_ID NUMBER(7,0) NOT NULL,
USUARIO_ID NUMBER(7,0) NOT NULL,
FECMODIF DATE NOT NULL,
ACTIVO NUMBER(1,0) NOT NULL,
CONSTRAINT CONFIGURACION_PRODUCTO_PARADA_PK PRIMARY KEY (CONFIGURACION_PRODUCTO_PARADA_ID)
)';
exception when object_exists then null;
end;
/
declare
object_exists exception;
except_02275 exception;
except_02270 exception;
except_02261 exception;
pragma exception_init (object_exists , -01430);
pragma exception_init (except_02275 , -02275);
pragma exception_init (except_02270 , -02270);
pragma exception_init (except_02261 , -02261);
begin
execute immediate 'ALTER TABLE CONFIGURACION_PRODUCTO_PARADA ADD CONSTRAINT CONFIGURACION_PRODUCTO_PARADA_CONFIGURACION_PRODUCTO_FK FOREIGN KEY (CONFIGURACIONPRODUCTO_ID) REFERENCES VTABOL.CONFIGURACION_PRODUCTO(CONFIGURACIONPRODUCTO_ID)';
exception
when object_exists then null;
when except_02275 then null;
when except_02270 then null;
when except_02261 then null;
end;
/
declare
object_exists exception;
except_02275 exception;
except_02270 exception;
except_02261 exception;
pragma exception_init (object_exists , -01430);
pragma exception_init (except_02275 , -02275);
pragma exception_init (except_02270 , -02270);
pragma exception_init (except_02261 , -02261);
begin
execute immediate 'ALTER TABLE CONFIGURACION_PRODUCTO_PARADA ADD CONSTRAINT CONFIGURACION_PRODUCTO_PARADA_PARADA_FK FOREIGN KEY (PARADA_ID) REFERENCES VTABOL.PARADA(PARADA_ID)';
exception
when object_exists then null;
when except_02275 then null;
when except_02270 then null;
when except_02261 then null;
end;
/
declare
object_exists exception;
except_02275 exception;
except_02270 exception;
except_02261 exception;
pragma exception_init (object_exists , -01430);
pragma exception_init (except_02275 , -02275);
pragma exception_init (except_02270 , -02270);
pragma exception_init (except_02261 , -02261);
begin
execute immediate 'ALTER TABLE CONFIGURACION_PRODUCTO_PARADA ADD CONSTRAINT CONFIGURACION_PRODUCTO_PARADA_USUARIO_FK FOREIGN KEY (USUARIO_ID) REFERENCES VTABOL.USUARIO(USUARIO_ID)';
exception
when object_exists then null;
when except_02275 then null;
when except_02270 then null;
when except_02261 then null;
end;
/
declare
object_exists exception;
pragma exception_init (object_exists , -00955);
begin
execute immediate 'CREATE SEQUENCE CONFIG_PRODUCTO_PARADA_SEQ INCREMENT BY 1 MINVALUE 0 NOCYCLE NOCACHE NOORDER';
exception when object_exists then null;
end;