procedure set_user corregido