From 9868557f3466ddd9dbaa6c0c90b4d8a85fa11362 Mon Sep 17 00:00:00 2001
From: cheveguerra <cheveguerra@gmail.com>
Date: Wed, 27 Sep 2023 10:56:13 -0600
Subject: [PATCH] ..

---
 pusher.chv.com.b4a | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/pusher.chv.com.b4a b/pusher.chv.com.b4a
index 908e67e..a241d73 100644
--- a/pusher.chv.com.b4a
+++ b/pusher.chv.com.b4a
@@ -179,7 +179,7 @@ Sub Globals
 	Private cb_puntosIntermedios As CheckBox
 End Sub
 
-Sub Activity_Create(FirstTime As Boolean)
+Sub Activity_Create(FirstTime As Boolean) 'ignore
 	Starter.rp.CheckAndRequest(Starter.rp.PERMISSION_WRITE_EXTERNAL_STORAGE)
 '	Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
 	Dim p As String
@@ -568,6 +568,7 @@ Sub muestraRuta
 	Dim point As LatLng
 	Dim listtemp As List
 '	Log(rutaGPS)
+	Dim speedOut As String = 0
 	If rutaGPS.Length > 10 Then
 		listtemp = Regex.Split(CRLF, rutaGPS)
 '		Log(listtemp.Size)
@@ -585,7 +586,7 @@ Sub muestraRuta
 '			Log(estasCoords)
 			Private estaDist As String = coordsAnt.DistanceTo(estasCoords)
 '			Log(estaDist)
-			Dim speedOut As String = coords(4)
+			speedOut = coords(4)
 			Dim Marker0 As Marker
 			If (i Mod 2 = 0) And estaDist > 300 And cb_puntosIntermedios.Checked Then 'Solo ponemos la mitad de los puntos y si la distancia entre puntos es mayor de 300 mts.
 				Private hora As String  = Subs.fechaKMT2Ticks(coords(6))