mirror of
https://github.com/KeymonSoft/Medicomed-V2.git
synced 2026-04-17 21:06:12 +00:00
d94b5462ce
Se actualizaron los Querys para que apunten al nuevo portal de MEDICOMED, ya se hicieron pruebas para insertar datos a la tabla de pedido, no venta y clientes nuevos.
73 lines
2.2 KiB
QBasic
73 lines
2.2 KiB
QBasic
B4A=true
|
|
Group=Default Group
|
|
ModulesStructureVersion=1
|
|
Type=Class
|
|
Version=11.5
|
|
@EndOfDesignText@
|
|
Sub Class_Globals
|
|
Private Root As B4XView 'ignore
|
|
Private xui As XUI 'ignore
|
|
End Sub
|
|
|
|
'You can add more parameters here.
|
|
Public Sub Initialize As Object
|
|
Return Me
|
|
End Sub
|
|
|
|
'This event will be called once, before the page becomes visible.
|
|
Private Sub B4XPage_Created (Root1 As B4XView)
|
|
Root = Root1
|
|
'load the layout to Root
|
|
Root.Color = Colors.Transparent
|
|
End Sub
|
|
|
|
Sub B4XPage_Appear
|
|
Try
|
|
Do While Not(CanRequestPackageInstalls)
|
|
MsgboxAsync($"Por favor permita que ${Application.PackageName} instale actualizaciones"$, "Instalar actualización")
|
|
Wait For Msgbox_Result(Result As Int)
|
|
Dim in As Intent
|
|
in.Initialize("android.settings.MANAGE_UNKNOWN_APP_SOURCES", "package:" & Application.PackageName)
|
|
StartActivity(in)
|
|
Loop
|
|
Catch
|
|
Log("updateAvailable() Error - " & LastException.Message)
|
|
End Try
|
|
If appUpdater.newApp.update Then
|
|
ofreceActualizacion
|
|
Else
|
|
sinActualizacion
|
|
End If
|
|
End Sub
|
|
|
|
'////////////////////////////////////////////////////////////////////////////////////////////
|
|
'//// Esta es una actividad usada por el servicio appUpdater para mostrar notificaciones
|
|
'//// 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
|
|
ctxt.InitializeContext
|
|
Dim PackageManager As JavaObject = ctxt.RunMethod("getPackageManager", Null)
|
|
Return PackageManager.RunMethod("canRequestPackageInstalls", Null)
|
|
End Sub
|
|
|
|
Sub ofreceActualizacion
|
|
If Msgbox2(appUpdater.newApp.newMsg,"Actualización disponible","Si","","No",Null) = DialogResponse.Positive Then 'ignore
|
|
' StartService(DownloadService)
|
|
CallSubDelayed(appUpdater, "download_newApk")
|
|
End If
|
|
B4XPages.MainPage.ocultaProgreso
|
|
StartActivity(Main)
|
|
' Activity.Finish
|
|
B4XPages.ShowPage("Login")
|
|
End Sub
|
|
|
|
Sub sinActualizacion
|
|
Msgbox(appUpdater.newApp.okMsg, "Aplicación al corriente") 'ignore
|
|
' StartActivity(Main)
|
|
B4XPages.MainPage.ocultaProgreso
|
|
B4XPages.ShowPage("Login")
|
|
End Sub |