- SE AGREGO CODIGO PARA EN ELNVIO DE ERRORES

2026-04-20 12:49:15 +00:00 · 2024-03-23 16:04:24 -06:00
parent 79d74e2fdb
commit 2d4e8dd2d2
8 changed files with 302 additions and 92 deletions
--- a/B4A/C_principal.bas
+++ b/B4A/C_principal.bas
@@ -90,31 +90,23 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	reqManager.Initialize(Me, Starter.DBReqServer)
 	g.Initialize("GPS")
 	qr.Initialize(B4XImageView1.mBase.Width)
-	
 	Panel1.Width = Root.Width
 	Panel1.Height = Root.Height
 	p_camara.Width = Root.Width
 	p_camara.Height = Root.Height
 	p_validacion.Width = Root.Width
 	p_validacion.Height = Root.Height
-	
-	
 	ScrollView1.height = Root.Height - p_general.Height
 	p_scroll.height = Root.Height - p_general.Height
-	
 	p_trabajadas.height = Root.Height - p_general.Height
-	
 End Sub

 Private Sub B4XPage_Appear
-	
 	CheckAndRequestNotificationPermission
 	If Not(Subs.IsConnectedToInternet) Then
 		Msgbox("Habilita los datos del celular","Atención")
 		B4XPage_Appear
 	Else
-	
-	
 		If g.GPSEnabled=False Then
 			Dim Resultado As Int= -3
 			Do While Resultado=-3
@@ -129,8 +121,7 @@ Private Sub B4XPage_Appear
 				End Select
 			Loop
 		Else
-	
-			Log("ENTRE")
+'			Log("ENTRE")
 			StartService(Tracker)
 		
 			m_lat = "0"
@@ -172,7 +163,7 @@ Private Sub B4XPage_Appear
 			b_checkin.visible = True
 			b_checout.visible = False
 			b_comidain.Visible = False
-			b_comidaout.Visible = False			
+			b_comidaout.Visible = False
 		End If
 	
 		''	CallSubDelayed(Tracker, "StartFLPSmall")
@@ -181,7 +172,7 @@ Private Sub B4XPage_Appear
 			Starter.longitud = Tracker.FLP.GetLastKnownLocation.Longitude
 '		Log($"Tenemos UUC: ${Tracker.FLP.GetLastKnownLocation.Latitude},${Tracker.FLP.GetLastKnownLocation.Longitude}"$)
 			GPS_LocationChanged(Tracker.FLP.GetLastKnownLocation)
-			Log("hice esto")
+'			Log("hice esto")
 		End If
 	
 		bu.Initialize
@@ -471,7 +462,7 @@ Private Sub b_checkin_Click
 			p_validacion.Visible = True
 			l_codigo.Text = "Ingresa el codigo para el CHECK-IN."
 			
-		End If		
+		End If
 	Else If donde2 = "2" Then
 		Msgbox2Async(mensaje,"Atención", "Si", "", "No",LoadBitmap(File.DirAssets,"alert2.png"),False)
 		Wait For Msgbox_Result (result As Int)
@@ -690,49 +681,49 @@ Private Sub b_gestion_Click
 			c.Position = 0
 			Log(c.GetString("ESTATUS"))
 			If c.GetString("ESTATUS") = "ENTRADA" Or c.GetString("ESTATUS") = "SALIDA A COMER" Or c.GetString("ESTATUS") = "REGRESO DE COMER" Then
-			If Not(Subs.IsConnectedToInternet) Then
-				MsgboxAsync("Habilita los datos del celular","Atención")
-				B4XPage_Appear
-			Else
-				If distance > 200 Then
-					Log("aqui")
-					MsgboxAsync("No estas cerca del punto asignado","Atención")
-				Else If distance < 200 Then
-					p_trabajadas.Visible= False
-					p_scroll.Visible = True
-					ScrollView1.Visible = True
+				If Not(Subs.IsConnectedToInternet) Then
+					MsgboxAsync("Habilita los datos del celular","Atención")
+					B4XPage_Appear
+				Else
+					If distance > 200 Then
+						Log("aqui")
+						MsgboxAsync("No estas cerca del punto asignado","Atención")
+					Else If distance < 200 Then
+						p_trabajadas.Visible= False
+						p_scroll.Visible = True
+						ScrollView1.Visible = True
 	
-					ScrollView1.Panel.LoadLayout("gestion")
-					ScrollView1.Panel.Height = p_gestion.Height
+						ScrollView1.Panel.LoadLayout("gestion")
+						ScrollView1.Panel.Height = p_gestion.Height
 	
-					p_scroll.BringToFront
-					y = 1
-					x = 1
-					InitializeCamera2
-					p_camara.Visible = True
-					b_gestion.Enabled = False
-					p_gestion.Visible = True
+						p_scroll.BringToFront
+						y = 1
+						x = 1
+						InitializeCamera2
+						p_camara.Visible = True
+						b_gestion.Enabled = False
+						p_gestion.Visible = True
 	
-					nombrefoto = "0"
-					nombrefoto1 = "0"
-					iv_ine.Bitmap = LoadBitmap(File.DirAssets,"camara.png")
-					iv_gestion.Bitmap = LoadBitmap(File.DirAssets,"camara.png")
-					itemselect = ""
+						nombrefoto = "0"
+						nombrefoto1 = "0"
+						iv_ine.Bitmap = LoadBitmap(File.DirAssets,"camara.png")
+						iv_gestion.Bitmap = LoadBitmap(File.DirAssets,"camara.png")
+						itemselect = ""
 	
-					Dim Items As List
-					Items.Initialize
-					Items.Clear
-					Items.Add("SELECCIONA UNA OPCION ")
-					Items.Add("APROBADO")
-					Items.Add("RECHAZADO")
-					Items.Add("INTERMITENCIA")
-					Items.Add("NO CONCLUIDO")
-					cb_estatus.SetItems(Items)
-					itemselect = "SELECCIONA UNA OPCION"
-					p_inci.Visible = False
-					ajustaTamano
+						Dim Items As List
+						Items.Initialize
+						Items.Clear
+						Items.Add("SELECCIONA UNA OPCION ")
+						Items.Add("APROBADO")
+						Items.Add("RECHAZADO")
+						Items.Add("INTERMITENCIA")
+						Items.Add("NO CONCLUIDO")
+						cb_estatus.SetItems(Items)
+						itemselect = "SELECCIONA UNA OPCION"
+						p_inci.Visible = False
+						ajustaTamano
+					End If
 				End If
-			End If
 			Else
 				MsgboxAsync("Por favor hacer el check-in","Atención")
 			End If
@@ -916,7 +907,7 @@ Sub ajustaTamano
 		Log("Invisible 1 y 2")
 		b_cancelar.Top = iv_ine.Top + iv_ine.Height + 45
 		b_finalizar.Top = iv_ine.Top + iv_ine.Height + 45
-	End If	
+	End If
 	p_gestion.Height = b_cancelar.Top + 150
 	ScrollView1.Panel.Height = p_gestion.Height
 End Sub
@@ -1135,7 +1126,7 @@ Sub mandaPendientes
 	If c.RowCount > 0 Then
 		For i = 0 To c.RowCount -1
 			c.Position=i
-			Dim cmd As DBCommand			
+			Dim cmd As DBCommand
 			cmd.Initialize
 			cmd.Name = "insert_GESTION_GABICO"
 			cmd.Parameters = Array As Object(c.GetString("HIST_PM_FECHA"), c.GetString("HIST_PR_NOMBRE"),c.GetString("HIST_PR_TELEFONO"), c.GetString("HIST_PR_CORREO"), c.GetString("HIST_PR_CURP"), c.GetBlob("HIST_PR_INE"), c.GetString("HIST_PR_ESTATUS"),c.GetBlob("HIST_PR_EVIDENCIA"), c.GetString("HIST_PR_OBSERVACIONES"), c.GetString("HIST_PR_COMENTARIOERROR"), c.GetString("HIST_PR_IDPROYECTO"), c.GetString("HIST_PR_NOMBREPROYECTO"), c.GetString("HIST_PR_IDSUCURSAL"), c.GetString("HIST_PR_NOMBRESUCURSAL"), c.GetString("HIST_PR_USUARIO"), c.GetString("HIST_PR_LATITUD"), c.GetString("HIST_PR_LONGITUD"), c.GetString("HIST_PR_BATERIA"))
@@ -1412,7 +1403,7 @@ End Sub

 Private Sub b_comidain_Click
 	If p_scroll.Visible = False Then
-	Log("Cumple panel invisible")
+		Log("Cumple panel invisible")
 		If horasalidacomer Then
 			If Not(Subs.IsConnectedToInternet) Then
 				Msgbox("Habilita los datos del celular","Atención")
@@ -1520,8 +1511,8 @@ Sub horasalidacomer As Boolean
 	Log(DateUtils.TicksToString(newDate))

 	Dim p2 As Period
-	p2.Hours = 1 
-	p2.Minutes = 0 
+	p2.Hours = 1
+	p2.Minutes = 0
 	DateTime.DateFormat = "MM/dd/yyyy HH:mm"
 	Dim fecha2 As String = DateTime.Date(DateTime.Now)
 	Dim prueba2() As String = Regex.Split(" ",fecha2)
@@ -1567,7 +1558,7 @@ Sub horasalidacomer As Boolean
 End Sub

 Private Sub b_aceptar_Click
-		mandacodigo
+	mandacodigo
 End Sub

 Private Sub p_validacion_Click
@@ -1644,7 +1635,7 @@ Private Sub cb_rechazadas_CheckedChange(Checked As Boolean)
 	botongestionadas
 End Sub

-Sub botongestionadas	
+Sub botongestionadas
 	c = Starter.skmt.ExecQuery("SELECT HIST_PR_NOMBRE, HIST_PR_ESTATUS FROM HIST_PROMOTORIA")
 	If c.RowCount > 0 Then
 		If cb_aprobadas.Checked = False And cb_rechazadas.Checked = False Then