create or replace procedure EliminarLoteUsuarioErrores(
      pNidusuario                 IN VARCHAR2,
      pVnombrearchivo                 IN VARCHAR2,
      xnum out number)
as
begin

Delete from t_web_lotes_x_usuario_errores
where 
nidusuario=pNidusuario
and
NITEMCAB in(select NITEM from T_WEB_LOTES_X_USUARIO  
where vnombrearchivo=pVnombrearchivo);

Delete from T_WEB_LOTES_X_USUARIO
where nidusuario=pNidusuario and vnombrearchivo=pVnombrearchivo;

xnum=1;

commit;

end;