diff --git a/B4A/MAPA_RUTAS.bas b/B4A/MAPA_RUTAS.bas index d8eb913..21b1f60 100644 --- a/B4A/MAPA_RUTAS.bas +++ b/B4A/MAPA_RUTAS.bas @@ -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) diff --git a/B4A/Mariana Censos.b4a.meta b/B4A/Mariana Censos.b4a.meta index c8b1f12..5b7e4b1 100644 --- a/B4A/Mariana Censos.b4a.meta +++ b/B4A/Mariana Censos.b4a.meta @@ -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