From a5280c4d437ba5550a1d85a4923a0f39f1ff79f8 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Fri, 27 Jun 2025 10:48:27 -0600 Subject: [PATCH] =?UTF-8?q?-VERSION=205.06.26=20-=20Cambio=20de=2050=20seg?= =?UTF-8?q?undos=20a=2010=20segundos=20en=20la=20revision=20de=20la=20hora?= =?UTF-8?q?=20para=20los=20recordatorios.=20-=20Cambio=20en=20el=20envio?= =?UTF-8?q?=20de=20la=20ruta=20para=20la=20contrase=C3=B1a=20de=20la=20geo?= =?UTF-8?q?cerca,=20si=20no=20habia=20cliente=20seleccionado,=20no=20regre?= =?UTF-8?q?saba=20la=20ruta=20correcta.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/B4XMainPage.bas | 12 ++++++++++-- B4A/Mariana.b4a.meta | 4 ++-- B4A/Starter.bas | 6 ++++-- 3 files changed, 16 insertions(+), 6 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 7ae8182..f034d9f 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -898,7 +898,15 @@ Private Sub b_passGeocerca_Click cmd.Initialize cmd.Name = "traePassGeocerca" cmd.Parameters = Array As Object(Subs.traeAlmacen, Subs.traeRuta, et_passGeocerca.text) - Log($"${Subs.traeAlmacen}, ${Subs.traeRuta}, ${et_passGeocerca.text}"$) + + c=Starter.skmt.ExecQuery("select CAT_CL_RUTA from kmt_info") + Private r As String = "0" + If c.RowCount > 0 Then + c.Position=0 + r = c.GetString("CAT_CL_RUTA") + End If + + Log($"${Subs.traeAlmacen}, ${r}, ${et_passGeocerca.text}"$) reqManager.ExecuteQuery(cmd , 0, "traePassGeocerca") ' If et_passGeocerca.Text = "12345" Then @@ -914,7 +922,7 @@ End Sub Private Sub p_geocerca_Click Log("CLICKED") Dim activa As Int = 1 - If Subs.estamosEnAlmacen(50) Then + If Subs.estamosEnAlmacen(500) Then If l_geocerca.Text <> "Buscando ubicación ..." Then If passSupervisor = "" Then p_transparente.Visible = True diff --git a/B4A/Mariana.b4a.meta b/B4A/Mariana.b4a.meta index 9b763d6..16a7370 100644 --- a/B4A/Mariana.b4a.meta +++ b/B4A/Mariana.b4a.meta @@ -78,7 +78,7 @@ ModuleClosedNodes23= ModuleClosedNodes24= ModuleClosedNodes25= ModuleClosedNodes26= -ModuleClosedNodes27=9,10,11,12,13,14 +ModuleClosedNodes27=2,3,4,5,6,7,8,9,10,11,12,13,14 ModuleClosedNodes28= ModuleClosedNodes29=9,10,11 ModuleClosedNodes3= @@ -88,6 +88,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=B4XMainPage,b_passGeocerca_Click,885,6,Starter,ENVIA_ULTIMA_GPS,90,0,Starter,Service_Start,57,0,Starter,IsConnectedToInternet,158,0,C_Cliente,B4XPage_Created,198,0,Subs,geocercaHabilitada,1394,0,C_Cliente,B4XPage_Appear,358,2,C_Cliente,GPS_LocationChanged,395,0,Starter,timerRecordatorio_Tick,160,6,B4XMainPage,JobDone,577,6 +NavigationStack=Diseñador Visual,login.bal,-100,1,Starter,Service_Start,51,0,Starter,IsConnectedToInternet,158,0,Starter,timerRecordatorio_Tick,162,6,B4XMainPage,i_engrane_Click,771,0,C_Principal,JobDone,1795,0,C_Principal,cargar_Click,971,0,B4XMainPage,p_geocerca_Click,912,0,B4XMainPage,p_transparente_Click,888,0,B4XMainPage,b_passGeocerca_Click,898,6 SelectedBuild=0 VisibleModules=27,2,12,4,28,15,5,8,14,18,29 diff --git a/B4A/Starter.bas b/B4A/Starter.bas index 092cb13..b4bfb85 100644 --- a/B4A/Starter.bas +++ b/B4A/Starter.bas @@ -61,7 +61,7 @@ Sub Service_Start (StartingIntent As Intent) If s.traeDBReqServerDeBD(skmt) <> "N/A" Then DBReqServer = s.traeDBReqServerDeBD(skmt) reqManager.Initialize(Me, DBReqServer) ' StartService(NotificationService) - timerRecordatorio.Initialize("timerRecordatorio", 50 * 1000) + timerRecordatorio.Initialize("timerRecordatorio", 10 * 1000) timerRecordatorio.Enabled = True End Sub @@ -165,6 +165,7 @@ End Sub Private Sub timerRecordatorio_Tick '10:30, 13:00 y 15:30 + Log($"${DateTime.GetHour(DateTime.now)}:${DateTime.GetMinute(DateTime.now)}"$) Log("Revisando la hora - UltimoRecordatorio: " & ultimoRecordatorio) If ultimoRecordatorio <> DateTime.GetHour(DateTime.now) & DateTime.GetMinute(DateTime.now) Then If (DateTime.GetHour(DateTime.now) = 10 And DateTime.GetMinute(DateTime.now) = 20) _ 'Recordatorio de las 10:20 @@ -179,7 +180,8 @@ Private Sub timerRecordatorio_Tick Or (DateTime.GetHour(DateTime.now) = 15 And DateTime.GetMinute(DateTime.now) = 25) _ 'Recordatorio de las 15:25 Or (DateTime.GetHour(DateTime.now) = 15 And DateTime.GetMinute(DateTime.now) = 29) _ 'Recordatorio de las 15:29 Or (DateTime.GetHour(DateTime.now) = 15 And DateTime.GetMinute(DateTime.now) = 30) _ 'Recordatorio de las 15:30 - Or (DateTime.GetHour(DateTime.now) = 17 And DateTime.GetMinute(DateTime.now) = 70) Then ' HORARIO DE PRUEBA + Or (DateTime.GetHour(DateTime.now) = 10 And DateTime.GetMinute(DateTime.now) = 70) Then ' HORARIO DE PRUEBA + Log("¡¡MANDAMOS RECORDATORIO!!") If Not(B4XPages.GetManager.IsForeground) Then Subs.notiHigh("¡¡ATENCION!!", "Recuerda enviar tu venta.", Main) If B4XPages.MainPage.IsInitialized And B4XPages.MainPage.pantallaActual.IsInitialized Then B4XPages.MainPage.recordatorio.agregaPanelRecordatorio(B4XPages.MainPage.pantallaActual)