- Se agregaron validaciones de conexion al hacer clic en el boton de CONECTAR en la pantalla principal

B4A/C_Principal.bas

@@ -276,7 +276,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	kh.centraPanel(p_botonesResumen, Root.Width)
 '	kh.centraPanel(Panel7, Root.Width)
 '	kh.centraPanel(PNL_ACCESO, Root.Width)
-	
+
 	P_RESUMEN.Top = 0 : P_RESUMEN.Left = 0 'Panel Resumen
 '	p_resumenAcumulado.Top = 0 : p_resumenAcumulado.Left = 0 ' Panel Resumen Acumualado
 	p_downloadPDF.Top = 0 : p_downloadPDF.left = 0
@@ -290,6 +290,8 @@ End Sub
 
 Sub B4XPage_Appear
 '	Log(Subs.traeDiaSemana)
+	Starter.errorConnDBReq = False
+	connecta.TextColor = Colors.White
 	StartBluetooth
 '	If Not(kh.CheckNotificationAccess) Then
 '		Msgbox2Async($"Se necesita acceso a las notificaciones, haga clic en "Aceptar" y en la siguiente pantalla permita el acceso a la aplicación "${Application.LabelName}"."$, "Permisos necesarios", "Aceptar", "", "", Null, True)
@@ -879,6 +881,11 @@ Sub JobDone(Job As HttpJob)
 	reqManager.trackNext(Job)
 	If Not(Job.Success) Then
 		LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red)
+		If Job.Tag = "version" Then
+			Starter.errorConnDBReq = True
+			connecta.TextColor = Colors.red
+			ToastMessageShow("Error al conectarse con Keymon, revise su conexión y reintente!", True)
+		End If
 		If Job.ErrorMessage = "STREAM" Then
 			contador_strem = contador_strem + 1
 			If CARGA = "SUBIR" Then
@@ -1571,6 +1578,7 @@ Sub JobDone(Job As HttpJob)
 		If Job.JobName = "DBRequest" Then
 			Dim RESULT As DBResult = reqManager.HandleJob(Job)
 			If RESULT.Tag = "version" Then 'query tag
+				connecta.TextColor = Colors.White
 				For Each records() As Object In RESULT.Rows
 					Starter.skmt.ExecNonQuery("delete from VERSION")
 					Dim CAT_VE_VERSION As String = records(RESULT.Columns.Get("CAT_VE_VERSION"))
@@ -1984,7 +1992,13 @@ Sub Activity_KeyPress (key As Int) As Boolean
 End Sub
 
 Sub connecta_Click
-	
+'	wait for (kh.ping) Complete (Success As Boolean, ExitValue As Int, StdOut As String, StdErr As String)
+	If Not(IsConnectedToInternet) Then
+		connecta.TextColor = Colors.Red
+		ToastMessageShow("No hay conexión a internet, por favor establecer una conexión y reintentar!!", True)
+	Else
+		connecta.TextColor = Colors.White
+	End If
 '	Log("#################   PERMISOS BT: " & Starter.rp.Check("android.permission.BLUETOOTH_CONNECT"))
 '	Log("Permisos BT: " & Starter.rp.Check("android.permission.BLUETOOTH_CONNECT"))
 '	Log("REVISAMOS PERMISOS DE BT")
@@ -2043,6 +2057,24 @@ Sub connecta_Click
 '	End If
 End Sub
 
+Private Sub connecta_LongClick
+	Private h As ResultSet = Starter.skmt.ExecQuery($"select * from bitacoraGPS"$)
+	Do While h.nextrow
+		cmd.Initialize
+		cmd.Name = "mandaBitacora"
+'		TMP_ALMACEN, TMP_USUARIO, TMP_RUTA, TMP_EVENTO, TMP_ID_CLIENTE, TMP_NOMBRE_CLIENTE, 																	TMP_INICIO, TMP_FINAL, TMP_LATITUD, TMP_LONGITUD, TMP_PRESICION, TMP_MOTIVO_NO_VENTA, TMP_MOTIVO_NO_VISITA, TMP_FECHA_SINC
+		cmd.Parameters = Array As Object(h.GetString("almacenb"), h.GetString("usuariob"), h.GetString("rutab"), h.GetString("eventob"), h.GetString("clienteb"), h.GetString("clienteb"), h.GetString("iniciob"), h.GetString("finb"), h.GetString("latitudb"), h.GetString("longitudb"), h.GetString("precision"), h.GetString("motivonoventa"), h.GetString("motivonovisita"))
+		reqManager.ExecuteCommand(cmd , "mandaBitacora")
+'		cmd.Name = "borraBitacora"
+'		cmd.Parameters = Array As Object(c.GetString("almacenb"), c.GetString("rutab"), c.GetString("usuariob"), c.GetString("almacenb"))
+	Loop
+'	End If
+	Log("MANDAMOS BITACORA")
+'	Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,ALMACEN,l_ruta.Text,"Carga día", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),Starter.lat_gps,Starter.lon_gps,"2","","")
+'	sql.mandaBitacora = insert into KELLOGGS.TMP_GPS_DIARIO (TMP_ALMACEN, TMP_USUARIO, TMP_RUTA, TMP_EVENTO, TMP_ID_CLIENTE, TMP_NOMBRE_CLIENTE, TMP_INICIO, TMP_FINAL, TMP_LATITUD, _
+'	TMP_LONGITUD, TMP_PRESICION, TMP_MOTIVO_NO_VENTA, TMP_MOTIVO_NO_VISITA, TMP_FECHA_SINC) values ((?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),sysdate)
+End Sub
+
 Sub BUSCA_Click
 	Subs.iniciaActividad("TicketsDia")
 End Sub
@@ -3322,24 +3354,6 @@ Sub GetBA As Object
 	Return jo.RunMethod("getBA", Null)
 End Sub
 
-Private Sub connecta_LongClick
-	Private h As ResultSet = Starter.skmt.ExecQuery($"select * from bitacoraGPS"$)
-	Do While h.nextrow
-		cmd.Initialize
-		cmd.Name = "mandaBitacora"
-'		TMP_ALMACEN, TMP_USUARIO, TMP_RUTA, TMP_EVENTO, TMP_ID_CLIENTE, TMP_NOMBRE_CLIENTE, 																	TMP_INICIO, TMP_FINAL, TMP_LATITUD, TMP_LONGITUD, TMP_PRESICION, TMP_MOTIVO_NO_VENTA, TMP_MOTIVO_NO_VISITA, TMP_FECHA_SINC
-		cmd.Parameters = Array As Object(h.GetString("almacenb"), h.GetString("usuariob"), h.GetString("rutab"), h.GetString("eventob"), h.GetString("clienteb"), h.GetString("clienteb"), h.GetString("iniciob"), h.GetString("finb"), h.GetString("latitudb"), h.GetString("longitudb"), h.GetString("precision"), h.GetString("motivonoventa"), h.GetString("motivonovisita"))
-		reqManager.ExecuteCommand(cmd , "mandaBitacora")
-'		cmd.Name = "borraBitacora"
-'		cmd.Parameters = Array As Object(c.GetString("almacenb"), c.GetString("rutab"), c.GetString("usuariob"), c.GetString("almacenb"))
-	Loop
-'	End If
-	Log("MANDAMOS BITACORA")
-'	Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario,ALMACEN,l_ruta.Text,"Carga día", "",Subs.fechanormal(DateTime.Now),Subs.fechanormal(DateTime.Now),Starter.lat_gps,Starter.lon_gps,"2","","")
-'	sql.mandaBitacora = insert into KELLOGGS.TMP_GPS_DIARIO (TMP_ALMACEN, TMP_USUARIO, TMP_RUTA, TMP_EVENTO, TMP_ID_CLIENTE, TMP_NOMBRE_CLIENTE, TMP_INICIO, TMP_FINAL, TMP_LATITUD, _
-'	TMP_LONGITUD, TMP_PRESICION, TMP_MOTIVO_NO_VENTA, TMP_MOTIVO_NO_VISITA, TMP_FECHA_SINC) values ((?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),(?),sysdate)
-End Sub
-
 'Borramos los clientes nuevosd que no tengan venta.
 Sub borraClientesNuevosSinVenta 'ignore
 	Private x As Cursor = Starter.skmt.ExecQuery("Select CAT_CL_CODIGO from kmt_info where CAT_CL_CODIGO like 'N%' and CAT_CL_CODIGO not in (Select pe_cliente from pedido)")
@@ -3366,4 +3380,15 @@ End Sub
 
 Private Sub p_resumenAcumulado_Click
 	
+End Sub
+
+Sub IsConnectedToInternet As Boolean 'ignore
+	Dim r As Reflector
+	r.Target = r.GetContext
+	r.Target = r.RunMethod2("getSystemService", "connectivity", "java.lang.String")
+	r.Target = r.RunMethod("getActiveNetworkInfo")
+	If r.Target <> Null Then
+		Return r.RunMethod("isConnectedOrConnecting")
+	End If
+	Return False
 End Sub