Would this script work?

Look at line 23 PurchaseHistory:IncrementAsync(PlayerProductKey, 1), would that fix/work?

I was told to remove Purchase History, did i fix it? If not please tell me with an example how i could.

local Service = Game:GetService("PointsService")

local Products={
	["19715096"]=2,
	["19715101"]=5,
	["19715110"]=10,
	["19715119"]=50,
	["19715122"]=500
}

local PurchaseHistory = Game:GetService("DataStoreService"):GetDataStore("PurchaseHistory")

Game:GetService("MarketplaceService").ProcessReceipt=function(Receipt)
	local PlayerProductKey = Receipt.PlayerId.."_"..Receipt.PurchaseId
	for _,Player in pairs(Game.Players:GetChildren())do
		if Player.userId==Receipt.PlayerId then
			if PurchaseHistory:GetAsync(PlayerProductKey)then
				return Enum.ProductPurchaseDecision.PurchaseGranted
			end
			for i, v in pairs(Products)do
				if tostring(Receipt.ProductId)==i then
					Service:AwardPoints(Player.userId, v)
					PurchaseHistory:IncrementAsync(PlayerProductKey, 1)--WOULD THAT WORK?
					return Enum.ProductPurchaseDecision.PurchaseGranted
				end
			end
		end
	end
end