cheveguerra/Mariana_Censos
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana_Censos.git synced 2026-04-17 21:06:31 +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)

6
B4A/Mariana Censos.b4a.meta
View File

@@ -34,7 +34,7 @@ ModuleClosedNodes0=
ModuleClosedNodes1=
ModuleClosedNodes10=
ModuleClosedNodes11=
ModuleClosedNodes12=5
ModuleClosedNodes12=3,5
ModuleClosedNodes13=
ModuleClosedNodes14=63,64,65,67,68
ModuleClosedNodes15=9,10,11,13,17,18,19
@@ -46,6 +46,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=6,9,11,12,13,14,16,17,18
ModuleClosedNodes8=3
ModuleClosedNodes9=
NavigationStack=C_NuevoCliente,mandaPendientesNuevosClientes,398,0,C_NuevoCliente,b_guardar_Click,178,5,C_NuevoCliente,B4XPage_Appear,111,0,Starter,JobDone,113,3,C_Principal,JobDone,538,0,C_Cliente,JobDone,382,0,C_Cliente,mandaPendientes,378,0,B4XMainPage,JobDone,353,0,C_Principal,e_ruta_EnterPressed,946,3,B4XMainPage,B4XPage_Created,102,0
NavigationStack=C_Cliente,JobDone,382,0,C_Cliente,mandaPendientes,378,0,B4XMainPage,JobDone,353,0,C_Principal,e_ruta_EnterPressed,946,3,B4XMainPage,B4XPage_Created,98,0,C_Clientes,Mods,0,0,C_Clientes,clv_clientes_ItemClick,174,0,C_Mapas,Class_Globals,0,0,MAPA_RUTAS,MapFragment1_Ready,249,0,MAPA_RUTAS,OnInfoWindowClickListener1_click,253,2
SelectedBuild=0
VisibleModules=2,13,8,4,5,14,7,11,15
VisibleModules=2,13,8,4,5,14,7,11,15,6,12