Android Question Inapp billing error

gjoisa

Active Member
Licensed User
Longtime User
Hi ,
I am trying to test inapp billing in a small project . Followed Erel's tutorial . Uploaded apk to store . obtained key , added managed product in inapp products . When I tried to test in my device ,an error says "The item you were attempting to purchase could not be found "

this is my code :
B4X:
Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Private btnBuy As Button
    Private btnGo As Button
    Dim manager As BillingManager3
    Private key As String = "MIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEAtKs+EKiUgwa4K+GxeBZp5FeD5pmb1R/JsOLLSu54zcugEHb445qM1tfvvO+Tmd+WkGVDYi8smi8M40W2X/93XrRg4y9TDh5dUrZxrM9JF7nkta8Jn3zmrCDZYnFHTxSKMWCcMmmUnop+uDCZY7aZ8+V3xvSIsWqQ26icdHCdV57zUWisLmZurwOyWGTzgg0wavuYcdP3lyhdXjkI9J11Ws6UzCrbY4KztXllAdaVlnuRNd+LKMvW7MopLU6Y8Q1znajAVYDUswP2As8du2HXUyp4hIYNLpuoLdCDKEBjNnI53VV2y30Ld7ecML40pDEI4hCz7mOWCTWMaVyn1dV29wIDAQAB"
    Dim Productid1 As String = "sgj_inapp_photo"
    Dim Producttype As String
    Dim DeveloperPayload As String
    DeveloperPayload = "Seller" ' ---> Name of my App "
    Producttype="inapp" ' ---> this is an input
   
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("1")
    btnGo.Visible = False
    If FirstTime Then
      manager.Initialize("manager", key)
      manager.DebugLogging = True
   End If

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub Manager_BillingSupported (Supported As Boolean, Message As String)
   Log(Supported & ", " & Message)
   Log("Subscriptions supported: " & manager.SubscriptionsSupported)
   'manager.GetOwnedProducts
End Sub
Sub manager_OwnedProducts (Success As Boolean, purchases As Map)
   Log(Success)
   If Success Then
      btnBuy.Visible = False
      btnGo.Visible = True
      Log(purchases)
      For Each p As Purchase In purchases.Values
         Log(p.ProductId & ", Purchased? " & (p.PurchaseState = p.STATE_PURCHASED))
      Next
   End If
End Sub



Sub btnBuy_Click
    Dim s As Int
    s = Msgbox2("Please buy the full version","SGJoisa","Ok","","Cancel",Null)
    If s = DialogResponse.POSITIVE Then
        manager.RequestPayment(Productid1,Producttype,DeveloperPayload)
    End If   
End Sub
 
Top