B4XPages.SetTitle(Me,"RevenueCat Example")
PurchaseHelper.Initialize(Me,"PurchaseHelper","YourRevenueCatApiKey")
PurchaseHelper.ProductIndentififer = Array As String("all_access_1_month_lognote","all_access_1_year_lognote") 'The Product identifyer
Wait For (PurchaseHelper.CheckPurchases) complete (Success As Boolean) 'Must be called at app start, as we check here whether the user has the Premium version
Log("Do I have a premium version? " & Success)
Wait For (PurchaseHelper.GetProductsInformation(PurchaseHelper.ProductIndentififer)) complete (lstPurchases As List)
For Each ProductInfo As ProductInformation In lstPurchases
'Log(ProductInfo.Tag)
'Log(ProductInfo.Description)
CustomListView1.AddTextItem(ProductInfo.Title & " - " & ProductInfo.LocalizedPrice,ProductInfo.ProductIdentifier)
Next