cheveguerra/Guna_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa.git synced 2026-04-20 14:19:25 +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