Merge pull request 'fixes bug#AL-4463' (!208) from AL-4463 into master

Reviewed-on: utilidades/Flyway#208
Reviewed-by: fabio <fabio.faria@rjconsultores.com.br>
master
aristides 2024-10-03 18:17:52 +00:00
commit 79888b46ca
2 changed files with 65 additions and 1 deletions

View File

@ -4,7 +4,7 @@
<modelVersion>4.0.0</modelVersion>
<groupId>br.com.rjconsultores</groupId>
<artifactId>Flyway</artifactId>
<version>1.97.0</version>
<version>1.98.0</version>
<distributionManagement>
<repository>

View File

@ -0,0 +1,64 @@
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 OCD_PARAM ADD INDREEMBOLSOADMIN NUMBER(1,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 OCD ADD INDREEMBOLSOADMIN NUMBER(1,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 OCD ADD TIPODEREEMBOLSO NUMBER(2,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 AUTORIZACION (AUTORIZACION_ID,NOMBAUTORIZACION,DESCAUTORIZACION,ACTIVO,FECMODIF,USUARIO_ID) values (AUTORIZACION_SEQ.NEXTVAL,''AUT_REEMBOLSO_ADMIN'',''AUTORIZACAO PARA REEMBOLSAR ADMINISTRATIVAMENTE A OCD'',1,SYSDATE,1)';
exception
when dup_val_on_index then null;
when except_02291 then null;
end;