angel_ Well-Known Member Licensed User Longtime User Apr 14, 2021 #1 I use this to restore purchase, success is true but I can't get it to save the value in kvs: Code: Copy Public Sub Initialize kvs.Initialize(xui.DefaultFolder, "data_store.dat") AdsRemoved = kvs.GetDefault("AdsRemoved", False) End Sub Code: Copy Sub RestaurarCompras() MyStore.RestoreTransactions End Sub Code: Copy Sub MyStore_TransactionsRestored (Success As Boolean) If Success Then AdsRemoved = True MensajeToast(Root, "Restauración exitosa") Else AdsRemoved = False MensajeToast(Root, "Restauración fallida") End If kvs.Put("AdsRemoved", AdsRemoved) End Sub
I use this to restore purchase, success is true but I can't get it to save the value in kvs: Code: Copy Public Sub Initialize kvs.Initialize(xui.DefaultFolder, "data_store.dat") AdsRemoved = kvs.GetDefault("AdsRemoved", False) End Sub Code: Copy Sub RestaurarCompras() MyStore.RestoreTransactions End Sub Code: Copy Sub MyStore_TransactionsRestored (Success As Boolean) If Success Then AdsRemoved = True MensajeToast(Root, "Restauración exitosa") Else AdsRemoved = False MensajeToast(Root, "Restauración fallida") End If kvs.Put("AdsRemoved", AdsRemoved) End Sub
Erel B4X founder Staff member Licensed User Longtime User Apr 14, 2021 #2 Add a log message. There is no reason for kvs not to store the data. Make sure that kvs is not initialized multiple times. Upvote 0
Add a log message. There is no reason for kvs not to store the data. Make sure that kvs is not initialized multiple times.