- Se agregó la opcion de importar la base de datos directamente desde Whatsapp, hay que ingresar al engrane con el usuario KMTS1.

B4A/B4XMainPage.bas

@@ -95,6 +95,8 @@ Sub Class_Globals
 	Private p_login As Panel
 	Private l_version As Label
 	
+	Private cb_importarBDWA As CheckBox
+	Private p_importarBDWA As Panel
 End Sub
 
 Public Sub Initialize
@@ -172,6 +174,10 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 		c.Position =0
 		Starter.DBReqServer = c.GetString("CAT_VA_VALOR")
 	End If
+	
+	'Revisamos si se disparo el intent de cargar la base de datos desde WhatApp.
+	If kh.traeUsarIntentBDWA Then kh.importaBDDesdeWhatsApp
+	
 	Dim P As PhoneId
 	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_READ_PHONE_STATE)
 	Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
@@ -206,6 +212,7 @@ Sub B4XPage_Appear
 
 	reqManager.Initialize(Me, Starter.DBReqServer)
 	Log(Starter.DBReqServer)
+	cb_importarBDWA.Checked = kh.traeUsarIntentBDWA
 	c = Starter.skmt.ExecQuery2("select count(*) as CUANTOS from CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?", Array As String ("FECHA"))
 	c.Position =0
 	If c.GetString("CUANTOS") = 0 Then
@@ -426,6 +433,11 @@ Sub ImageView4_Click
 	c.Position =0
 	E_SERVER.text = c.GetString("CAT_VA_VALOR")
 	kh.panelVisible(Panel1, 0, 0)
+	If user.Text.Trim = "KMTS1" Then
+		p_importarBDWA.Visible = True
+	Else
+		p_importarBDWA.Visible = False
+	End If
 End Sub
 
 Sub B_SERVER_Click
@@ -524,4 +536,10 @@ End Sub
 'appUpdater - Ocultamos el anuncio de que se esta descargando el nuevo apk
 Sub ocultaProgreso
 	ProgressDialogHide
+End Sub
+
+Private Sub cb_importarBDWA_CheckedChange(Checked As Boolean)
+'	LogColor($"cb_importarBDWA_CheckedChange = ${Checked}"$, Colors.Red)
+	Starter.skmt.ExecNonQuery("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = 'IMPORTAR_BD_WA'")
+	Starter.skmt.ExecNonQuery($"insert into CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) values ('IMPORTAR_BD_WA', '${Checked}')"$)
 End Sub