bug#AL-4454

Bolivariano -- Regla de Redondeo.
dev: Aurora
qua:
master
luis.espina 2024-07-05 18:23:36 -04:00
parent 36a7accb5a
commit 9e97b2e765
1 changed files with 42 additions and 0 deletions

View File

@ -0,0 +1,42 @@
declare
column_exists exception;
pragma exception_init (column_exists , -01430);
begin
execute immediate 'ALTER TABLE redondeo MODIFY (valorinicial NUMBER(7, 2),
valorfinal NUMBER(7, 2),
valorredondeo NUMBER(7, 2)
)';
exception when column_exists 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,''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;