Android Question Play Store response for 'Restore Purchases' not giving updated purchase

public Sub RestorePurchases
	Dim bPurchase As Boolean
		bPurchase=False
	
	Wait For (billing.ConnectIfNeeded) Billing_Connected (Result As BillingResult)
	If Result.IsSuccess Then
		Wait For (billing.QueryPurchases("subs")) Billing_PurchasesQueryCompleted (Result As BillingResult, Purchases As List)
		Log("Query completed: " & Result.IsSuccess )
		If Result.IsSuccess Then
			For Each p As Purchase In Purchases
				Log ("p.Sku:" & p.Sku)
				If p.Sku = ADS_SDK_ID Then 
					bPurchase=True
					HandleAdsPurchase(p)
				End If
			Next
		End If
	End If
	If bPurchase=False Then CancelPurchase
		
End Sub

public Sub CancelPurchase
	' sub to handle undo of last purchase or revert to unpaid trial
	' note also called if bautorenew is turned off
	
	If iPurchased=1 Then
		' ok still in trial
	End If

	If iPurchased=2 Then
		' indicate they have cancelled a purchase
		' note-google does not give a refund and they keep the year they paid for  5/29/20 cwm
		iPurchased=3
		' now write to setup
		WriteDB ("update setup set SData='" & iPurchased & "' where Scode=22")
	End If
			
	If iPurchased=3 Then
		' ok already know they reversed the purchase
	End If
		
	CallSub(Main, "DisplayStatus")
	
	
End Sub
Sub billing_PurchasesUpdated (Result As BillingResult, Purchases As List)
	'This event will be raised when the status of one or more of the purchases has changed.
	'It will usually happen as a result of calling LaunchBillingFlow however it can be called in other cases as well.
	If Result.IsSuccess Then
		For Each p As Purchase In Purchases
			If p.Sku = ADS_SDK_ID Then
				HandleAdsPurchase(p)
			Else
				Log("Unexpected product...")
			End If
		Next
	End If
End Sub

Public Sub HandleAdsPurchase (p As Purchase)
	Dim sPurDate As String
	DateTime.Dateformat="yyyyMMdd"
	sPurDate=DateTime.Date (p.PurchaseTime)
	
	' log the p contents
	Log("p.OrderId          = " & p.OrderId)
	Log("p.PurchaseState    = " & p.PurchaseState )
	Log("p.STATE_PURCHASED  = " & p.STATE_PURCHASED)
	Log("p.PurchaseTime     = " & sPurDate )
	Log("p.Sku              = " & p.Sku )
	Log("p.IsAcknowledged   = " & p.IsAcknowledged)
	Log("p.DeveloperPayload = " & p.DeveloperPayload)
	Log("p.IsAutoRenewing   = " & p.IsAutoRenewing)

	
	If p.PurchaseState <> p.STATE_PURCHASED Then 
		CancelPurchase
	Else
			
		'Verify the purchase signature.
		If billing.VerifyPurchase(p, BILLING_KEY) = False Then
			Log("Invalid purchase")
			Return
		End If
		If p.IsAcknowledged = False Then
			'we either acknowledge the product or consume it.
			Wait For (billing.AcknowledgePurchase(p.PurchaseToken, "")) Billing_AcknowledgeCompleted (Result As BillingResult)
			Log("Acknowledged: " & Result.IsSuccess)
		End If
		
		Log("Purchase Completed")
		
		' set the autorenew     6/14/20 cwm  
		If p.IsAutoRenewing Then
			bAutoRenew=True
			Else
			bAutoRenew=False	
		End If
		
		' update our payment setup fields here
		If sPurDate.CompareTo (SLastPayment)>0 Then
			' register the payment
			SLastPayment=sPurDate 
			iPurchased=2
			' add the length of the premium to the payment date
			' note this makes our end date=play store ending date 
			SNextPayment=DateTime.Date(p.PurchaseTime + DateTime.TicksPerDay*iPremiumPeriod)
			
			' now write to setup
			WriteDB ("update setup set SData='" & SNextPayment & "' where Scode=21")
			WriteDB ("update setup set SData='" & iPurchased & "' where Scode=22")
			WriteDB ("update setup set SData='" & SLastPayment & "' where Scode=23")
		End If
		
		' force cancel purchase if not autorenew
		If bAutoRenew=False Then 
			CancelPurchase
		Else
			If iPurchased=3 Then
				' reset back to purchased    6/15/20
				iPurchased=2
				WriteDB ("update setup set SData='" & iPurchased & "' where Scode=22")
			End If
		End If
		
	End If	
	
	CallSub(Main, "DisplayStatus")
End Sub