diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 5f5777b..b9d251a 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -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 diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 62d08f2..b282a09 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -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 diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 1cc47be..f698477 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -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 diff --git a/B4A/Guna Vistas V3.1.b4a b/B4A/Guna Vistas V3.1.b4a index 4e6031e..eb2282c 100644 --- a/B4A/Guna Vistas V3.1.b4a +++ b/B4A/Guna Vistas V3.1.b4a @@ -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 diff --git a/B4A/Guna Vistas V3.1.b4a.meta b/B4A/Guna Vistas V3.1.b4a.meta index 065ecaa..3662bf7 100644 --- a/B4A/Guna Vistas V3.1.b4a.meta +++ b/B4A/Guna Vistas V3.1.b4a.meta @@ -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