fixed bug #0008523 - adicionada a permissão para o bloqueio de edição na tela: CATALOGOS >> EMPRESA >> RESTRINGE VENDA SE RED. Z NAO EMITIDA

git-svn-id: http://desenvolvimento.rjconsultores.com.br/repositorio/sco/BD/FlyWay/trunk@63200 d1611594-4594-4d17-8e1d-87c2c4800839
master
bruno.neves 2016-12-05 18:50:48 +00:00
parent 7c696a05f6
commit de0227105d
1 changed files with 8 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 FUNCION_SISTEMA (FUNCIONSISTEMA_ID,SISTEMA_ID,NOMBFUNCION,DESCRUTA,ACTIVO,FECMODIF,USUARIO_ID)
values (FUNCION_SISTEMA_SEQ.NEXTVAL,1,''ADM > CATALOGOS >> EMPRESA >> RESTRINGE VENDA SE RED. Z NAO EMITIDA'',''COM.RJCONSULTORES.ADMINISTRACION.GUI.CATALOGO.MENU.EMPRESA.RESTRIGEVENDAREDUCAOZ'',1,SYSDATE,1)';
exception when dup_val_on_index then null;
end;