cheveguerra/Durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Durakelo.git synced 2026-04-21 13:19:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

..

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-01-17 12:30:16 -06:00
parent 03959c3bdd
commit 956af4c1b8
3 changed files with 23 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
B4A/C_Principal.bas
View File

@@ -1227,13 +1227,18 @@ Sub JobDone(Job As HttpJob)
Listo2=1
If PB2.Progress = 0 Then
PB2.Progress = 30
LogColor("PB2 30 gunaprod", Colors.red)
S_CP.Text = "CARGANDO"
ELSE If PB2.Progress = 30 Then
LogColor("PB2 30 gunaprod", Colors.red)
PB2.Progress = 60
ELSE IF PB2.Progress = 60 Then
LogColor("PB2 60 gunaprod", Colors.red)
PB2.Progress = 80
ELSE IF PB2.Progress = 80 Then
LogColor("PB2 80 gunaprod", Colors.red)
PB2.Progress = 100
LogColor("PB2 LISTO gunaprod", Colors.red)
S_CP.Text = "LISTO"
End If
' ToastMessageShow("Productos Actualizados." , True)
@@ -1307,12 +1312,16 @@ Sub JobDone(Job As HttpJob)
Next
If PB2.Progress = 0 Then
PB2.Progress = 30
LogColor("PB2 30 gunaprodpa", Colors.red)
S_CP.Text = "CARGANDO"
ELSE If PB2.Progress = 30 Then
LogColor("PB2 60 gunaprodpa", Colors.red)
PB2.Progress = 60
ELSE IF PB2.Progress = 60 Then
LogColor("PB2 80 gunaprodpa", Colors.red)
PB2.Progress = 80
ELSE IF PB2.Progress = 80 Then
LogColor("PB2 LISTO gunaprodpa", Colors.red)
PB2.Progress = 100
S_CP.Text = "LISTO"
End If
@@ -1352,11 +1361,15 @@ Sub JobDone(Job As HttpJob)
If PB2.Progress = 0 Then
PB2.Progress = 30
S_CP.Text = "CARGANDO"
LogColor("PB2 30 gunaprodp", Colors.red)
ELSE If PB2.Progress = 30 Then
LogColor("PB2 60 gunaprodp", Colors.red)
PB2.Progress = 60
ELSE IF PB2.Progress = 60 Then
LogColor("PB2 80 gunaprodp", Colors.red)
PB2.Progress = 80
ELSE IF PB2.Progress = 80 Then
LogColor("PB2 LISTO gunaprodp", Colors.red)
PB2.Progress = 100
S_CP.Text = "LISTO"
End If
@@ -1394,12 +1407,16 @@ Sub JobDone(Job As HttpJob)
Next
If PB2.Progress = 0 Then
PB2.Progress = 30
LogColor("PB2 30 gunaprodps", Colors.red)
S_CP.Text = "CARGANDO"
ELSE If PB2.Progress = 30 Then
LogColor("PB2 60 gunaprodps", Colors.red)
PB2.Progress = 60
ELSE IF PB2.Progress = 60 Then
LogColor("PB2 80 gunaprodps", Colors.red)
PB2.Progress = 80
ELSE IF PB2.Progress = 80 Then
LogColor("PB2 LISTO gunaprodps", Colors.red)
PB2.Progress = 100
S_CP.Text = "LISTO"
End If
@@ -1448,11 +1465,15 @@ Sub JobDone(Job As HttpJob)
If PB2.Progress = 0 Then
PB2.Progress = 30
S_CP.Text = "CARGANDO"
LogColor("PB2 30 detallepaq", Colors.red)
ELSE If PB2.Progress = 30 Then
LogColor("PB2 60 detallepaq", Colors.red)
PB2.Progress = 60
ELSE IF PB2.Progress = 60 Then
LogColor("PB2 80 detallepaq", Colors.red)
PB2.Progress = 80
ELSE IF PB2.Progress = 80 Then
LogColor("PB2 LISTO detallepaq", Colors.red)
PB2.Progress = 100
S_CP.Text = "LISTO"
End If