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'',''VDA > VENDA >> ENTREGA PASSAGEM >>> BLOQUEIO PTA'',''COM.RJCONSULTORES.VENTABOLETOS.ENTREGABOLETOS.BLOQUEIOPTA'',''1'',sysdate,''1'')';
       exception when dup_val_on_index  then null;
end;