Procedure getblob(Vc in number, Vnom in varchar2) is
   x     BLOB;
   fils  BFILE:= BFILENAME('BASURA',Vnom);
begin
   select adjunto into x
   from vmladjuntos
   where correo=Vc
     and nombre=Vnom
   for update;
   dbms_lob.fileopen(fils, dbms_lob.lob_readonly);
   dbms_lob.loadfromfile(x, fils, dbms_lob.getlength(fils));
   dbms_lob.fileclose(fils);
   Commit;
end;