CREATE or REPLACE FUNCTION borrar_inmueble_cursor(vinmueble inmueble.id%TYPE)
RETURNS BOOLEAN AS $$
DECLARE
vregdormitorio dormitorio%ROWTYPE;
vreginmueble inmueble%ROWTYPE;
BEGIN
FOR vregdormitorio IN SELECT * FROM dormitorio WHERE inmueble_id = vinmueble
LOOP
  DELETE FROM dormitorio
  WHERE inmueble_id = vinmueble AND num = vregdormitorio.num;
  RAISE NOTICE 'Se ha eliminado el dormitorio % ',vregdormitorio;
END LOOP;

IF NOT FOUND THEN
  RAISE NOTICE 'No se han eliminado dormitorios del inmueble %',vinmueble;
END IF;

DELETE FROM inmueble
WHERE id = vinmueble
RETURNING * INTO vreginmueble;

IF FOUND THEN
  RAISE NOTICE 'Se ha eliminado el inmueble % ',vreginmueble;
  RETURN TRUE;
ELSE
  RAISE NOTICE 'No existe el inmueble % ',vinmueble;
  RETURN FALSE;
END IF;
END;
$$ LANGUAGE plpgsql;