From 6d2594f48209464a98fb55d8fd2d362a19cb804d Mon Sep 17 00:00:00 2001
From: Jose Alberto Guerra Ugalde <cheveguerra@gmail.com>
Date: Wed, 9 Jul 2025 18:14:49 -0600
Subject: [PATCH] =?UTF-8?q?-=20VERSION=205.07.05=20-=20Se=20cambio=20el=20?=
 =?UTF-8?q?funcionamiento=20de=20la=20geocerca.=20-=20En=20el=20almacen=20?=
 =?UTF-8?q?SIEMPRE=20se=20puede=20realizar=20venta.=20-=20Se=20quito=20el?=
 =?UTF-8?q?=20boton=20de=20"habilitar=20geocerca"=20del=20engrane.=20-=20E?=
 =?UTF-8?q?n=20la=20pantala=20de=20cliente,=20si=20se=20hace=20clic=20larg?=
 =?UTF-8?q?o=20en=20la=20etiqueta=20de=20la=20distancia=20a=20la=20tienda,?=
 =?UTF-8?q?=20aparece=20un=20popup=20para=20ingresar=20la=20contrase=C3=B1?=
 =?UTF-8?q?a=20(de=20un=20solo=20uso)=20de=20supervisor=20(esta=20se=20enc?=
 =?UTF-8?q?uentra=20en=20el=20portal).?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 B4A/B4XMainPage.bas   |   3 +-
 B4A/C_Cliente.bas     | 143 ++++++++++++++++++++++++++++++++++--------
 B4A/Files/cliente.bal | Bin 36369 -> 38501 bytes
 B4A/Files/login.bal   | Bin 16626 -> 16637 bytes
 B4A/Mariana.b4a       |   2 +-
 B4A/Mariana.b4a.meta  |  10 +--
 B4A/Starter.bas       |   5 +-
 B4A/Subs.bas          |   3 +-
 B4A/Tracker.bas       |   7 +++
 9 files changed, 137 insertions(+), 36 deletions(-)

diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas
index f034d9f..cd2bf67 100644
--- a/B4A/B4XMainPage.bas
+++ b/B4A/B4XMainPage.bas
@@ -106,6 +106,7 @@ Sub Class_Globals
 	Dim lonAlmacen As String = "0"
 	Dim pantallaActual As B4XView
 	Dim recordatorio As C_Recordatorio
+	
 End Sub
 
 Public Sub Initialize
@@ -947,4 +948,4 @@ End Sub
 
 Private Sub p_geocerca2_Click
 	p_geocerca_Click
-End Sub
\ No newline at end of file
+End Sub
diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas
index 48a95d8..294f522 100644
--- a/B4A/C_Cliente.bas
+++ b/B4A/C_Cliente.bas
@@ -146,6 +146,10 @@ Sub Class_Globals
 	Private lv_yalo As ListView
 	Dim distance As Long = 500000000000
 	Dim enGeocerca As Boolean = False
+	Private p_transparenteGeocerca As Panel
+	Private p_passGeocerca As Panel
+	Private b_passGeocerca As Button
+	Private et_passGeocerca As EditText
 End Sub
 
 'You can add more parameters here.
@@ -199,11 +203,15 @@ Private Sub B4XPage_Created (Root1 As B4XView)
 	lv_yalo.top = (Root.Height / 2) - (lv_yalo.Height / 2)
 	btAdmin.Initialize("BlueTeeth")
 	cmp20.Initialize("Printer")
+	p_transparenteGeocerca.top = 0 : p_transparenteGeocerca.Left = 0
+	p_transparenteGeocerca.height = Root.Height : p_transparenteGeocerca.width = Root.width
+	Subs.centraPanel(p_passGeocerca, Root.Width)
 End Sub
 
 'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
 
 Sub B4XPage_Appear
+	distance = 500000000000
 	B4XPages.mainpage.pantallaActual = Root
 	b_noVenta.Enabled = True
 	b_venta.Enabled = True
@@ -336,8 +344,7 @@ Sub B4XPage_Appear
 '		b_noVenta.Visible = True
 '		b_venta.Visible = True
 '	End If
-	CallSubDelayed(Tracker, "Track")
-	
+
 	If Not(Starter.GPS.GPSEnabled) Then
 		ToastMessageShow("Debe Activar el GPS del Equipo.", True)
 		StartActivity(Starter.GPS.LocationSettingsIntent)
@@ -345,16 +352,25 @@ Sub B4XPage_Appear
 		Starter.GPS.Start(0, 0)
 '		If Starter.ubicacionActual.Latitude <> 0 Then GPS_LocationChanged(Starter.ubicacionActual)
 	End If
-	CallSubDelayed(Tracker, "StartFLPSmall")
-	If Tracker.FLP.IsInitialized And Tracker.FLP.GetLastKnownLocation.IsInitialized Then 'Si tenemos "UltimaUbicaccionConocida" la usamos.
-		B4XPages.MainPage.lat_gps = Tracker.FLP.GetLastKnownLocation.Latitude
-		B4XPages.MainPage.lon_gps = Tracker.FLP.GetLastKnownLocation.Longitude
-'		Log($"Tenemos UUC: ${Tracker.FLP.GetLastKnownLocation.Latitude},${Tracker.FLP.GetLastKnownLocation.Longitude}"$)
-		GPS_LocationChanged(Tracker.FLP.GetLastKnownLocation)
+	
+	Log("Tracker LR Init: " & (Tracker.actualLR.IsInitialized))
+	If Not(Tracker.actualLR.IsInitialized) Then
+		Log("INICIAMOS TRACKER")
+		CallSubDelayed(Tracker, "Track")
+		CallSubDelayed(Tracker, "StartFLPSmall")
 	End If
+'	If Tracker.FLP.IsInitialized And Tracker.FLP.GetLastKnownLocation.IsInitialized Then 'Si tenemos "UltimaUbicaccionConocida" la usamos.
+'		B4XPages.MainPage.lat_gps = Tracker.FLP.GetLastKnownLocation.Latitude
+'		B4XPages.MainPage.lon_gps = Tracker.FLP.GetLastKnownLocation.Longitude
+''		Log($"Tenemos UUC: ${Tracker.FLP.GetLastKnownLocation.Latitude},${Tracker.FLP.GetLastKnownLocation.Longitude}"$)
+'		GPS_LocationChanged(Tracker.FLP.GetLastKnownLocation)
+'	End If
 
-	Log("DISTANCIA: " & distance)
-	If Subs.hayPedido Or distance <= 50 Or Not(Subs.geocercaHabilitada) Then ' Si estamos dentro de la geocerca, habilitamos los botones de Venta y noVenta
+'	Log("DISTANCIA: " & distance)
+'	Log("HAY PEDIDO: " & Subs.hayPedido)
+'	Log("GEOCERCA ACTIVA: " & Subs.geocercaHabilitada)
+'	Log("EN ALMACEN: " & Subs.estamosEnAlmacen(50))
+	If Subs.hayPedido Or distance <= 50 Or Not(Subs.geocercaHabilitada) Or Subs.estamosEnAlmacen(50) Then ' Si estamos dentro de la geocerca, habilitamos los botones de Venta y noVenta
 		b_noVenta.Visible = True
 		b_venta.Visible = True
 		Log("Botones visibles")
@@ -369,28 +385,38 @@ End Sub
 
 Sub GPS_LocationChanged (Location1 As Location)
 '	LogColor($"Entrando a Cliente.GPS_LocationChanged"$, Colors.red)
-	If Tracker.FLP.GetLastKnownLocation.IsInitialized And Tracker.FLP.GetLastKnownLocation.Latitude <> 0 Then
-		B4XPages.MainPage.lat_gps = Tracker.FLP.GetLastKnownLocation.Latitude
-		B4XPages.MainPage.lon_gps = Tracker.FLP.GetLastKnownLocation.Longitude
+'	If Tracker.FLP.GetLastKnownLocation.IsInitialized And Tracker.FLP.GetLastKnownLocation.Latitude <> 0 Then
+		B4XPages.MainPage.lat_gps = Location1.Latitude
+		B4XPages.MainPage.lon_gps = Location1.Longitude
 '		Log("Coords set to: " & B4XPages.MainPage.lat_gps & " and " & B4XPages.MainPage.lon_gps)
-	End If
+'	End If
 
 	Dim l1, l2 As Location
 	l1.Initialize2(B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps)
 '	Log($"Coordenadas de la tienda - lat:${m_lat}, lon:${m_lon}"$)
 	l2.Initialize2(m_lat, m_lon)
-	
 	BT_QR.Enabled = True
 	LA_GPS.TextColor = Colors.Blue
 	LA_GPS.Text = "CON UBICACION GPS"
 	'now we need the distance between our location and the target location
-	distance =    l1.DistanceTo(l2)  'the result is in meter
-	If distance <= 50 Then ' Si estamos dentro de la geocerca, habilitamos los botones de Venta y noVenta
-		b_noVenta.Visible = True
-		b_venta.Visible = True
-'		Log("Botones visibles")
-	End If
-	If Subs.estamosEnAlmacen(50) And Not(Subs.geocercaHabilitada) Then
+	distance = l1.DistanceTo(l2)  'the result is in meter
+'	If distance <= 50 Then ' Si estamos dentro de la geocerca, habilitamos los botones de Venta y noVenta
+'		b_noVenta.Visible = True
+'		b_venta.Visible = True
+'	Log("Botones visibles")
+'	End If
+'	If Subs.estamosEnAlmacen(50) Or Not(Subs.geocercaHabilitada) Then
+'		b_noVenta.Visible = True
+'		b_venta.Visible = True
+'	Log("Botones visibles")
+'	End If
+'	Log("###########################################")
+'	Log("No geocerca: " & Not(Subs.geocercaHabilitada))
+'	Log("estamosEnAlmacen: " & Subs.estamosEnAlmacen(50))
+'	Log("distance: " & distance)
+'	Log("hayPedido: " & Subs.hayPedido)
+'	Log("ENTRAMOS: " & (Subs.hayPedido Or distance <= 50 Or Not(Subs.geocercaHabilitada) Or Subs.estamosEnAlmacen(50)))
+	If Subs.hayPedido Or distance <= 50 Or Not(Subs.geocercaHabilitada) Or Subs.estamosEnAlmacen(50) Then ' Si estamos dentro de la geocerca, habilitamos los botones de Venta y noVenta
 		b_noVenta.Visible = True
 		b_venta.Visible = True
 '		Log("Botones visibles")
@@ -407,8 +433,8 @@ Sub GPS_LocationChanged (Location1 As Location)
 	'	End If
 	LA_GEO.Text= $"$1.2{distance/1000} kms"$
 	skmt.ExecNonQuery("DELETE FROM HIST_GPS")
-	skmt.ExecNonQuery2("INSERT INTO  HIST_GPS (HGDATE, HGLAT, HGLON) VALUES(?,?,?) ", Array As Object (sDate & sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
-	
+	skmt.ExecNonQuery2("INSERT INTO HIST_GPS (HGDATE, HGLAT, HGLON) VALUES(?,?,?) ", Array As Object (sDate & sTime, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps))
+
 	l_ubicacion2.TextSize = 13
 	l_ubicacion2.Text = $"Precisión GPS $1.0{Location1.Accuracy} m"$
 	If Location1.Accuracy > 200 Then
@@ -416,8 +442,11 @@ Sub GPS_LocationChanged (Location1 As Location)
 		l_ubicacion2.TextSize = 16
 		l_ubicacion2.Text = $"Mala señal GPS $1.0{Location1.Accuracy} m"$
 	End If
-	
+'	If Tracker.actualLR.IsInitialized Then LogColor("Tracker Update Req: " & Tracker.actualLR.GetExpirationTime, Colors.red)
+'	Tracker.actualLR.
+	Tracker.FLP.RemoveLocationUpdates
 	CallSubDelayed(Tracker, "CreateLocationRequest")
+'	If Tracker.actualLR.GetNumUpdates < 3 Then CallSubDelayed(Tracker, "StartFLP")
 End Sub
 
 Sub ListView1_ItemLongClick (Position As Int, Value As Object)
@@ -957,7 +986,30 @@ Sub JobDone(Job As HttpJob)
 				Next
 				skmt.ExecNonQuery($"UPDATE ABONOS set a_enviado = 1  where a_cliente = '${cliente}'"$)
 			End If
+			If resultado.Tag = "traePassGeocerca" Then 'query tag
+				Subs.logJobDoneResultados(resultado)
+				Log(resultado.Rows.Size)
+				b_passGeocerca.Enabled = True
+				For Each records() As Object In resultado.Rows
+					Log($"|${records(resultado.Columns.Get("TMP_PASS"))}|"$)
+					Dim tmp_pass As String = records(resultado.Columns.Get("TMP_PASS")).As(String)
+					Log(tmp_pass)
+					ToastMessageShow("¡¡Listo!!", False)
+					Starter.skmt.ExecNonQuery($"update kmt_info set cat_cl_lat = '${B4XPages.MainPage.lat_gps}', cat_cl_long = '${B4XPages.MainPage.lon_gps}' where cat_cl_codigo = '${Subs.traeCliente}'"$)
+					m_lat = B4XPages.MainPage.lat_gps : m_lon = B4XPages.MainPage.lon_gps
+					p_transparenteGeocerca.Visible = False
+					et_passGeocerca.text = ""
+					cmd.Initialize
+					cmd.Name = "borraPassGeocerca"
+					cmd.Parameters = Array As Object(Subs.traeAlmacen, Subs.traeRuta)
+					reqManager.ExecuteCommand(cmd , "borraPassGeocerca")
+				Next
+				If resultado.Rows.Size = 0 Then
+					Msgbox("Contraseña equivocada","ATENCIÓN")
+				End If
+			End If
 		End If
+
 		Job.Release
 	End If
 End Sub
@@ -1012,3 +1064,44 @@ End Sub
 Private Sub p_transYalo_Click
 	p_transYalo.Visible = False
 End Sub
+
+Private Sub p_transparenteGeocerca_Click
+	p_transparenteGeocerca.Visible = False
+	b_passGeocerca.Enabled = True
+End Sub
+
+Private Sub LA_GPS_LongClick
+	p_transparenteGeocerca.Visible = True
+End Sub
+
+Private Sub LA_GEO_LongClick
+	p_transparenteGeocerca.Visible = True
+End Sub
+
+Private Sub b_passGeocerca_Click
+	Log("b_passGeocerca clicked")
+	ToastMessageShow("¡Un momento por favor!", false)
+	b_passGeocerca.Enabled = False
+	If et_passGeocerca.Text.Trim = "KMTS1" Then
+		ToastMessageShow("¡¡Listo!!", False)
+		Starter.skmt.ExecNonQuery($"update kmt_info set cat_cl_lat = '${B4XPages.MainPage.lat_gps}', cat_cl_long = '${B4XPages.MainPage.lon_gps}' where cat_cl_codigo = '${Subs.traeCliente}'"$)
+		m_lat = B4XPages.MainPage.lat_gps : m_lon = B4XPages.MainPage.lon_gps
+		p_transparenteGeocerca.Visible = False
+		et_passGeocerca.text = ""
+	Else
+'		Msgbox("Contraseña equivocada","ATENCIÓN")
+		cmd.Initialize
+		cmd.Name = "traePassGeocerca"
+		cmd.Parameters = Array As Object(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")
+	End If
+	ime.HideKeyboard
+End Sub
\ No newline at end of file
diff --git a/B4A/Files/cliente.bal b/B4A/Files/cliente.bal
index ad23aa99445e1edb49d980a693f42088958eac66..d22b8a409bdab20f6916719a9e5a80c43be77960 100644
GIT binary patch
delta 1605
zcmZ{k%TH5L5XSGhZGlz_*cQsWmxoe$`=W>zK~NNtr*8{*B^6AX_S%BHsWC1zMoFEG
zF__@W4T+M*KfsW<R8}rrxpD7KV@z=7Ld)Qz$=CkwoHO6)Irq%OmgKK1vehI>(nGT(
zS@8Ep%=&6~2EnkVMj{>l(1<@g5{tjJXJXJl&Z8=fi8U)_1%^jAC&nw~bx}?E+K!ny
zdSpDT1|ymp_6NuPTh1!{G`tXf@XYu+YQRZGlnrG^IZ)ZCM4U{Vs9aPY<9x;i$cg!d
zjEmTuVq_OeL6vNCR4T=XGE_Ng597UzD;T>O?_*raxQcN#;~K`bI!8Abu44oBjQ2A>
z!1y5JLyQkIZeZ+T+{pL{uAkg}6XT<dk1_T#Zf1O(aSP*C#wQrJZE=*2y`2r5WPFNo
z2jkO>&oJ&pK8xx?okJz=L^pB|su$JAxL=Z@$$<ejaGvo6#upi1VtkqL738a^YbYP%
zLB>N##;ZG=e2}E;$cf9Sf|B-0q{Y9dJ+emsUrT@2-Hzf^DYGpU#4?Qd*H%?!U_$eU
z@7#)n!v834GTYGvRDlsmia*Gio)piaIMD81@_N0yFt#~@V5IG)V)eIDx=E0)Sr(v7
zmBLEEEF-2@v=_aXC5fs~&vOxsAu0q-GW7ZKV0|tVf*vO{2MXZFtW8+prKeCfB%QJh
zm_Q|wP91`l$ge1c`VL1SEvb7?A?V(n3GZd-_2ui<OU`n5qvS%1Hyu9S&y$S;zSZ<(
z8F!fCYVSr}vPr=5d=s>|GaU3jbZ<IW-5V1ZhAJQsvcQa%E2jup?RJ25z7f7?Hkhrn
zWu^S-IXypNpGz1~W$H%#AQs%9X%_hG@);Hv7eSOcp;xJsHw>T*&Sa;e4>b@oy+!IC
zbj*-dk_#U~<|?Wc>TzNczo>2K)2M@*DRKLxa8s>!?cl4m*~2(W>!)nsN8eTh+`j24
hq-(A}jw0xPjv@+5R6(rE1>SoW`1RQS^odCp(r>TC;a~s&

delta 821
zcmYk)H&4S*7=_`_#-M=YAkiEk^xk{#y#)vmAfaSIFe5P_ruz#RtSe=LnFWc#NDPcf
ztZe)PR#sLH#mO07`LVxi*|P7)z3JYVcD9Io21N33Ja+9n_w`X<8!ukcd^2>yx-}yD
z%X&}+7#E@<l!Yu*j7pG$LgZ4|UsFadr!`@?0#%|aay49oYEfOrO6oHw(m-w`H<6pk
zE#y{m8@Zj_LGJvu`g@};8g!F;$i3t~azA;1JV+iQ50gjm{PbrTC6AHE$rI#B@)UWR
zJVTx(&;48d{EvAWERYw;OYkyUL958$2WxNyt)mU{COJypB5#W%(>L$XAO`QEJ+x1b
vlN00v@*(VRv?Ki-c+WQtksMq-xrkkzpN6#?biAkBGuul!>QYBjK`i(N;xj(q

diff --git a/B4A/Files/login.bal b/B4A/Files/login.bal
index 6d9c5899fa6f04779a9f8c2791fcff3e0213effb..37b9380a530b7ebeaf64899c30693b8506d31163 100644
GIT binary patch
delta 346
zcmV-g0j2)(fdT!20R;sB002#~1r!B;H~|0vABzY8000001OSDS!Ab)$5Qg>OWuIa$
zWkIBDyB4cZwCX{@gHTwH%QPLggV`h`>Du<>Yxs6PidiixxVsGm!u;R=|2fS2Q9P9r
zDzuEsJ8;6X@zHeU^-Q3oT8vjp=&~f`!RtVTF<@<CdUY^IM+?vj{E}cn6$=7?v)nii
z95~)mKe{impe)dX{++hG)ykv133+5;0;8n2jyNY(SX9(Rj7NcZ45Dlg*vT1LUpN1V
z>A1IvVwqQD9c$I(KTm@{e!w}&VUwQL`M(MOD$bHnv9mXevdSIV5YYPld5-3#RW*4*
zT96gkijd!5VW}X8T?DC$_4RE#2eG$=OQWqv+mT}aKu^;)?C_vIZ<kl$@e%HEoPBR8
sI75P;S?sp;0@7i!J{>0~U%NROM4xAAqq)|zM+WsAlWaN^vrr?V9jDQwHUIzs

delta 335
zcmV-V0kHo4fdTS?0R;sB002U<1r!B;Edc-kABzY8000001OSDS!AiqG5QY^z<tgS;
z0wN`CEJmSd)q{cuL5RmN*^cSpW;g6^W80Gt=>zyEZZxQ15*HSh{lEYJ=P+*v;X+EN
z(J(4!!3x8b3l?jq9|THj#Bi;IE=y7loc4tO25d}BFBWpNv;?idtq7J>vmmH{R$I%S
z1Is%a2e%~_lzMtHzR`wvS~-+gK93B{VHS-x0cWHNgNnL{Waf!`FUtOaR!+&drukcp
zlhHN^Wmc21tW}r)H1_`R4s(*zE<JAYe-i#woJ78&wRelM&MX-p&^vyfVf8$q8Y;-*
zke^h|`to{!_;&;@D{UN_ft2bn7xcL3!}j-@^Ll>aAMgGihUwRWfvrgJ6N`4y&LEyf
ho8u%p`dq8|B=`WyoJSauvr-229Fvec6ti0+q8-GMnPvb0

diff --git a/B4A/Mariana.b4a b/B4A/Mariana.b4a
index 10a283e..d460e16 100644
--- a/B4A/Mariana.b4a
+++ b/B4A/Mariana.b4a
@@ -199,7 +199,7 @@ Version=12.8
 #Region  Project Attributes 
 	#ApplicationLabel: Mariana
 	#VersionCode: 1
-	#VersionName: 5.06.25
+	#VersionName: 5.07.05
 	'SupportedOrientations possible values: unspecified, landscape or portrait.
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
diff --git a/B4A/Mariana.b4a.meta b/B4A/Mariana.b4a.meta
index 16a7370..cfd9cc1 100644
--- a/B4A/Mariana.b4a.meta
+++ b/B4A/Mariana.b4a.meta
@@ -78,16 +78,16 @@ ModuleClosedNodes23=
 ModuleClosedNodes24=
 ModuleClosedNodes25=
 ModuleClosedNodes26=
-ModuleClosedNodes27=2,3,4,5,6,7,8,9,10,11,12,13,14
+ModuleClosedNodes27=2,3,4,5,6,7,8,10,11,12,13,14
 ModuleClosedNodes28=
-ModuleClosedNodes29=9,10,11
+ModuleClosedNodes29=
 ModuleClosedNodes3=
-ModuleClosedNodes4=4,10
+ModuleClosedNodes4=2,4,10,23,24,25,26,27,28,29,30,31,32,33,34,35,37,38,39,40,41,42,44,45
 ModuleClosedNodes5=
 ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-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
+NavigationStack=C_Cliente,B4XPage_Appear,349,6,Tracker,CreateLocationRequest,121,0,Tracker,CreateLocationRequestSmallD,138,0,C_Cliente,GPS_LocationChanged,438,6,C_Cliente,ListView1_ItemLongClick,448,0,Starter,ENVIA_ULTIMA_GPS,100,0,Starter,timerRecordatorio_Tick,163,0,C_Cliente,p_transparenteGeocerca_Click,1072,1,C_Cliente,b_passGeocerca_Click,1076,6,C_Cliente,JobDone,994,1
 SelectedBuild=0
-VisibleModules=27,2,12,4,28,15,5,8,14,18,29
+VisibleModules=27,2,12,4,28,29
diff --git a/B4A/Starter.bas b/B4A/Starter.bas
index b4bfb85..319c17d 100644
--- a/B4A/Starter.bas
+++ b/B4A/Starter.bas
@@ -105,7 +105,6 @@ Sub ENVIA_ULTIMA_GPS
 	Else
 		Log("Sin conexión a internet, no se envió UTR!")
 	End If
-
 End Sub
 
 'Para los Logs
@@ -165,8 +164,8 @@ 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)
+'	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
 		Or (DateTime.GetHour(DateTime.now) = 10 And DateTime.GetMinute(DateTime.now) = 25) _ 'Recordatorio de las 10:25
diff --git a/B4A/Subs.bas b/B4A/Subs.bas
index e111dbf..4f66146 100644
--- a/B4A/Subs.bas
+++ b/B4A/Subs.bas
@@ -1423,9 +1423,10 @@ Sub estamosEnAlmacen(rango As Int) As Boolean
 			latAlmacen = coords(0)
 			lonAlmacen = coords(1)
 		End If
-'	Log($"Coordenadas del almacen - lat:${latAlmacen}, lon:${lonAlmacen}"$)
+'		Log($"Coordenadas del almacen - lat:${latAlmacen}, lon:${lonAlmacen}"$)
 		l2.Initialize2(latAlmacen, lonAlmacen)
 		Dim distance As Long = l1.DistanceTo(l2)  'the result is in meters
+'		Log(distance)
 		If distance <= rango Then res = True
 '		Log("Dentro del almacen: " & res)
 	Catch
diff --git a/B4A/Tracker.bas b/B4A/Tracker.bas
index 49889c6..ccccc16 100644
--- a/B4A/Tracker.bas
+++ b/B4A/Tracker.bas
@@ -94,6 +94,7 @@ Public Sub StartFLP
 '		Log("sleeping")
 	Loop
 '	If flpStarted = False Then
+'	FLP.RemoveLocationUpdates
 '	Log("RequestLocationUpdates")
 	FLP.RequestLocationUpdates(CreateLocationRequest) 'Buscamos ubicacion
 '	Log("Buscamos ubicacion")
@@ -108,6 +109,7 @@ Public Sub StartFLPSmall
 		Sleep(500)
 		Log("sleeping")
 	Loop
+'	FLP.RemoveLocationUpdates
 	dameUltimaUbicacionConocida 'Regresamos ultima ubicacion conocida
 	FLP.RequestLocationUpdates(CreateLocationRequestSmallD) 'Buscamos ubicacion 2 peticiones
 '	Log("Buscamos ubicacion Small displacement")
@@ -116,11 +118,14 @@ End Sub
 
 Private Sub CreateLocationRequest As LocationRequest
 '	Log("CreateLocationRequest")
+'	FLP.RemoveLocationUpdates
 	Dim lr As LocationRequest
 	lr.Initialize
 	lr.SetInterval(10000) 'Intervalo deseado para actualizaciones de ubicacion
 	lr.SetFastestInterval(lr.GetInterval / 2) 'Intervalo minimo para actualizaciones de ubicacion
 	lr.SetSmallestDisplacement(50) 'Solo registra cambio de ubicacion si es mayor a XX mts
+	lr.setNumUpdates(5)
+	lr.SetExpirationDuration(10000)
 	lr.SetPriority(lr.Priority.PRIORITY_HIGH_ACCURACY)
 	actualLR=lr
 	Return lr
@@ -128,12 +133,14 @@ End Sub
 
 Private Sub CreateLocationRequestSmallD As LocationRequest
 '	Log("Iniciamos CreateLocationRequestSmallD")
+'	FLP.RemoveLocationUpdates
 	Dim lr As LocationRequest
 	lr.Initialize
 	lr.SetInterval(2000) 'Intervalo deseado para actualizaciones de ubicacion
 	lr.SetFastestInterval(lr.GetInterval / 2) 'Intervalo minimo para actualizaciones de ubicacion
 	lr.setNumUpdates(2) 'Solicitamos solo 2 actualizaciones con estos parametros
 	lr.SetSmallestDisplacement(0) 'Solo registra cambio de ubicacion si es mayor a XX mts
+	lr.SetExpirationDuration(10000)
 	lr.SetPriority(lr.Priority.PRIORITY_HIGH_ACCURACY)
 	actualLR=lr
 	Return lr