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

..

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-12-20 13:01:20 -06:00
parent 5be7870d46
commit 7360a5630f
2 changed files with 12 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
B4A/MAPA_RUTAS.bas
View File

@@ -48,7 +48,7 @@ Sub Globals
Dim MARK_ROJO As Marker
Dim MARK_VERDE As Marker
Dim MARK_CEDIS As Marker
dim MARK_NEGRO as Marker
Dim MARK_NEGRO As Marker
Dim rojo, azul, verde, negro, pVisitar, todos As String
Dim NumSerie As Int
Dim OnInfoWindowClickListener1 As OnInfoWindowClickListener
@@ -261,8 +261,14 @@ Sub OnInfoWindowClickListener1_click(Marker1 As Marker)
skmt.ExecNonQuery("delete from CUENTAA")
skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?) ", Array As Object(Marker1.Title))
Activity.Finish
B4XPages.MainPage.cliente.refrescarCliente = True
B4XPages.ShowPage("Cliente")
If Marker1.Title.As(String).StartsWith("N") Then
B4XPages.MainPage.nuevoCliente.cargarCliente = True
B4XPages.ShowPage("NuevoCliente")
Else
B4XPages.MainPage.cliente.refrescarCliente = True
B4XPages.ShowPage("Cliente")
End If
End Sub
Sub GPS_LocationChanged (Parametro As Location)