diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 180ecc9..1af78e2 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -1980,7 +1980,7 @@ Sub connecta_Click Log(">>> REVISAMOS ACTUALIZACION") Private revisaActualizacion As Map = Subs.revisaForzarActualizacion Log(revisaActualizacion) - If E_RUTA2.Text = e_ruta.Text Then + If E_RUTA2.Text = e_ruta.Text And e_ruta.Text <> "" Then Msgbox("La ruta principal y la de suplencia NO pueden ser la misma.","ERROR") Else If e_ruta.Text = "KMTS1" Then @@ -2098,8 +2098,8 @@ Sub t2_tick B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("pasword")) B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LATITUD")) B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("LONGITUD")) - B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("FORZAR_ACTUALIZACION")) - B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("VERSION_NUEVA")) +' B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("FORZAR_ACTUALIZACION")) +' B4XPages.MainPage.skmt.ExecNonQuery2("DELETE FROM CAT_VARIABLES WHERE CAT_VA_DESCRIPCION = ?",Array As String("VERSION_NUEVA")) B4XPages.MainPage.skmt.ExecNonQuery2("UPDATE GPS SET HABILITADO = (?)",Array As Object(0)) ' B4XPage_Appear E_RUTA2.Visible = False @@ -2107,7 +2107,7 @@ Sub t2_tick cargar.Visible = False Subir.Visible = False connecta.Visible = True - B4XPages.ShowPage("Login") +' B4XPages.ShowPage("Login") ' If PB2.Progress = 0 Then ' S_CP.Text = "ENVIAR DATOS (K-1)" ' End If @@ -2726,6 +2726,7 @@ End Sub Sub e_ruta_Click Private revisaActualizacion As Map = Subs.revisaForzarActualizacion + Log("revisaActualizacion = " & revisaActualizacion) If revisaActualizacion.Get("forzar") = 2 Then LogColor("No hay info de versión para actualizar en CAT_VARIABLES, traemos la información!", Colors.red) cmd.Initialize diff --git a/B4A/Guna Vistas V3.1.b4a.meta b/B4A/Guna Vistas V3.1.b4a.meta index 12b8f10..89b32fd 100644 --- a/B4A/Guna Vistas V3.1.b4a.meta +++ b/B4A/Guna Vistas V3.1.b4a.meta @@ -76,6 +76,6 @@ ModuleClosedNodes6=8,9,10,11 ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=C_Principal,Class_Globals,0,0,C_Principal,B4XPage_Appear,338,0,C_Principal,B4XPage_Created,286,5,Main,Activity_Create,32,0,Visual Designer,principal.bal,-100,3,C_NoVenta,Class_Globals,0,0,C_NoVenta,GUARDA_Click,74,0,C_NoVenta,GPS_LocationChanged,60,0,C_NoVenta,B4XPage_Appear,55,3,C_NoVenta,B4XPage_Created,49,0,Subs,bitacora,1289,0 +NavigationStack=C_Cliente,GPS_LocationChanged,1008,0,C_Cliente,iniciofin,1081,0,C_Cliente,B_guardaencuesta_Click,1895,0,C_Cliente,Tels_Click,1899,0,C_Cliente,B4XPage_CloseRequest,1907,0,C_Principal,e_ruta_EnterPressed,2112,0,C_Principal,t2_tick,2092,0,C_Principal,e_ruta_Click,2722,4,C_Principal,AddTitle,2705,0,C_Principal,B_OK_PANEL5_Click,2719,0,C_Principal,connecta_Click,1972,5 SelectedBuild=0 VisibleModules=23,2,24,13,14,4,25,9,19,10