When buying dev products, it doesn't give cash amount in-game. Help?

The script is perfect but it just doesn't change cash value in-game I honestly don't know what's wrong with it. Cash is stored in Serverstorage called "Moneystorage"

This is the script for the GUI to buy money

Market = game:GetService("MarketplaceService")
Player = game.Players.LocalPlayer
GUI = script.Parent
Buttons = GUI:WaitForChild("Buttons")
DevProds = {
	{"1K",43938448};
	{"2.5K",43938430};
	{"5K",43938361};
	{"10K",43938334};
	{"100K",0};
	{"250K",0};
	{"1M",0};
	{"2M",0};
}
GamePasses = {
	{"Bonus",551506583};
	{"Infinite",551507212};
}

for k,v in pairs(DevProds) do
	local button = Buttons:WaitForChild(v[1])
	button.MouseButton1Click:connect(function()
		Market:PromptProductPurchase(Player,v[2])
	end)
end

for k,v in pairs(GamePasses) do
	local button = Buttons:WaitForChild(v[1])
	button.MouseButton1Click:connect(function()
		Market:PromptPurchase(Player,v[2])
	end)
end

And here is the Event handler

local Market,PurchaseHistory
testing = false
DevProds = {
	{1000,43938448};
	{5000,43938430};
	{10000,43938361};
	{25000,43938334};
}
GamePasses = {
	{14000,551506583};
	{1e7,551507212};
}

function AddMoney(player,amount)
	local cashmoney = game.ServerStorage:WaitForChild("MoneyStorage"):WaitForChild(player.Name)
	cashmoney.Value = cashmoney.Value+amount
end

function updateValues()
	if Market == nil then
		Market = game:GetService("MarketplaceService")
	end
	if PurchaseHistory == nil and testing == false then
		PurchaseHistory = game:GetService("DataStoreService"):GetDataStore("PurchaseHistory")
	end
end

game.Players.PlayerAdded:connect(function(player)
	updateValues()
	if player:IsInGroup(2767505) then
		local cashmoney = game.ServerStorage.MoneyStorage:FindFirstChild(plr.Name)
		if cashmoney then
			cashmoney.Value = cashmoney.Value + 500
		end
	end
	for _,v in pairs(GamePasses) do
		if Market:PlayerOwnsAsset(player,v[2]) or v.userId == 157510912 then
			AddMoney(player,v[1])
		end
	end
end)

function Market.ProcessReceipt(receiptInfo)
	updateValues()
	local playerProductKey = receiptInfo.PlayerId..":"..receiptInfo.PurchaseId
	if testing == false and PurchaseHistory:GetAsync(playerProductKey) then
		return Enum.ProductPurchaseDecision.PurchaseGranted
	end
	local player = game:GetService("Players"):GetPlayerByUserId(receiptInfo.PlayerId)
	if player == nil then
		return Enum.ProductPurchaseDecision.NotProcessedYet
	end
	for _,v in pairs(DevProds) do
		if v[2] == receiptInfo.ProductId then
			AddMoney(player,v[1])
		end
	end
	if testing == false then
		PurchaseHistory:SetAsync(playerProductKey,true)
	end
	return Enum.ProductPurchaseDecision.PurchaseGranted	
end

Market.PromptPurchaseFinished:connect(function(player,assetId,purchased)
	if not purchased then
		return
	end
	for _,v in pairs(GamePasses) do
		if v[2] == assetId then
			AddMoney(player,v[1])
		end
	end
end)