26/2/23 - Cuestionario para clientes

- Se agregó el cuestionario popup al entrar a un cliente.
- FALTA PONERLO EN LOS CLIENTES NUEVOS

B4A/Tracker.bas

@@ -76,13 +76,14 @@ Public Sub Track
 	If Not(FLP.IsInitialized) Then FLP.Initialize("flp")
 	If Not(FLP.IsConnected) Then FLP.Connect
 	If Tracking And actualLR.IsInitialized Then
-'		Log(actualLR.GetSmallestDisplacement)
+'		Log("Smallest Displacement: " & actualLR.GetSmallestDisplacement)
 		Return 'Si ya estamos "rastreando" no hacemos nada (return)
 	End If
 	If Starter.rp.Check(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION) = False Then
 		Log("Sin permisos de ubicacion")
 		Return
 	Else
+'		Log("Iniciamos StartFLP")
 		StartFLP 'Iniciamos FusedLocationProvider
 		Tracking = True
 	End If
@@ -109,7 +110,7 @@ Public Sub StartFLPSmall
 		Sleep(500)
 		Log("sleeping")
 	Loop
-	dameUltimaUbicacionConocida 'Regresamos ultima ubicacion conocida
+'	dameUltimaUbicacionConocida 'Regresamos ultima ubicacion conocida
 	FLP.RequestLocationUpdates(CreateLocationRequestSmallD) 'Buscamos ubicacion 2 peticiones
 '	Log("Buscamos ubicacion Small displacement")
 '	Log("GPSSmallestDisplacement = " & actualLR.GetSmallestDisplacement)