12/1/24 - Cambios para la lista de precios de SuperQ

B4A/B4XMainPage.bas

@@ -140,7 +140,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 '	B4XPages.AddPage("CheckList", checklist)
 '	ruta = Starter.ruta
 	ruta = File.DirInternal
-	kh.Initialize(Me, "kh")
+	kh.Initialize(Me, "kh", Starter.skmt)
 	Provider.Initialize
 '	If(FirstTime) Then
 '	 g.Initialize("GPS")
@@ -151,7 +151,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	'SI SE REGRESA A ESTE ACTIVIDAD.
 '	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
 '	Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
-	kh.guardaAppInfo(Starter.skmt)
+	kh.guardaAppInfo
 	Dim sDate, sTime As String
 	DateTime.DateFormat = "yyyyMMdd"
 	sDate=DateTime.Date(DateTime.Now)
@@ -293,7 +293,7 @@ Sub B4XPage_Appear
 	Else
 		ToastMessageShow("No permission", True)
 	End If
-	Starter.usuario = kh.traeUsuarioDeDB(Starter.skmt)
+	Starter.usuario = kh.traeUsuarioDeDB
 '	dameUsuario 'Obtenemos el usuario registrado
 	CallSubDelayed(FirebaseMessaging, "SubscribeToTopics")
 End Sub