4.04.17 se agrega codigos qr

2026-04-20 12:49:15 +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/login.bas
+++ b/B4A/login.bas
@@ -39,7 +39,8 @@ Sub Class_Globals
 	Dim horacomout As String
 	Private p_adorno As Panel
 	Private l_version As Label
-	
+	Public rp As RuntimePermissions
+	Dim tipoenvio As String
 End Sub

 'You can add more parameters here.
@@ -58,6 +59,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 End Sub

 Sub B4XPage_Appear
+	
 	If Starter.muestraProgreso = 1 Then
 		muestraProgreso("Descargando actualización")
 		Starter.muestraProgreso = 0
@@ -68,7 +70,7 @@ Sub B4XPage_Appear
 	p_adorno.Width = Root.Width * 0.85
 	p_adorno.Height = Root.Height * 0.80
 	Log("inicio1")
-'	StartService(Tracker)
+	StartService(Tracker)
 	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
 	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
 	If Result Then
@@ -78,7 +80,8 @@ Sub B4XPage_Appear
 		ToastMessageShow("Sin permisos para GPS", True)
 	End If
 	Log(Result)
-	
+	Log("latitud " &Starter.latitud)
+	Log("longitud " &Starter.longitud)
 '	Dim p As Period
 '	p.Days = 0
 '	p.Hours = 0
@@ -102,6 +105,8 @@ Sub B4XPage_Appear
 '	Else If EsDomingo(newDate) Then
 '		Log("¡Hoy es Domingo!")
 '	End If
+	Log(Starter.latitud)
+	Log(Starter.longitud)
 End Sub

 Private Sub b_inicio_Click
@@ -119,10 +124,6 @@ Private Sub b_inicio_Click
 '	B4XPages.ShowPage ("Principal")
 End Sub

-Private Sub b_inicio_LongClick
-	Private X As Int = "A"
-End Sub
-
 Sub JobDone (Job As HttpJob)
 	If Job.Success = False Then
 		ToastMessageShow("Error: " & Job.ErrorMessage, True)
@@ -134,7 +135,7 @@ Sub JobDone (Job As HttpJob)
 			If result.Tag = "usuario" Then 'query tag
 				For Each records() As Object In result.Rows
 					For Each k As String In result.Columns.Keys
-'						Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k)))
+						Log(result.Tag & ": " & k & ": " & records(result.Columns.Get(k)))
 					Next
 					If records(result.Columns.Get ("USUARIO")) = "OKActivo" Then
 						Starter.almacen = records(result.Columns.Get ("CAT_LO_AGENCIA"))
@@ -173,23 +174,28 @@ Sub JobDone (Job As HttpJob)
 					Log(Starter.trabaja)
 					If Starter.trabaja = 1 Then
 						If perfil = 3 Then
+							tipoenvio = "Ingreso"
 							CallSubDelayed(Starter,"ENVIA_ULTIMA_GPS")
 							B4XPages.ShowPage("Principal")
-'							Log("AQUI ANDO")
+							Log("AQUI ANDO")
 						Else If perfil = 2 Then
+							tipoenvio = "Ingreso"
 							CallSubDelayed(Starter,"ENVIA_ULTIMA_GPS")
-'							Log("AQUI ACA")
+							Log("AQUI ACA")
 							B4XPages.ShowPage("Supervisor")
 						End If
 					Else If Starter.trabaja = 0 Then
-						B4XPages.ShowPage("Principal")
 						MsgboxAsync("Hoy es día de descanso","Atención")
 					End If
 				Next
 				' ToastMessageShow(" Historico Clientes Promociones Actualizado." , True)
+
 			End If
+			
 		End If			
+		
 	End If
+	
 End Sub

 Private Sub B4XPage_CloseRequest As ResumableSub
@@ -198,6 +204,7 @@ Private Sub B4XPage_CloseRequest As ResumableSub
 	Else
 		B4XPages.ShowPage("login")
 	End If
+
 '	Return True
 	Return False
 End Sub
@@ -205,10 +212,12 @@ End Sub
 Private Sub ImageView5_Click
 	p_configuracion.Visible = True
 	lv_server.Clear
-	lv_server.AddSingleLine("http://keymon.lat:1783")
+	lv_server.AddSingleLine("http://keymon.net:1783")
 	If et_user.Text = "KMTS1" Then lv_server.AddSingleLine("http://11.0.0.196:1783")
 '	l_server.Text = Starter.server
 	et_server.Text = Starter.DBReqServer
+	Log("latitud " &Starter.latitud)
+	Log("longitud " &Starter.longitud)
 End Sub

 Private Sub p_configuracion_Click
@@ -285,108 +294,10 @@ Sub notiLowReturn(title As String, Body As String, id As Int) As Notification 'i
 	Return notification
 End Sub

-'' Función para verificar si la fecha actual es un lunes
-'Sub EsLunes(fecha As Long) As Boolean
-'	' Crear un objeto Calendar
-'	Dim cal As JavaObject
-'	cal.InitializeNewInstance("java.util.GregorianCalendar", Null)
-'    
-'	' Establecer la fecha actual en el objeto Calendar
-'	cal.RunMethod("setTimeInMillis", Array(fecha))
-'    
-'	' Obtener el día de la semana (1 para domingo, 2 para lunes, ..., 7 para sábado)
-'	Dim diaSemana As Int = cal.RunMethod("get", Array(7))
-'    
-'	' Verificar si es lunes (día de la semana = 2)
-'	Return diaSemana = 2
-'End Sub
-'
-'Sub EsMartes(fecha As Long) As Boolean
-'	' Crear un objeto Calendar
-'	Dim cal As JavaObject
-'	cal.InitializeNewInstance("java.util.GregorianCalendar", Null)
-'    
-'	' Establecer la fecha actual en el objeto Calendar
-'	cal.RunMethod("setTimeInMillis", Array(fecha))
-'    
-'	' Obtener el día de la semana (1 para domingo, 2 para lunes, ..., 7 para sábado)
-'	Dim diaSemana As Int = cal.RunMethod("get", Array(7))
-'    
-'	' Verificar si es lunes (día de la semana = 2)
-'	Return diaSemana = 3
-'End Sub
-'
-'Sub EsMiercoles(fecha As Long) As Boolean
-'	' Crear un objeto Calendar
-'	Dim cal As JavaObject
-'	cal.InitializeNewInstance("java.util.GregorianCalendar", Null)
-'    
-'	' Establecer la fecha actual en el objeto Calendar
-'	cal.RunMethod("setTimeInMillis", Array(fecha))
-'    
-'	' Obtener el día de la semana (1 para domingo, 2 para lunes, ..., 7 para sábado)
-'	Dim diaSemana As Int = cal.RunMethod("get", Array(7))
-'    
-'	' Verificar si es lunes (día de la semana = 2)
-'	Return diaSemana = 4
-'End Sub
-'
-'Sub Esjueves(fecha As Long) As Boolean
-'	' Crear un objeto Calendar
-'	Dim cal As JavaObject
-'	cal.InitializeNewInstance("java.util.GregorianCalendar", Null)
-'    
-'	' Establecer la fecha actual en el objeto Calendar
-'	cal.RunMethod("setTimeInMillis", Array(fecha))
-'    
-'	' Obtener el día de la semana (1 para domingo, 2 para lunes, ..., 7 para sábado)
-'	Dim diaSemana As Int = cal.RunMethod("get", Array(7))
-'    
-'	' Verificar si es lunes (día de la semana = 2)
-'	Return diaSemana = 5
-'End Sub
-'
-'Sub Esviernes(fecha As Long) As Boolean
-'	' Crear un objeto Calendar
-'	Dim cal As JavaObject
-'	cal.InitializeNewInstance("java.util.GregorianCalendar", Null)
-'    
-'	' Establecer la fecha actual en el objeto Calendar
-'	cal.RunMethod("setTimeInMillis", Array(fecha))
-'    
-'	' Obtener el día de la semana (1 para domingo, 2 para lunes, ..., 7 para sábado)
-'	Dim diaSemana As Int = cal.RunMethod("get", Array(7))
-'    
-'	' Verificar si es lunes (día de la semana = 2)
-'	Return diaSemana = 6
-'End Sub
-'
-'Sub Essabado(fecha As Long) As Boolean
-'	' Crear un objeto Calendar
-'	Dim cal As JavaObject
-'	cal.InitializeNewInstance("java.util.GregorianCalendar", Null)
-'    
-'	' Establecer la fecha actual en el objeto Calendar
-'	cal.RunMethod("setTimeInMillis", Array(fecha))
-'    
-'	' Obtener el día de la semana (1 para domingo, 2 para lunes, ..., 7 para sábado)
-'	Dim diaSemana As Int = cal.RunMethod("get", Array(7))
-'    
-'	' Verificar si es lunes (día de la semana = 2)
-'	Return diaSemana = 7
-'End Sub
-'
-'Sub EsDomingo(fecha As Long) As Boolean
-'	' Crear un objeto Calendar
-'	Dim cal As JavaObject
-'	cal.InitializeNewInstance("java.util.GregorianCalendar", Null)
-'    
-'	' Establecer la fecha actual en el objeto Calendar
-'	cal.RunMethod("setTimeInMillis", Array(fecha))
-'    
-'	' Obtener el día de la semana (1 para domingo, 2 para lunes, ..., 7 para sábado)
-'	Dim diaSemana As Int = cal.RunMethod("get", Array(7))
-'    
-'	' Verificar si es lunes (día de la semana = 2)
-'	Return diaSemana = 1
-'End Sub
+Private Sub b_cambiaubi_Click
+	rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
+	Wait For B4XPage_PermissionResult (Permission As String, Result As Boolean)
+	If Result Then
+		StartActivity(MAPA_RUTAS)
+	End If
+End Sub