cheveguerra/Guna_Preventa_Diseno_Viejo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa_Diseno_Viejo.git synced 2026-04-17 21:06:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

- Se quitó que despues del FIN DIA se pidiera ingresar usuario y contraseña nuevamente!

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-10-25 12:34:50 -06:00
parent 641eee998b
commit 0bf6c528ff
2 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
B4A/C_Principal.bas
View File

@@ -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

2
B4A/Guna Vistas V3.1.b4a.meta
View File

@@ -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