cheveguerra/Mariana_Censos
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana_Censos.git synced 2026-04-20 22:29:13 +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_ROJO As Marker
Dim MARK_VERDE As Marker Dim MARK_VERDE As Marker
Dim MARK_CEDIS 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 rojo, azul, verde, negro, pVisitar, todos As String
Dim NumSerie As Int Dim NumSerie As Int
Dim OnInfoWindowClickListener1 As OnInfoWindowClickListener Dim OnInfoWindowClickListener1 As OnInfoWindowClickListener
@@ -261,8 +261,14 @@ Sub OnInfoWindowClickListener1_click(Marker1 As Marker)
skmt.ExecNonQuery("delete from CUENTAA") skmt.ExecNonQuery("delete from CUENTAA")
skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?) ", Array As Object(Marker1.Title)) skmt.ExecNonQuery2("INSERT INTO CUENTAA VALUES (?) ", Array As Object(Marker1.Title))
Activity.Finish 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 End Sub
Sub GPS_LocationChanged (Parametro As Location) Sub GPS_LocationChanged (Parametro As Location)

6
B4A/Mariana Censos.b4a.meta
View File

@@ -34,7 +34,7 @@ ModuleClosedNodes0=
ModuleClosedNodes1= ModuleClosedNodes1=
ModuleClosedNodes10= ModuleClosedNodes10=
ModuleClosedNodes11= ModuleClosedNodes11=
ModuleClosedNodes12=5 ModuleClosedNodes12=3,5
ModuleClosedNodes13= ModuleClosedNodes13=
ModuleClosedNodes14=63,64,65,67,68 ModuleClosedNodes14=63,64,65,67,68
ModuleClosedNodes15=9,10,11,13,17,18,19 ModuleClosedNodes15=9,10,11,13,17,18,19
@@ -46,6 +46,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=6,9,11,12,13,14,16,17,18 ModuleClosedNodes7=6,9,11,12,13,14,16,17,18
ModuleClosedNodes8=3 ModuleClosedNodes8=3
ModuleClosedNodes9= 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 SelectedBuild=0
VisibleModules=2,13,8,4,5,14,7,11,15 VisibleModules=2,13,8,4,5,14,7,11,15,6,12