cheveguerra/Guna_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa.git synced 2026-04-19 21:59:15 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 4.10.19

Browse Source 
- 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
2024-10-21 16:00:35 -06:00
parent 47a85d427d
commit 6ee13b0d01
5 changed files with 84 additions and 66 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
B4A/B4XMainPage.bas
View File

@@ -424,7 +424,10 @@ Sub Entrar_Click
c=skmt.ExecQuery2("select count(*) as EXISTE1 from usuarioa where usuario = ?", Array As String(user.Text)) c=skmt.ExecQuery2("select count(*) as EXISTE1 from usuarioa where usuario = ?", Array As String(user.Text))
c.Position=0 c.Position=0
existe = c.GetString("EXISTE1") 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 If existe = 0 Then
Dim cmd As DBCommand Dim cmd As DBCommand
cmd.Initialize cmd.Initialize
@@ -554,8 +557,20 @@ Sub JobDone(Job As HttpJob)
IMEI_BASE = "" IMEI_BASE = ""
IMEI = "" IMEI = ""
End If 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 End If
If Job.JobName = "DBRequest" Then If Job.JobName = "DBRequest" Then
Dim result As DBResult = reqManager.HandleJob(Job) Dim result As DBResult = reqManager.HandleJob(Job)
If result.Tag = "geopass" Then 'query tag If result.Tag = "geopass" Then 'query tag

3
B4A/C_Cliente.bas
View File

@@ -544,7 +544,8 @@ Sub B4XPage_Appear
If META2 < 1 Then If META2 < 1 Then
META2 = "CUBIERTO" META2 = "CUBIERTO"
End If 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") c=B4XPages.MainPage.skmt.ExecQuery("select ID_ALMACEN from CAT_ALMACEN")
If c.RowCount>0 Then If c.RowCount>0 Then
C.Position=0 C.Position=0

122
B4A/C_Principal.bas
View File

@@ -1965,75 +1965,77 @@ Sub connecta_Click
Log(">>> REVISAMOS ACTUALIZACION") Log(">>> REVISAMOS ACTUALIZACION")
Private revisaActualizacion As Map = Subs.revisaForzarActualizacion Private revisaActualizacion As Map = Subs.revisaForzarActualizacion
Log(revisaActualizacion) 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.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.newMsg = "Nueva version" 'Texto de que hay actualizacion
' Starter.newApp.okMsg = "Aceptar" 'Texto de app al corriente ' Starter.newApp.okMsg = "Aceptar" 'Texto de app al corriente
' Starter.newApp.version = revisaActualizacion.Get("nuevaVersion") 'Version actual ' Starter.newApp.version = revisaActualizacion.Get("nuevaVersion") 'Version actual
l_forzarActualizacion.TextColor = Colors.black 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." 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.Visible = True
p_transparenteActualizacion.BringToFront p_transparenteActualizacion.BringToFront
Starter.nuevoLink = $"https://keymon.lat/movil/guna/GP_${revisaActualizacion.Get("nuevaVersion")}.apk"$ Starter.nuevoLink = $"https://keymon.lat/movil/guna/GP_${revisaActualizacion.Get("nuevaVersion")}.apk"$
Log("Descargar: GP_" & Starter.newApp.appLink) Log("Descargar: GP_" & Starter.newApp.appLink)
CallSubDelayed(appUpdater, "download_newApk") 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. 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.TextColor = Colors.red
l_forzarActualizacion.Text = "Es necesaria una conexión a internet, por favor revise su conexión y vuelva a intentar." 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.Visible = True
p_transparenteActualizacion.BringToFront p_transparenteActualizacion.BringToFront
Sleep(4500) Sleep(4500)
Starter.skmt.ExecNonQuery("delete from usuarioa") Starter.skmt.ExecNonQuery("delete from usuarioa")
p_transparenteActualizacion.Visible = False p_transparenteActualizacion.Visible = False
B4XPages.ShowPage("Login") B4XPages.ShowPage("Login")
Else ' No hay actualización, continuamos con la carga. Else ' No hay actualización, continuamos con la carga.
p_transparenteActualizacion.Visible = False p_transparenteActualizacion.Visible = False
B4XPages.MainPage.reqManager.Initialize(Me, Starter.server) B4XPages.MainPage.reqManager.Initialize(Me, Starter.server)
teclado.HideKeyboard teclado.HideKeyboard
connecta1 = connecta1 + 1 connecta1 = connecta1 + 1
'imei = p.GetDeviceId 'imei = p.GetDeviceId
conn = "1" conn = "1"
Dim cmd As DBCommand 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")
cmd.Initialize cmd.Initialize
cmd.Name = "select_usuario_guna_GV2_10" cmd.Name = "select_version_GV2"
cmd.Parameters = Array As Object(usrT, passT) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "version")
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "usuarioA") ' Cuando nos conectamos verificamos que el usuario guardado en BD sea VALIDO.
End If c=B4XPages.MainPage.skmt.ExecQuery("select USUARIO, PASS from usuarioa")
c.Close c.Position=0
If e_ruta.Text = "KMTS1" Then If c.RowCount > 0 And c.GetString("USUARIO") <> "KMTS1" Then
cargar.Visible = True Private usrT As String = c.GetString("USUARIO")
Subir.Visible = True Private passT As String = c.GetString("PASS")
e_ruta.Text = "" cmd.Initialize
End If cmd.Name = "select_usuario_guna_GV2_10"
If e_ruta.Text = "BERNA1" Then cmd.Parameters = Array As Object(usrT, passT)
cargar.Visible = True B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "usuarioA")
Subir.Visible = True End If
e_ruta.Text = "" c.Close
End If If e_ruta.Text = "BERNA1" Then
ToastMessageShow("Validando Conexión." , True) cargar.Visible = True
If connecta1 / 2 = 1 Then Subir.Visible = True
'SERVER = "http://177.244.63.54:1782" e_ruta.Text = ""
'SERVER = "http://keymon.com.mx:1782" End If
'SERVER = "http://201.99.139.28:1782" 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" ' B4XPages.MainPage.SERVER = "http://187.189.244.154:1782"
' SERVER = "http://10.0.0.205:1782" ' SERVER = "http://10.0.0.205:1782"
B4XPages.MainPage.reqManager.Initialize(Me, Starter.server) B4XPages.MainPage.reqManager.Initialize(Me, Starter.server)
Else Else
'SERVER = "http://keymon.com.mx:1782" 'SERVER = "http://keymon.com.mx:1782"
'SERVER = "http://201.99.139.28:1782" 'SERVER = "http://201.99.139.28:1782"
'SERVER = "http://177.244.63.54:1782" 'SERVER = "http://177.244.63.54:1782"
' B4XPages.MainPage.SERVER = "http://187.189.244.154:1782" ' B4XPages.MainPage.SERVER = "http://187.189.244.154:1782"
' SERVER = "http://10.0.0.205: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 If End If
End Sub End Sub

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

@@ -251,7 +251,7 @@ Version=12.8
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Guna Preventa #ApplicationLabel: Guna Preventa
#VersionCode: 1 #VersionCode: 1
#VersionName: 4.10.17 #VersionName: 4.10.19
'SupportedOrientations possible values: unspecified, landscape or portrait. 'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False

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

@@ -62,7 +62,7 @@ ModuleClosedNodes16=
ModuleClosedNodes17=4 ModuleClosedNodes17=4
ModuleClosedNodes18= ModuleClosedNodes18=
ModuleClosedNodes19= ModuleClosedNodes19=
ModuleClosedNodes2=6 ModuleClosedNodes2=
ModuleClosedNodes20= ModuleClosedNodes20=
ModuleClosedNodes21= ModuleClosedNodes21=
ModuleClosedNodes22=3,4 ModuleClosedNodes22=3,4
@@ -76,6 +76,6 @@ ModuleClosedNodes6=8,9,10,11
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= 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 SelectedBuild=0
VisibleModules=23,2,24,13,1,14,4 VisibleModules=23,2,24,13,1,14,4