23/10/23 - Se agregó en el engrane la opción de importar una base de datos cuando el usuario es "KMTS1"

B4A/B4XMainPage.bas

@@ -91,6 +91,7 @@ Sub Class_Globals
 	Public rutaBDBackup As String = ""
 	Dim MES1 As ManageExternalStorage
 	Dim device As Phone
+	Private b_importarBD As Button
 End Sub
 
 Public Sub Initialize
@@ -133,6 +134,19 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	historico.Initialize
 	B4XPages.AddPage("Historico", historico)
 	ruta = Starter.ruta
+
+'	Dim px As B4XView = xui.CreatePanel("")
+'	px.SetLayoutAnimated(0, 500, 30, 200dip, 45dip)
+'	px.Color = Colors.Cyan
+'	Dim tf As Label
+'	tf.Initialize("")
+'	tf.TextSize = 20
+'	tf.Color = Colors.gray
+'	tf.Gravity = Gravity.CENTER_VERTICAL
+'	tf.Text = "Hola"
+'	px.AddView(tf, 0, 0, px.Width - 10dip, px.Height)
+'	B4XPages.GetManager.ActionBar.RunMethod("setCustomView", Array(px))
+'	B4XPages.GetManager.ActionBar.RunMethod("setDisplayOptions", Array(16, 16))
 	
 	Provider.Initialize
 '	Subs.borraArribaDe100Errores 	' Para Websockets
@@ -692,6 +706,7 @@ Sub i_engrane_Click
 	If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1782")
 '	l_server.Text = Starter.DBReqServer
 	et_server.Text = Starter.DBReqServer
+	If user.Text = "KMTS1" Then b_importarBD.Visible = True Else b_importarBD.Visible = False
 	Subs.panelVisible(p_appUpdate,0,0)
 End Sub
 
@@ -755,4 +770,13 @@ Sub CheckNotificationAccess As Boolean
 	pstr = r.GetStaticField("anywheresoftware.b4a.BA", "packageName")
 	nstr = ph.GetSettings("enabled_notification_listeners")
 	Return nstr.Contains(pstr)
+End Sub
+
+Private Sub b_importarBD_Click
+	Private FH As FileHandler
+	FH.Initialize
+	Wait For (FH.Load) Complete (Result As LoadResult) 'Abre un fileManager para seleccionar la base de datos a importar.
+	File.Copy(Result.Dir, Result.FileName, File.DirInternal, "kmt.db") 'Copia la base de datos seleccionada al directorio interno.
+	Starter.skmt.Initialize(Starter.ruta,"kmt.db", True) 'Reiniciliza la base de datos con la recien importada.
+	ToastMessageShow("¡BD importada!", False)
 End Sub