cheveguerra/Guna_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa.git synced 2026-04-22 07:00: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

17
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.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,6 +557,18 @@ 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

3
B4A/C_Cliente.bas
View File

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

12
B4A/C_Principal.bas
View File

@@ -1965,6 +1965,12 @@ Sub connecta_Click
Log(">>> REVISAMOS ACTUALIZACION")
Private revisaActualizacion As Map = Subs.revisaForzarActualizacion
Log(revisaActualizacion)
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
@@ -2009,11 +2015,6 @@ Sub connecta_Click
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
@@ -2036,6 +2037,7 @@ Sub connecta_Click
B4XPages.MainPage.reqManager.Initialize(Me, Starter.server)
End If
End If
End If
End Sub
Sub BUSCA_Click

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

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

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

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