RestoreTransactions

Alberto Vilades

Member
Licensed User
Longtime User
I'm trying to pay managed item purchases. When the application starts I have this code to inquire about purchases, but stops at the line "RestoreTransactions".

Also I can not go step by step through the code.

Any idea?

Thanks


B4X:
Sub subReadIni()
Dim parameters As Map 
Dim pte As Boolean
'Ad is global

   If File.Exists(File.DirDefaultExternal, "parameters.txt") Then
      'file exist, read parameter
      parameters.Initialize
      parameters = File.ReadMap(File.DirDefaultExternal, "parameters.txt")
      Ad = parameters.GetDefault("Ad", "Yes")
   Else
      'no existe parametro
      Ad = "Pending"
      subSaveIni
   End If
   
   If Ad = "Pending" Then
      'ask google play
      BillingManager.Manager.RestoreTransactions
      
      'when PURCHASE_STATE_NODATA save "YES"
      'or if PURCHASE_STATE_PURCHASED  SAVE "OK"
   End If
End Sub
 
Last edited:
Top