fixes bug#14849

dev: Jhonatas
qua: XXX

git-svn-id: http://desenvolvimento.rjconsultores.com.br/repositorio/sco/BD/FlyWay/trunk@96291 d1611594-4594-4d17-8e1d-87c2c4800839
master
lucassilverio 2019-07-31 20:30:19 +00:00
parent 8a0382ad89
commit 460b21991c
12 changed files with 125 additions and 0 deletions

View File

@ -0,0 +1,16 @@
declare
table_exists exception;
pragma exception_init (table_exists , -00955);
begin
execute immediate
'CREATE TABLE INTEGRACAO_TOTVS_REDUCAO (
INTEGRACAOREDUCAO_ID NUMBER(15) NOT NULL
, FISCALR2_ID NUMBER(15) NOT NULL
, INTEGRADOTOTVS NUMBER(5)
, FECHOREFETIVA TIMESTAMP
, MSG_RETORNO CLOB
, CONSTRAINT INTEGRACAO_TOTVS_REDUCAO_PK PRIMARY KEY ( INTEGRACAOREDUCAO_ID )
)';
exception when table_exists then null;
end;

View File

@ -0,0 +1,7 @@
declare
object_exists exception;
pragma exception_init (object_exists , -00955);
begin
execute immediate 'CREATE SEQUENCE INTEGRACAO_TOTVS_REDUCAO_SEQ INCREMENT BY 1 START WITH 1';
exception when object_exists then null;
end;

View File

@ -0,0 +1,18 @@
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 INTEGRACAO_TOTVS_REDUCAO ADD CONSTRAINT INTEGRACAO_TOTVS_REDUCAO_FK1 FOREIGN KEY(FISCALR2_ID )REFERENCES FISCAL_R2(FISCALR2_ID )';
exception
when object_exists then null;
when except_02275 then null;
when except_02270 then null;
when except_02261 then null;
end;

View File

@ -0,0 +1,10 @@
declare
dup_val_on_index exception;
pragma exception_init (dup_val_on_index , -00001);
begin
execute immediate 'Insert into CONSTANTE (CONSTANTE_ID,NOMBCONSTANTE,DESCCONSTANTE,INDTIPOCONSTANTE,
VALORCONSTANTE,INDMANTENIMIENTOUSUARIO,ACTIVO,FECMODIF,USUARIO_ID)
values (CONSTANTE_SEQ.NEXTVAL,''CRON_ROTINA_REINTEGRACAO_REDUCAO_TOTVS'',''CRON_ROTINA_REINTEGRACAO_REDUCAO_TOTVS'',
1,null,null,''1'',sysdate,''1'')';
exception when dup_val_on_index then null;
end;

View File

@ -0,0 +1,7 @@
declare
column_exists exception;
pragma exception_init (column_exists , -01430);
begin
execute immediate 'ALTER TABLE FISCAL_R2 ADD (FECHORINTEGRADOTOTVS DATE, CONTADORINTEGRADOTOTVS NUMBER(7,0) )';
exception when column_exists then null;
end;

View File

@ -0,0 +1,10 @@
declare
dup_val_on_index exception;
pragma exception_init (dup_val_on_index , -00001);
begin
execute immediate 'Insert into CONSTANTE (CONSTANTE_ID,NOMBCONSTANTE,DESCCONSTANTE,INDTIPOCONSTANTE,
VALORCONSTANTE,INDMANTENIMIENTOUSUARIO,ACTIVO,FECMODIF,USUARIO_ID)
values (CONSTANTE_SEQ.NEXTVAL,''CRON_ROTINA_INTEGRACAO_REDUCAO_TOTVS'',''CRON_ROTINA_INTEGRACAO_REDUCAO_TOTVS'',
1,null,null,''1'',sysdate,''1'')';
exception when dup_val_on_index then null;
end;

View File

@ -0,0 +1,16 @@
declare
table_exists exception;
pragma exception_init (table_exists , -00955);
begin
execute immediate
'CREATE TABLE INTEGRACAO_TOTVS_REDUCAO (
INTEGRACAOREDUCAO_ID NUMBER(15) NOT NULL
, ESQUEMACORRIDA_ID NUMBER(15) NOT NULL
, INTEGRADOTOTVS NUMBER(5)
, FECHOREFETIVA TIMESTAMP
, MSG_RETORNO CLOB
, CONSTRAINT INTEGRACAO_TOTVS_REDUCAO_PK PRIMARY KEY ( INTEGRACAOREDUCAO_ID )
)';
exception when table_exists then null;
end;

View File

@ -0,0 +1,7 @@
declare
object_exists exception;
pragma exception_init (object_exists , -00955);
begin
execute immediate 'CREATE SEQUENCE INTEGRACAO_TOTVS_REDUCAO_SEQ INCREMENT BY 1 START WITH 1';
exception when object_exists then null;
end;

View File

@ -0,0 +1,7 @@
declare
object_exists exception;
pragma exception_init (object_exists , -00955);
begin
execute immediate 'ALTER TABLE INTEGRACAO_TOTVS_REDUCAO ADD CONSTRAINT INTEGRACAO_TOTVS_REDUCAO_FK1 FOREIGN KEY(ESQUEMACORRIDA_ID )REFERENCES ESQUEMA_CORRIDA(ESQUEMACORRIDA_ID )';
exception when object_exists then null;
end;

View File

@ -0,0 +1,10 @@
declare
dup_val_on_index exception;
pragma exception_init (dup_val_on_index , -00001);
begin
execute immediate 'Insert into CONSTANTE (CONSTANTE_ID,NOMBCONSTANTE,DESCCONSTANTE,INDTIPOCONSTANTE,
VALORCONSTANTE,INDMANTENIMIENTOUSUARIO,ACTIVO,FECMODIF,USUARIO_ID)
values (CONSTANTE_SEQ.NEXTVAL,''CRON_ROTINA_REINTEGRACAO_REDUCAO_TOTVS'',''CRON_ROTINA_REINTEGRACAO_REDUCAO_TOTVS'',
1,null,null,''0'',sysdate,''1'')';
exception when dup_val_on_index then null;
end;

View File

@ -0,0 +1,7 @@
declare
column_exists exception;
pragma exception_init (column_exists , -01430);
begin
execute immediate 'ALTER TABLE FISCAL_R2 ADD (FECHORINTEGRADOTOTVS DATE, CONTADORINTEGRADOTOTVS NUMBER(7,0) )';
exception when column_exists then null;
end;

View File

@ -0,0 +1,10 @@
declare
dup_val_on_index exception;
pragma exception_init (dup_val_on_index , -00001);
begin
execute immediate 'Insert into CONSTANTE (CONSTANTE_ID,NOMBCONSTANTE,DESCCONSTANTE,INDTIPOCONSTANTE,
VALORCONSTANTE,INDMANTENIMIENTOUSUARIO,ACTIVO,FECMODIF,USUARIO_ID)
values (CONSTANTE_SEQ.NEXTVAL,''CRON_ROTINA_INTEGRACAO_REDUCAO_TOTVS'',''CRON_ROTINA_INTEGRACAO_REDUCAO_TOTVS'',
1,null,null,''1'',sysdate,''1'')';
exception when dup_val_on_index then null;
end;