cheveguerra/Durakelo
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Durakelo.git synced 2026-04-22 21:50:10 +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 Listo2=1
If PB2.Progress = 0 Then If PB2.Progress = 0 Then
PB2.Progress = 30 PB2.Progress = 30
LogColor("PB2 30 gunaprod", Colors.red)
S_CP.Text = "CARGANDO" S_CP.Text = "CARGANDO"
ELSE If PB2.Progress = 30 Then ELSE If PB2.Progress = 30 Then
LogColor("PB2 30 gunaprod", Colors.red)
PB2.Progress = 60 PB2.Progress = 60
ELSE IF PB2.Progress = 60 Then ELSE IF PB2.Progress = 60 Then
LogColor("PB2 60 gunaprod", Colors.red)
PB2.Progress = 80 PB2.Progress = 80
ELSE IF PB2.Progress = 80 Then ELSE IF PB2.Progress = 80 Then
LogColor("PB2 80 gunaprod", Colors.red)
PB2.Progress = 100 PB2.Progress = 100
LogColor("PB2 LISTO gunaprod", Colors.red)
S_CP.Text = "LISTO" S_CP.Text = "LISTO"
End If End If
' ToastMessageShow("Productos Actualizados." , True) ' ToastMessageShow("Productos Actualizados." , True)
@@ -1307,12 +1312,16 @@ Sub JobDone(Job As HttpJob)
Next Next
If PB2.Progress = 0 Then If PB2.Progress = 0 Then
PB2.Progress = 30 PB2.Progress = 30
LogColor("PB2 30 gunaprodpa", Colors.red)
S_CP.Text = "CARGANDO" S_CP.Text = "CARGANDO"
ELSE If PB2.Progress = 30 Then ELSE If PB2.Progress = 30 Then
LogColor("PB2 60 gunaprodpa", Colors.red)
PB2.Progress = 60 PB2.Progress = 60
ELSE IF PB2.Progress = 60 Then ELSE IF PB2.Progress = 60 Then
LogColor("PB2 80 gunaprodpa", Colors.red)
PB2.Progress = 80 PB2.Progress = 80
ELSE IF PB2.Progress = 80 Then ELSE IF PB2.Progress = 80 Then
LogColor("PB2 LISTO gunaprodpa", Colors.red)
PB2.Progress = 100 PB2.Progress = 100
S_CP.Text = "LISTO" S_CP.Text = "LISTO"
End If End If
@@ -1352,11 +1361,15 @@ Sub JobDone(Job As HttpJob)
If PB2.Progress = 0 Then If PB2.Progress = 0 Then
PB2.Progress = 30 PB2.Progress = 30
S_CP.Text = "CARGANDO" S_CP.Text = "CARGANDO"
LogColor("PB2 30 gunaprodp", Colors.red)
ELSE If PB2.Progress = 30 Then ELSE If PB2.Progress = 30 Then
LogColor("PB2 60 gunaprodp", Colors.red)
PB2.Progress = 60 PB2.Progress = 60
ELSE IF PB2.Progress = 60 Then ELSE IF PB2.Progress = 60 Then
LogColor("PB2 80 gunaprodp", Colors.red)
PB2.Progress = 80 PB2.Progress = 80
ELSE IF PB2.Progress = 80 Then ELSE IF PB2.Progress = 80 Then
LogColor("PB2 LISTO gunaprodp", Colors.red)
PB2.Progress = 100 PB2.Progress = 100
S_CP.Text = "LISTO" S_CP.Text = "LISTO"
End If End If
@@ -1394,12 +1407,16 @@ Sub JobDone(Job As HttpJob)
Next Next
If PB2.Progress = 0 Then If PB2.Progress = 0 Then
PB2.Progress = 30 PB2.Progress = 30
LogColor("PB2 30 gunaprodps", Colors.red)
S_CP.Text = "CARGANDO" S_CP.Text = "CARGANDO"
ELSE If PB2.Progress = 30 Then ELSE If PB2.Progress = 30 Then
LogColor("PB2 60 gunaprodps", Colors.red)
PB2.Progress = 60 PB2.Progress = 60
ELSE IF PB2.Progress = 60 Then ELSE IF PB2.Progress = 60 Then
LogColor("PB2 80 gunaprodps", Colors.red)
PB2.Progress = 80 PB2.Progress = 80
ELSE IF PB2.Progress = 80 Then ELSE IF PB2.Progress = 80 Then
LogColor("PB2 LISTO gunaprodps", Colors.red)
PB2.Progress = 100 PB2.Progress = 100
S_CP.Text = "LISTO" S_CP.Text = "LISTO"
End If End If
@@ -1448,11 +1465,15 @@ Sub JobDone(Job As HttpJob)
If PB2.Progress = 0 Then If PB2.Progress = 0 Then
PB2.Progress = 30 PB2.Progress = 30
S_CP.Text = "CARGANDO" S_CP.Text = "CARGANDO"
LogColor("PB2 30 detallepaq", Colors.red)
ELSE If PB2.Progress = 30 Then ELSE If PB2.Progress = 30 Then
LogColor("PB2 60 detallepaq", Colors.red)
PB2.Progress = 60 PB2.Progress = 60
ELSE IF PB2.Progress = 60 Then ELSE IF PB2.Progress = 60 Then
LogColor("PB2 80 detallepaq", Colors.red)
PB2.Progress = 80 PB2.Progress = 80
ELSE IF PB2.Progress = 80 Then ELSE IF PB2.Progress = 80 Then
LogColor("PB2 LISTO detallepaq", Colors.red)
PB2.Progress = 100 PB2.Progress = 100
S_CP.Text = "LISTO" S_CP.Text = "LISTO"
End If End If

2
B4A/C_Productos.bas
View File

@@ -664,7 +664,7 @@ Sub b_prodMas_Click
laCant.Text = NumberFormat2((laCant.Text + 1), 1, 0, 0, False) laCant.Text = NumberFormat2((laCant.Text + 1), 1, 0, 0, False)
' Log(clv_prods_ll.GetValue(index).As(Map)) ' Log(clv_prods_ll.GetValue(index).As(Map))
End If End If
else If laCant.Text + 1 <= inv And (lfila.Text = "PRODUCTOS" or lfila.Text = "CATALOGO") Then else If laCant.Text + 1 <= inv And (lfila.Text = "PRODUCTOS" Or lfila.Text = "CATALOGO") Then
' LogColor(inv, Colors.blue) ' LogColor(inv, Colors.blue)
' laCant.Text = $"$1.0{laCant.Text + 1}"$ ' laCant.Text = $"$1.0{laCant.Text + 1}"$
laCant.Text = NumberFormat2((laCant.Text + 1), 1, 0, 0, False) laCant.Text = NumberFormat2((laCant.Text + 1), 1, 0, 0, False)

2
B4A/Durakelo.b4a.meta
View File

@@ -64,6 +64,6 @@ ModuleClosedNodes6=1,3
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9=1,3,7,31,35,36,37,38,39,40,41,42 ModuleClosedNodes9=1,3,7,31,35,36,37,38,39,40,41,42
NavigationStack=C_Productos,lv_catalogos2_ItemClick,357,0,C_Productos,lv_catalogos_ItemClick,297,0,C_Productos,LlenaProdsLL,1288,5,C_Productos,Busca_TextChanged,1237,0,Subs,guardaProductoSinGestion,746,0,Subs,actualizaProducto,773,6,Subs,guardaProductoSin,765,0,C_Nota,Class_Globals,0,0,C_Productos,b_prodMas_Click,692,3,C_Nota,B4XPage_Appear,110,5,C_Productos,b_terminar1_Click,846,0 NavigationStack=C_Nota,Class_Globals,0,0,C_Nota,B4XPage_Appear,110,5,B4XMainPage,b_envioBD_Click,478,0,C_Productos,b_terminar1_Click,838,0,C_Productos,b_prodMas_Click,628,3,C_Productos,b_prodMenos_Click,595,0,C_Principal,Subir_Click,456,0,C_Principal,cargar_Click,794,0,C_Principal,JobDone,1470,6,C_Principal,Class_Globals,0,0
SelectedBuild=0 SelectedBuild=0
VisibleModules=19,1,8,16,6,3,9,20,10,21,12 VisibleModules=19,1,8,16,6,3,9,20,10,21,12