fixes bug#23350

qua:
dev:Aristides

git-svn-id: http://desenvolvimento.rjconsultores.com.br/repositorio/sco/BD/FlyWay/trunk@109294 d1611594-4594-4d17-8e1d-87c2c4800839
master
valdevir 2021-10-25 17:57:19 +00:00
parent 304fc6b068
commit 7242bed07f
2 changed files with 15 additions and 0 deletions

View File

@ -0,0 +1,8 @@
declare
dup_val_on_index exception;
pragma exception_init (dup_val_on_index , -00001);
begin
execute immediate 'INSERT INTO CONSTANTE (CONSTANTE_ID, NOMBCONSTANTE, DESCCONSTANTE, VALORCONSTANTE, INDTIPOCONSTANTE, INDMANTENIMIENTOUSUARIO, ACTIVO, FECMODIF, USUARIO_ID)
VALUES (CONSTANTE_SEQ.nextval, ''VALIDASOMENTE_NUMAUTORIZACAO_CRED_MANUAL'', ''VALIDASOMENTE_NUMAUTORIZACAO_CRED_MANUAL'', ''-1'', ''1'', ''1'', ''1'', sysdate, ''1'')';
exception when dup_val_on_index then null;
end;

View File

@ -0,0 +1,7 @@
DO $$
BEGIN
INSERT INTO CONSTANTE (CONSTANTE_ID, NOMBCONSTANTE, DESCCONSTANTE, VALORCONSTANTE, INDTIPOCONSTANTE, INDMANTENIMIENTOUSUARIO, ACTIVO, FECMODIF, USUARIO_ID)
VALUES (CONSTANTE_SEQ.nextval, 'VALIDASOMENTE_NUMAUTORIZACAO_CRED_MANUAL', 'VALIDASOMENTE_NUMAUTORIZACAO_CRED_MANUAL', '-1', '1', '1', '1', sysdate, '1');
EXCEPTION WHEN duplicate_column THEN NULL;
END
$$;