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

Correcciones de mapa y regresos

Browse Source
This commit is contained in:
cvaldes1201
2024-02-14 10:48:09 -06:00
parent 7d32fce9b8
commit 5e0c7eda49
7 changed files with 36 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
B4A/MAPA_RUTAS.bas
View File

@@ -120,6 +120,7 @@ Sub Activity_Create(FirstTime As Boolean)
End Sub
Sub Activity_Resume
Starter.dondeestoy = "0"
Starter.rp.Check(Starter.rp.PERMISSION_ACCESS_FINE_LOCATION)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result Then
@@ -140,6 +141,11 @@ Sub Activity_Resume
todos = 1
End Sub
Sub Activity_KeyPress (KeyCode As Int) As Boolean
B4XPages.ShowPage("Principal")
Return False
End Sub
Sub MapFragment1_Ready
' Log("ENTRANDO MapFragment1_Ready")
gmap = MapFragment1.GetMap
@@ -261,7 +267,7 @@ Sub OnInfoWindowClickListener1_click(Marker1 As Marker)
skmt.ExecNonQuery("delete from CUENTAA")
skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?) ", Array As Object(Marker1.Title))
Activity.Finish
Starter.dondeestoy = "1"
If Marker1.Title.As(String).StartsWith("N") Then
B4XPages.MainPage.nuevoCliente.cargarCliente = True
B4XPages.ShowPage("NuevoCliente")