cheveguerra/Guna_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa.git synced 2026-04-19 13:49:20 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 4.07.24.EP

Browse Source 
- Se agregó nuevamente el scrollview a "agregaPreguntaAbierta", para que cuando sean muchas preguntas, no se salga de la pantalla el panel.
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-07-25 13:44:10 -06:00
parent 731a37ccb4
commit abb1c48b3c
5 changed files with 38 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/Tracker.bas
View File

@@ -191,7 +191,7 @@ Sub flp_LocationChanged (Location1 As Location)
'///////
Dim coords As String = Location1.Latitude&","&Location1.Longitude&","&formatoFecha(Location1.Time)
' Log("Loc changed : "&Location1.Latitude&","&Location1.Longitude&"|"&B4XPages.MainPage.usuario&"|")
Log("Mandamos Ubicacion")
' Log("Mandamos Ubicacion")
Log(FirebaseMessaging.locRequest)
' Solo mandamos la ubicacion si la precision es menor a XX mts
If Location1.Accuracy < 100 Then
@@ -201,7 +201,7 @@ Sub flp_LocationChanged (Location1 As Location)
B4XPages.MainPage.cliente.LA_GPS.Text = "CON UBICACION GPS"
B4XPages.MainPage.cliente.LA_GPS.TextColor = Colors.blue
End If
LogColor(Location1.Latitude, Colors.red)
' LogColor(Location1.Latitude, Colors.red)
CallSub2(Starter, "GPS_LocationChanged", Location1)
' CallSub2(gestion, "GPS_LocationChanged", Location1)
CallSub2(B4XPages.GetPage("Cliente"), "GPS_LocationChanged", Location1)