- VERSION 5.07.07

- Se hicieron cambios en el codigo de la geocerca en cliente.

B4A/Subs.bas

@@ -90,6 +90,20 @@ Sub notiHigh(title As String, body As String, activity As Object) 'ignore
 	notif.Notify(777)
 End Sub
 
+'Regresa el objeto de una notificacion con importancia baja
+Sub notiLow(title As String, Body As String, activity As Object) ' As Notification 'ignore
+	Private notification As Notification
+	notification.Initialize2(notification.IMPORTANCE_LOW)
+	notification.Icon = "icon"
+	notification.Sound = False
+	notification.Vibrate = False
+	notification.SetInfo(title, Body, activity)
+	notification.Notify(777)
+'	Log("notiLowReturn: "&title)
+'	Log("notiLowReturn SetInfo")
+'	Return notification
+End Sub
+
 'Regresa el objeto de una notificacion con importancia baja
 Sub notiLowReturn(title As String, Body As String, id As Int) As Notification 'ignore
 	Private notification As Notification
@@ -1426,9 +1440,12 @@ Sub estamosEnAlmacen(rango As Int) As Boolean
 '		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)
+		Log(distance)
+'		If distance < 100 Then ToastMessageShow("Distancia a almacen: " & distance, False)
+		notiHigh("Mariana", "Distancia a almacen: " & distance, Main)
+		B4XPages.MainPage.cliente.l_geoAlmacen.text = $"Almacen a ${distance}"$
 		If distance <= rango Then res = True
-'		Log("Dentro del almacen: " & res)
+		Log("Dentro del almacen: " & res)
 	Catch
 		Log(LastException)
 	End Try