Why isn't it saving? I made this small saving system with a bool value to save.

data script (server script service)

local ds = game:GetService("DataStoreService"):GetDataStore("DayCareData")
local StatsToAdd = { 
    ["City"] = false,
}


    local Prefix = plr.UserId

    local DataFolder = Instance.new("Folder", plr) 
    DataFolder.Name = "Portal" 
    print(plr.Name)


    for i,v in pairs(StatsToAdd) do 
        local NewInst = Instance.new("BoolValue", DataFolder) 
        NewInst.Name = i
        NewInst.Value = v
    end
    print("saving")

    local Data = nil
    pcall(function()
        Data = ds:GetAsync(Prefix)
    end)

    if Data ~= nil then
        for i,v in pairs(DataFolder:GetChildren()) do
            v.Value = Data[v.Name]
        end
    end
end)
print("saved almost")
game.Players.PlayerRemoving:Connect(function(plr)
    local Prefix = plr.UserId

    local DataFolder = plr.Portal
    print("saved in a while")
    pcall(function()
        if DataFolder then
            local SaveData = {}

            for i,v in pairs(DataFolder:GetChildren()) do
                SaveData[v.Name] = v.Value
            end

            ds:SetAsync(Prefix, SaveData)
        end
    end)
end)

print("saved")

~~~~~~~~~~~

~~~~~~
click to claim the portal (local script)

script.Parent.MouseButton1Click:Connect(function() script.Parent.Position = UDim2.new(8.225, 0,8.108, 0) game.ReplicatedStorage.Click:Play() wait(0.5) script.Parent.Position = UDim2.new(8.225, 0,7.978, 0)

if game.Players.LocalPlayer.leaderstats.Cash.Value > 1000 and game.Players.LocalPlayer.Portal.City.Value == false then
    game.Players.LocalPlayer.leaderstats.Cash.Value = game.Players.LocalPlayer.leaderstats.Cash.Value -1000
    game.Workspace.City.CityPart:Destroy()
    local DoorM = Folder:FindFirstChild("Door Model1")
    DoorM.Door.Position = Vector3.new(-724.184, 203.288, -310.016)
    game.Players.LocalPlayer.Portal.City.Value = true ------ here the value sets to true
elseif game.Players.LocalPlayer.leaderstats.Cash.Value > 1000 and game.Players.LocalPlayer.Portal.City.Value == true then
    script.Parent.Parent.Error.Text = "ERROR: YOU ALREADY OWN THIS MAP"
    script.Parent.Parent.Error.Visible = true
    game.ReplicatedStorage.error:Play()
    wait(1)
    script.Parent.Parent.Error.Visible = false

    elseif game.Players.LocalPlayer.leaderstats.Cash.Value < 1000 then
    script.Parent.Parent.Error.Visible = true
    game.ReplicatedStorage.error:Play()
    wait(1)
    script.Parent.Parent.Error.Visible = false
end

end) ~~~~~~ ~~~~~~~~~~~~~~~~~