v final de encuestas

This commit is contained in:
cvaldes1201
2024-01-23 11:05:49 -06:00
parent 770e01144a
commit a32149d755
7 changed files with 89 additions and 46 deletions

View File

@@ -229,6 +229,7 @@ Private Sub B4XPage_Created (Root1 As B4XView)
End Sub
Sub B4XPage_Appear
reqManager.Initialize(Me, Starter.server)
If Starter.muestraProgreso = 1 Then
muestraProgreso("Descargando actualización")
Starter.muestraProgreso = 0
@@ -254,7 +255,6 @@ Sub B4XPage_Appear
ToastMessageShow("No permission", True)
End If
server = Starter.server
reqManager.Initialize(Me, Starter.server)
tgl.Initialize()
If Not(Starter.gps.GPSEnabled) Then
ToastMessageShow("Es necesario tener el GPS encendido", True)