declare
    dup_val_on_index exception;
    pragma exception_init (dup_val_on_index  , -00001);
begin
    execute immediate 'INSERT INTO redondeo_orgaoconcedente (REDONDEOORGAOCONCEDENTE_ID, REDONDEOCTRL_ID, ACTIVO, FECMODIF, USUARIO_ID, ORGAOCONCEDENTE_ID) 
		select REDONDEO_ORGAOCONCEDENTE_SEQ.nextval, redondeoctrl_id, 1, sysdate, -1, 21 from redondeo_ctrl where activo = 1';
  exception when dup_val_on_index  then null;
end;
/