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.11

Browse Source 
- Encuesta Pedrigree Cajitas Act II
- Actualizacion Forzosa
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-10-16 10:22:00 -06:00
parent b7c9be5201
commit 828527ea5f
13 changed files with 306 additions and 158 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
B4A/C_UpdateAvailable.bas
View File

@@ -45,7 +45,6 @@ End Sub
'//// cuando hay alguna actualizacion de apk.
'////////////////////////////////////////////////////////////////////////////////////////////
public Sub CanRequestPackageInstalls As Boolean
' // https://www.b4x.com/android/forum/threads/version-safe-apk-installation.87667/#content
Dim ctxt As JavaObject
@@ -60,14 +59,27 @@ Sub ofreceActualizacion
CallSubDelayed(appUpdater, "download_newApk")
End If
B4XPages.MainPage.ocultaProgreso
' B4XPages.MainPage.buscandoActualizacion = False
StartActivity(Main)
' Activity.Finish
B4XPages.ShowPage("Login")
' B4XPages.ShowPage("Login")
End Sub
Sub sinActualizacion
Msgbox(appUpdater.newApp.okMsg, "Aplicación al corriente") 'ignore
' StartActivity(Main)
' Log("#### buscandoActualizacion-" & B4XPages.MainPage.buscandoActualizacion)
' Log("#### actualizacionRevisada-" & B4XPages.MainPage.actualizacionRevisada)
' Log("Ponemos actualizacionRevisada en true")
' B4XPages.MainPage.login.actualizacionRevisada = True
' If B4XPages.MainPage.buscandoActualizacion = False Then
Msgbox(appUpdater.newApp.okMsg, "Aplicación al corriente") 'ignore
' MsgboxAsync(appUpdater.newApp.okMsg, "Aplicación al corriente")
' Else
' B4XPages.MainPage.Entrar.Enabled = True
' End If
B4XPages.MainPage.ocultaProgreso
B4XPages.ShowPage("Login")
' Log("Ponemos buscandoActualizacion en False")
' B4XPages.MainPage.login.buscandoActualizacion = False
' Sleep(500)
B4XPages.ShowPage("login")
End Sub