- Se agregó que se pueda importar la base de datos directamente desde Whatsapp.

- Se agrego un boton en el engrane (hay que poner KMTS1 en el usuario) para mandar a web los usuarios de kmt_info

B4A/B4XMainPage.bas

@@ -26,6 +26,7 @@ Sub Class_Globals
 '	Dim rp As RuntimePermissions
 	Private xui As XUI
 	Public login As B4XMainPage
+	Dim ime As IME
 	Public principal As C_Principal
 	Public clientes As C_Clientes
 	Public cliente As C_Cliente
@@ -77,6 +78,12 @@ Sub Class_Globals
 	Dim q As C_Cuestionario
 '	Private bAceptarPregunta As Button
 '	Dim encuestaIniciada As Boolean = False
+	Private b_mandaUsrs As Button
+	Private p_importarBDWA As Panel
+	Private cb_importarBDWA As CheckBox
+	Dim subirClientes As Int = 0
+	Private p_avanceSubirUsrs As Panel
+	Private l_avanceSubirUsrs As Label
 End Sub
 
 Public Sub Initialize
@@ -184,6 +191,10 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 			Log(LastException)
 		End Try
 	End Try
+	
+	'Revisamos si se disparo el intent de cargar la base de datos desde WhatApp.
+	If Subs.traeUsarIntentBDWA Then Subs.importaBDDesdeWhatsApp
+	
 	c=skmt.ExecQuery("select COUNT(*) AS CUANTOS from HIST_STAY_OUT ")
 	C.Position = 0
 	If c.GetString("CUANTOS")  = 0 Then
@@ -214,6 +225,13 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 End Sub
 
 Sub B4XPage_Appear
+		
+	'Revisamos si se disparo el intent de cargar la base de datos desde WhatApp.
+	If Subs.traeUsarIntentBDWA Then
+		Log(111)
+		Subs.importaBDDesdeWhatsApp
+	End If
+	
 	LogColor("Revisa permisos Location", Colors.Green)
 	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
 	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
@@ -371,6 +389,7 @@ End Sub
 Sub JobDone(Job As HttpJob)
 	Log(Job.Success)
 	If Job.Success = False Then
+		LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red)
 		ToastMessageShow("Error: " & Job.ErrorMessage, True)
 '		LogColor("Error: " & Job.ErrorMessage, Colors.red)
 	Else
@@ -443,6 +462,20 @@ Sub JobDone(Job As HttpJob)
 				IMEI = ""
 			End If
 		End If
+
+		If Job.JobName = "DBRequest" Then
+			Dim result As DBResult = reqManager.HandleJob(Job)
+			If result.Tag.As(String).Contains("guardaCliente_") Then 'query tag
+				subirClientes = subirClientes - 1
+				l_avanceSubirUsrs.Text = $"Subiendo usuarios ${subirClientes}"$
+				Log($"Subiendo usuarios ${subirClientes}"$)
+				If subirClientes = 0 Then
+					ToastMessageShow("Usuarios mandados a web", False)
+					p_avanceSubirUsrs.Visible = False
+				End If
+			End If
+		End If
+
 		Job.Release
 	End If
 '	Log($"Paso1 = ${paso1} - Name: ${name} - IMEI: ${IMEI} - IMEI_BASE: ${IMEI_BASE}"$)
@@ -594,11 +627,20 @@ End Sub
 
 Sub i_engrane_Click
 	lv_server.Clear
+	user.Text = user.Text.Trim
+	b_mandaUsrs.Visible = False
+	cb_importarBDWA.Checked = Subs.traeUsarIntentBDWA
+	p_importarBDWA.Visible = False
 	lv_server.AddSingleLine("http://keymon.lat:1781")
-	If user.Text = "KMTS1" Then lv_server.AddSingleLine("http://10.0.0.205:1781")
+	If user.Text = "KMTS1" Then
+		lv_server.AddSingleLine("http://10.0.0.205:1781")
+		b_mandaUsrs.Visible = True
+		p_importarBDWA.Visible = True
+	End If
 	l_server.Text = Starter.server
 	et_server.Text = Starter.server
 	Subs.panelVisible(p_appUpdate,0,0)
+	ime.HideKeyboard
 End Sub
 
 Sub b_guardar_Click
@@ -671,4 +713,31 @@ End Sub
 '			q.encuestaIniciada = False
 '			Log(">>>>>>>>>>  " & q.encuestaIniciada)
 '	End Select
-'End Sub
+'End Sub
+
+Private Sub b_mandaUsrs_Click
+	Private c As Cursor = Starter.skmt.ExecQuery($"select * from kmt_info"$)
+	Private dbr As DBRequestManager
+	Private cmd1 As DBCommand
+	dbr.Initialize(Me, "http://keymon.lat:9001")
+	If c.RowCount > 0 Then
+		subirClientes = c.RowCount - 1
+		Subs.centraPanel(p_avanceSubirUsrs, p_appUpdate.Width)
+		l_avanceSubirUsrs.Text = $"Subiendo usuarios ${subirClientes}"$
+		p_avanceSubirUsrs.Visible = True
+		For i = 0 To c.RowCount - 1
+			c.Position = i
+			cmd1.Initialize
+			cmd1.Name = "guardaClientesMardsCensosBORR"
+			cmd1.Parameters = Array As Object(c.GetBlob("CAT_CL_FOTO"), c.getstring("CAT_CL_NUM_SERIEFISICO"), c.getstring("CAT_CL_MTOCOMPRA"), c.getstring("CAT_CL_CEDIS"), c.getstring("CAT_CL_LAT"), c.getstring("CAT_CL_LONG"), c.getstring("CAT_CL_FBAJA"), c.getstring("CAT_CL_FALTA"), c.getstring("CAT_CL_CP"), c.getstring("CAT_CL_EDO"), c.getstring("CAT_CL_MUNI"), c.getstring("CAT_CL_COLONIA"), c.getstring("CAT_CL_CALLE2"), c.getstring("CAT_CL_CALLE1"), c.getstring("CAT_CL_NOINT"), c.getstring("CAT_CL_NOEXT"), c.getstring("CAT_CL_CALLE"), c.getstring("CAT_CL_EMAIL"), c.getstring("CAT_CL_TELEFONO"), c.getstring("CAT_CL_ATIENTE2"), c.getstring("CAT_CL_ATIENDE1"), c.getstring("CAT_CL_NOMBRE"), c.getstring("CAT_CL_GIRO"), c.getstring("CAT_CL_DIAS_VISITA"), c.getstring("CAT_CL_TIPO_RUTA"), c.getstring("CAT_CL_RUTA"), c.getstring("CAT_CL_CODIGO"), c.getstring("gestion"), c.getstring("CAT_CL_CRUCE1"), c.getstring("CAT_CL_ESTATUS"), c.getstring("CAT_CL_ENVIO_PENDIENTE"), c.getstring("CAT_CL_FECHA_CAPTURA"), c.getstring("NUEVO"), c.getstring("LAT_CENSADOR"), c.getstring("LON_CENSADOR"), c.getstring("ESTATUS_ORIGINAL"), c.getstring("CAMPOS_MODIFICADOS"), c.getstring("CAT_CL_DIASEMANA"), c.getstring("CAT_CL_SECUENCIA"))
+			Log($"${c.getstring("CAT_CL_CODIGO")}, ${c.getstring("CAT_CL_NOMBRE")}"$)
+			dbr.ExecuteCommand(cmd1 , $"guardaCliente_${c.getstring("CAT_CL_CODIGO")}"$)
+		Next
+	End If
+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