mirror of
https://github.com/KeymonSoft/Guna_Preventa.git
synced 2026-04-17 21:06:32 +00:00
- VERSION 4.10.19
- Se corrigio un error que hacia que cuando se hacia FIN DIA, siempre avisaba que no habia buena conexion.
This commit is contained in:
Jose Alberto Guerra Ugalde
@@ -424,7 +424,10 @@ Sub Entrar_Click
|
||||
c=skmt.ExecQuery2("select count(*) as EXISTE1 from usuarioa where usuario = ?", Array As String(user.Text))
|
||||
c.Position=0
|
||||
existe = c.GetString("EXISTE1")
|
||||
|
||||
cmd.Initialize
|
||||
cmd.Name = "selectVersionAppGuna"
|
||||
cmd.Parameters = Array As Object(user.Text.Trim, pass.Text.Trim)
|
||||
reqManager.ExecuteQuery(cmd , 0, "traeVersion")
|
||||
If existe = 0 Then
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
@@ -554,8 +557,20 @@ Sub JobDone(Job As HttpJob)
|
||||
IMEI_BASE = ""
|
||||
IMEI = ""
|
||||
End If
|
||||
|
||||
If result.Tag = "traeVersion" Then 'query tag
|
||||
For Each records() As Object In result.Rows
|
||||
Private version As String = records(result.Columns.Get("CAT_AL_VERSION"))
|
||||
Private actualizarAplicacion As String = records(result.Columns.Get("CAT_AL_ACTUALIZACION"))
|
||||
Next
|
||||
skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("VERSION_NUEVA"))
|
||||
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("VERSION_NUEVA", version))
|
||||
skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("FORZAR_ACTUALIZACION"))
|
||||
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("FORZAR_ACTUALIZACION", actualizarAplicacion))
|
||||
Log($">>>> GUARDAMOS NUEVA VERSION: ${version}, ${actualizarAplicacion}"$)
|
||||
End If
|
||||
End If
|
||||
|
||||
|
||||
If Job.JobName = "DBRequest" Then
|
||||
Dim result As DBResult = reqManager.HandleJob(Job)
|
||||
If result.Tag = "geopass" Then 'query tag
|
||||
|
||||
@@ -544,7 +544,8 @@ Sub B4XPage_Appear
|
||||
If META2 < 1 Then
|
||||
META2 = "CUBIERTO"
|
||||
End If
|
||||
la_saldooper.Text = numberformat2(META2, 0, 2, 2, True)
|
||||
If IsNumber(META2) Then META2 = NumberFormat2(META2, 0, 2, 2, True)
|
||||
la_saldooper.Text = META2
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
|
||||
If c.RowCount>0 Then
|
||||
C.Position=0
|
||||
|
||||
@@ -1965,75 +1965,77 @@ Sub connecta_Click
|
||||
Log(">>> REVISAMOS ACTUALIZACION")
|
||||
Private revisaActualizacion As Map = Subs.revisaForzarActualizacion
|
||||
Log(revisaActualizacion)
|
||||
If revisaActualizacion.Get("forzar") = 1 Then ' Hay actualización, la forzamos.
|
||||
If e_ruta.Text = "KMTS1" Then
|
||||
cargar.Visible = True
|
||||
Subir.Visible = True
|
||||
e_ruta.Text = ""
|
||||
B4XPages.MainPage.reqManager.Initialize(Me, Starter.server)
|
||||
Else
|
||||
If revisaActualizacion.Get("forzar") = 1 Then ' Hay actualización, la forzamos.
|
||||
' Starter.newApp.appLink = $"https://keymon.lat/movil/guna/GP_${revisaActualizacion.Get("nuevaVersion")}.apk"$ 'Liga a nuevo apk
|
||||
' Starter.newApp.newMsg = "Nueva version" 'Texto de que hay actualizacion
|
||||
' Starter.newApp.okMsg = "Aceptar" 'Texto de app al corriente
|
||||
' Starter.newApp.version = revisaActualizacion.Get("nuevaVersion") 'Version actual
|
||||
l_forzarActualizacion.TextColor = Colors.black
|
||||
l_forzarActualizacion.Text = "Hay una nueva actualización para la aplicación, por favor revise que tenga DATOS y espere mientras se descarga."
|
||||
p_transparenteActualizacion.Visible = True
|
||||
p_transparenteActualizacion.BringToFront
|
||||
Starter.nuevoLink = $"https://keymon.lat/movil/guna/GP_${revisaActualizacion.Get("nuevaVersion")}.apk"$
|
||||
Log("Descargar: GP_" & Starter.newApp.appLink)
|
||||
CallSubDelayed(appUpdater, "download_newApk")
|
||||
else if revisaActualizacion.Get("forzar") = 2 Then ' No hay datos, regresamos al login y borramos usuario par que traiga los datos.
|
||||
l_forzarActualizacion.TextColor = Colors.red
|
||||
l_forzarActualizacion.Text = "Es necesaria una conexión a internet, por favor revise su conexión y vuelva a intentar."
|
||||
p_transparenteActualizacion.Visible = True
|
||||
p_transparenteActualizacion.BringToFront
|
||||
Sleep(4500)
|
||||
Starter.skmt.ExecNonQuery("delete from usuarioa")
|
||||
p_transparenteActualizacion.Visible = False
|
||||
B4XPages.ShowPage("Login")
|
||||
Else ' No hay actualización, continuamos con la carga.
|
||||
p_transparenteActualizacion.Visible = False
|
||||
B4XPages.MainPage.reqManager.Initialize(Me, Starter.server)
|
||||
teclado.HideKeyboard
|
||||
connecta1 = connecta1 + 1
|
||||
'imei = p.GetDeviceId
|
||||
conn = "1"
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_version_GV2"
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "version")
|
||||
' Cuando nos conectamos verificamos que el usuario guardado en BD sea VALIDO.
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO, PASS from usuarioa")
|
||||
c.Position=0
|
||||
If c.RowCount > 0 And c.GetString("USUARIO") <> "KMTS1" Then
|
||||
Private usrT As String = c.GetString("USUARIO")
|
||||
Private passT As String = c.GetString("PASS")
|
||||
l_forzarActualizacion.TextColor = Colors.black
|
||||
l_forzarActualizacion.Text = "Hay una nueva actualización para la aplicación, por favor revise que tenga DATOS y espere mientras se descarga."
|
||||
p_transparenteActualizacion.Visible = True
|
||||
p_transparenteActualizacion.BringToFront
|
||||
Starter.nuevoLink = $"https://keymon.lat/movil/guna/GP_${revisaActualizacion.Get("nuevaVersion")}.apk"$
|
||||
Log("Descargar: GP_" & Starter.newApp.appLink)
|
||||
CallSubDelayed(appUpdater, "download_newApk")
|
||||
else if revisaActualizacion.Get("forzar") = 2 Then ' No hay datos, regresamos al login y borramos usuario par que traiga los datos.
|
||||
l_forzarActualizacion.TextColor = Colors.red
|
||||
l_forzarActualizacion.Text = "Es necesaria una conexión a internet, por favor revise su conexión y vuelva a intentar."
|
||||
p_transparenteActualizacion.Visible = True
|
||||
p_transparenteActualizacion.BringToFront
|
||||
Sleep(4500)
|
||||
Starter.skmt.ExecNonQuery("delete from usuarioa")
|
||||
p_transparenteActualizacion.Visible = False
|
||||
B4XPages.ShowPage("Login")
|
||||
Else ' No hay actualización, continuamos con la carga.
|
||||
p_transparenteActualizacion.Visible = False
|
||||
B4XPages.MainPage.reqManager.Initialize(Me, Starter.server)
|
||||
teclado.HideKeyboard
|
||||
connecta1 = connecta1 + 1
|
||||
'imei = p.GetDeviceId
|
||||
conn = "1"
|
||||
Dim cmd As DBCommand
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_usuario_guna_GV2_10"
|
||||
cmd.Parameters = Array As Object(usrT, passT)
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "usuarioA")
|
||||
End If
|
||||
c.Close
|
||||
If e_ruta.Text = "KMTS1" Then
|
||||
cargar.Visible = True
|
||||
Subir.Visible = True
|
||||
e_ruta.Text = ""
|
||||
End If
|
||||
If e_ruta.Text = "BERNA1" Then
|
||||
cargar.Visible = True
|
||||
Subir.Visible = True
|
||||
e_ruta.Text = ""
|
||||
End If
|
||||
ToastMessageShow("Validando Conexión." , True)
|
||||
If connecta1 / 2 = 1 Then
|
||||
'SERVER = "http://177.244.63.54:1782"
|
||||
'SERVER = "http://keymon.com.mx:1782"
|
||||
'SERVER = "http://201.99.139.28:1782"
|
||||
cmd.Name = "select_version_GV2"
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "version")
|
||||
' Cuando nos conectamos verificamos que el usuario guardado en BD sea VALIDO.
|
||||
c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO, PASS from usuarioa")
|
||||
c.Position=0
|
||||
If c.RowCount > 0 And c.GetString("USUARIO") <> "KMTS1" Then
|
||||
Private usrT As String = c.GetString("USUARIO")
|
||||
Private passT As String = c.GetString("PASS")
|
||||
cmd.Initialize
|
||||
cmd.Name = "select_usuario_guna_GV2_10"
|
||||
cmd.Parameters = Array As Object(usrT, passT)
|
||||
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "usuarioA")
|
||||
End If
|
||||
c.Close
|
||||
If e_ruta.Text = "BERNA1" Then
|
||||
cargar.Visible = True
|
||||
Subir.Visible = True
|
||||
e_ruta.Text = ""
|
||||
End If
|
||||
ToastMessageShow("Validando Conexión." , True)
|
||||
If connecta1 / 2 = 1 Then
|
||||
'SERVER = "http://177.244.63.54:1782"
|
||||
'SERVER = "http://keymon.com.mx:1782"
|
||||
'SERVER = "http://201.99.139.28:1782"
|
||||
' B4XPages.MainPage.SERVER = "http://187.189.244.154:1782"
|
||||
' SERVER = "http://10.0.0.205:1782"
|
||||
B4XPages.MainPage.reqManager.Initialize(Me, Starter.server)
|
||||
Else
|
||||
'SERVER = "http://keymon.com.mx:1782"
|
||||
'SERVER = "http://201.99.139.28:1782"
|
||||
'SERVER = "http://177.244.63.54:1782"
|
||||
B4XPages.MainPage.reqManager.Initialize(Me, Starter.server)
|
||||
Else
|
||||
'SERVER = "http://keymon.com.mx:1782"
|
||||
'SERVER = "http://201.99.139.28:1782"
|
||||
'SERVER = "http://177.244.63.54:1782"
|
||||
' B4XPages.MainPage.SERVER = "http://187.189.244.154:1782"
|
||||
' SERVER = "http://10.0.0.205:1782"
|
||||
B4XPages.MainPage.reqManager.Initialize(Me, Starter.server)
|
||||
B4XPages.MainPage.reqManager.Initialize(Me, Starter.server)
|
||||
End If
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
@@ -251,7 +251,7 @@ Version=12.8
|
||||
#Region Project Attributes
|
||||
#ApplicationLabel: Guna Preventa
|
||||
#VersionCode: 1
|
||||
#VersionName: 4.10.17
|
||||
#VersionName: 4.10.19
|
||||
'SupportedOrientations possible values: unspecified, landscape or portrait.
|
||||
#SupportedOrientations: portrait
|
||||
#CanInstallToExternalStorage: False
|
||||
|
||||
@@ -62,7 +62,7 @@ ModuleClosedNodes16=
|
||||
ModuleClosedNodes17=4
|
||||
ModuleClosedNodes18=
|
||||
ModuleClosedNodes19=
|
||||
ModuleClosedNodes2=6
|
||||
ModuleClosedNodes2=
|
||||
ModuleClosedNodes20=
|
||||
ModuleClosedNodes21=
|
||||
ModuleClosedNodes22=3,4
|
||||
@@ -76,6 +76,6 @@ ModuleClosedNodes6=8,9,10,11
|
||||
ModuleClosedNodes7=
|
||||
ModuleClosedNodes8=
|
||||
ModuleClosedNodes9=
|
||||
NavigationStack=Subs,traeUsarIntentBDWA,1599,0,Subs,parseHTTPError,1547,0,B4XMainPage,Class_Globals,88,0,B4XMainPage,cb_importarBDWA_CheckedChange,999,0,Subs,importaBDDesdeWhatsApp,1549,6,B4XMainPage,i_engrane_Click,773,0,B4XMainPage,b_actualizacion_Click,1000,0,Visual Designer,login.bal,-100,6,B4XMainPage,B4XPage_Appear,245,1,B4XMainPage,B4XPage_Created,227,2
|
||||
NavigationStack=Main,Process_Globals,21,0,C_Principal,Class_Globals,21,0,C_Principal,connecta_Click,1959,1,Subs,importaBDDesdeWhatsApp,1566,0,Subs,revisaForzarActualizacion,1516,0,B4XMainPage,B4XPage_Created,98,2,B4XMainPage,B4XPage_Appear,350,0,B4XMainPage,Entrar_Click,423,2,B4XMainPage,JobDone,557,0,Main,Globals,22,0
|
||||
SelectedBuild=0
|
||||
VisibleModules=23,2,24,13,1,14,4
|
||||
|
||||
Reference in New Issue
Block a user