CREATE OR REPLACE FUNCTION borrar_inmueble_sincursor(vid INT) RETURNS BOOLEAN AS $$
DECLARE
vcontinm INT := 0;
rinmueble inmueble%ROWTYPE;
BEGIN
SELECT COUNT(*) INTO vcontinm FROM inmueble WHERE id = vid;
IF vcontinm = 1 THEN
 DELETE FROM dormitorio WHERE inmueble_id=vid;
 DELETE FROM inmueble WHERE id=vid RETURNING * INTO rinmueble;
 RAISE NOTICE 'Se ha eliminado el inmueble %',rinmueble;
 RETURN TRUE;
ELSE
 RAISE NOTICE 'No existe el inmueble %',vid;
 RETURN FALSE;
END IF;
END;
$$ LANGUAGE plpgsql;