Why won't my currency shop button give the money?

So I have a currency shop that give you money. And it will let you buy the developer product but doesn't give the money.

The local script on the button --

MPS = game:GetService("MarketplaceService")
id = 1037851428
local player = game.Players.LocalPlayer

script.Parent.MouseButton1Click:connect(function()
	MPS:PromptProductPurchase(player, id)
end)

Script in ServerScriptService --

local MPS = game:GetService("MarketplaceService")

MPS.ProcessReceipt = function(receiptInfo)
	if receiptInfo.ProductId == 1037851428 then
	    local player = game.Players:GetPlayerByUserId(receiptInfo.PlayerId)
	    player.leaderstats.Money.Value = player.leaderstats.Money.Value + 250
		    return Enum.ProductPurchaseDecision.PurchaseGranted
end
end

please help me :(

local remoteevent = game.ReplicatedStorage.RemoteEvent
MPS = game:GetService("MarketplaceService")
id = 1037851428
local player = game.Players.LocalPlayer

script.Parent.MouseButton1Click:connect(
    function()
        MPS:PromptProductPurchase(player, id)
    end
)

local MPS = game:GetService("MarketplaceService")

MPS.ProcessReceipt = function(receiptInfo)
    if receiptInfo.ProductId == 1037851428 then
        local player = game.Players:GetPlayerByUserId(receiptInfo.UserId)
remoteevent:FireServer(player)
        return Enum.ProductPurchaseDecision.PurchaseGranted
    end
end

remember, it's userid not playerid and use a remote event (make one called RemoteEvent)

server script

local remoteevent = game.ReplicatedStorage.RemoteEvent
remoteevent.OnServerEvent:Connect(function(player)
     player.leaderstats.Money.Value = player.leaderstats.Money.Value + 250
end)