4.04.17 se agrega codigos qr

2026-04-20 20:59:18 +00:00 · 2025-09-01 13:34:06 -06:00
parent dea84574e5
commit 7df82c83ae
15 changed files with 483 additions and 423 deletions
--- a/B4A/C_principal.bas
+++ b/B4A/C_principal.bas
@@ -76,6 +76,7 @@ Sub Class_Globals
 	Private clv_gestionadas As CustomListView
 	Private l_nombre As Label
 	Private l_estatus As Label
+	Private l_version As Label
 End Sub

 'You can add more parameters here.
@@ -90,23 +91,32 @@ 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
+	B4XPages.MainPage.login.tipoenvio = "Envio automatico"
+	l_version.Text = Application.VersionName
 	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
@@ -121,7 +131,8 @@ Private Sub B4XPage_Appear
 				End Select
 			Loop
 		Else
-'			Log("ENTRE")
+	
+			Log("ENTRE")
 			StartService(Tracker)
 		
 			m_lat = "0"
@@ -163,7 +174,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")
@@ -172,7 +183,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
@@ -462,7 +473,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)
@@ -681,49 +692,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 < 2000000000000000000000000000 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
-					End If
-				End If
+					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
 			Else
 				MsgboxAsync("Por favor hacer el check-in","Atención")
 			End If
@@ -907,7 +918,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
@@ -1126,7 +1137,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"))
@@ -1403,7 +1414,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")
@@ -1511,8 +1522,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)
@@ -1558,7 +1569,7 @@ Sub horasalidacomer As Boolean
 End Sub

 Private Sub b_aceptar_Click
-	mandacodigo
+		mandacodigo
 End Sub

 Private Sub p_validacion_Click
@@ -1635,7 +1646,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