cheveguerra/Intmex_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Intmex_Preventa.git synced 2026-04-19 05:39:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

Código para respaldo diario.

Browse Source
This commit is contained in:
cheveguerra
2023-09-05 23:57:56 -06:00
parent 01d9060e84
commit b1d8327fa6
3 changed files with 85 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
B4A/B4XMainPage.bas
View File

@@ -34,7 +34,7 @@ Sub Class_Globals
Public pedidos As C_Pedidos
Public promos As C_Promos
Public historico As C_Historico
Public respaldoDiario as C_RespaldoDiario
Public rd As C_RespaldoDiario
Public Provider As FileProvider
'nuevocliente -> NuevoCliente
@@ -132,8 +132,11 @@ Private Sub B4XPage_Created (Root1 As B4XView)
B4XPages.AddPage("Promos", promos)
historico.Initialize
B4XPages.AddPage("Historico", historico)
respaldoDiario.Initialize
B4XPages.AddPageAndCreate("respaldoDiario", respaldoDiario)
' respaldoDiario.Initialize
' B4XPages.AddPageAndCreate("respaldoDiario", respaldoDiario)
rd.Initialize
ruta = Starter.ruta
Provider.Initialize
' Subs.borraArribaDe100Errores ' Para Websockets
@@ -222,6 +225,9 @@ Private Sub B4XPage_Created (Root1 As B4XView)
End Sub
Sub B4XPage_Appear
rd.respaldaPedido
rd.respaldaInventarios
rd.respaldaPaquetes
If Starter.muestraProgreso = 1 Then
muestraProgreso("Descargando actualización")
Starter.muestraProgreso = 0