fixes bug#22635

qua:
dev:Valdir


git-svn-id: http://desenvolvimento.rjconsultores.com.br/repositorio/sco/BD/FlyWay/trunk@108681 d1611594-4594-4d17-8e1d-87c2c4800839
master
valdevir 2021-09-13 14:06:31 +00:00
parent f00d772eb3
commit 8bb658ac39
2 changed files with 25 additions and 0 deletions

View File

@ -0,0 +1,16 @@
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 FUNCION_SISTEMA (FUNCIONSISTEMA_ID,SISTEMA_ID,NOMBFUNCION,DESCRUTA,ACTIVO,FECMODIF,USUARIO_ID)
values
(FUNCION_SISTEMA_SEQ.NEXTVAL,''2'',''VDA > VENDA >> CONFIMRACAO RESERVA >> EXIBE IMP. POSTERIOR'',''COM.RJCONSULTORES.VENTABOLETOS.GUI.VENTA.CONFIRMACAORESERVA.PERMITEIMPPOSTERIOR'',''1'',SYSDATE,''1'')';
exception
when dup_val_on_index then null;
when except_02291 then null;
end;

View File

@ -0,0 +1,9 @@
DO $$
BEGIN
INSERT INTO FUNCION_SISTEMA (FUNCIONSISTEMA_ID, SISTEMA_ID, NOMBFUNCION, DESCRUTA, ACTIVO, FECMODIF, USUARIO_ID)
VALUES (FUNCION_SISTEMA_SEQ.nextval, 1, ''VDA >> VENDA >> CONFIMRACAO RESERVA >> EXIBE IMP. POSTERIOR'',
''COM.RJCONSULTORES.VENTABOLETOS.GUI.VENTA.CONFIRMACAORESERVA.PERMITEIMPPOSTERIOR'', 1,
SYSDATE, -1);
EXCEPTION WHEN duplicate_column THEN NULL;
END
$$;