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

cambio en la carga

Browse Source
This commit is contained in:
cvaldes1201
2024-01-17 12:49:36 -06:00
parent 956af4c1b8
commit 7031c3e19f
2 changed files with 43 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

57
B4A/C_Principal.bas
View File

@@ -1240,6 +1240,10 @@ Sub JobDone(Job As HttpJob)
PB2.Progress = 100
LogColor("PB2 LISTO gunaprod", Colors.red)
S_CP.Text = "LISTO"
Else
PB2.Progress = 100
LogColor("PB2 LISTO gunaprod", Colors.red)
S_CP.Text = "LISTO"
End If
' ToastMessageShow("Productos Actualizados." , True)
If Listo1 =1 And Listo2 =1 And Listo3 = 1 And Listo4 = 1 Then
@@ -1310,19 +1314,25 @@ Sub JobDone(Job As HttpJob)
' Dim CAT_GP_DEV As String = records(RESULT.Columns.Get("CAT_GP_DEV"))
skmt.ExecNonQuery2("INSERT INTO CAT_GUNAPROD2(CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG,CAT_GP_ALMACEN,CAT_GP_TIPOPROD,CAT_GP_DEV,CAT_GP_CODPROMO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,0)", Array As Object (CAT_GP_ID,CAT_GP_NOMBRE,CAT_GP_IMP1,CAT_GP_IMP2,CAT_GP_PRECIO,CAT_GP_CLASIF,CAT_GP_STS,CAT_GP_TIPO,CAT_GP_SUBTIPO,CAT_GP_IMG, CAT_GP_ALMACEN,CAT_GP_TIPOPROD,"0"))
Next
If PB2.Progress = 0 Then
PB2.Progress = 30
LogColor("PB2 30 gunaprodpa", Colors.red)
LogColor("PB2 30 gunaprod", Colors.red)
S_CP.Text = "CARGANDO"
ELSE If PB2.Progress = 30 Then
LogColor("PB2 60 gunaprodpa", Colors.red)
LogColor("PB2 30 gunaprod", Colors.red)
PB2.Progress = 60
ELSE IF PB2.Progress = 60 Then
LogColor("PB2 80 gunaprodpa", Colors.red)
LogColor("PB2 60 gunaprod", Colors.red)
PB2.Progress = 80
ELSE IF PB2.Progress = 80 Then
LogColor("PB2 LISTO gunaprodpa", Colors.red)
LogColor("PB2 80 gunaprod", Colors.red)
PB2.Progress = 100
LogColor("PB2 LISTO gunaprod", Colors.red)
S_CP.Text = "LISTO"
Else
PB2.Progress = 100
LogColor("PB2 LISTO gunaprod", Colors.red)
S_CP.Text = "LISTO"
End If
' ToastMessageShow("Promociones Actualizados." , True)
@@ -1360,17 +1370,22 @@ Sub JobDone(Job As HttpJob)
Next
If PB2.Progress = 0 Then
PB2.Progress = 30
LogColor("PB2 30 gunaprod", Colors.red)
S_CP.Text = "CARGANDO"
LogColor("PB2 30 gunaprodp", Colors.red)
ELSE If PB2.Progress = 30 Then
LogColor("PB2 60 gunaprodp", Colors.red)
LogColor("PB2 30 gunaprod", Colors.red)
PB2.Progress = 60
ELSE IF PB2.Progress = 60 Then
LogColor("PB2 80 gunaprodp", Colors.red)
LogColor("PB2 60 gunaprod", Colors.red)
PB2.Progress = 80
ELSE IF PB2.Progress = 80 Then
LogColor("PB2 LISTO gunaprodp", Colors.red)
LogColor("PB2 80 gunaprod", Colors.red)
PB2.Progress = 100
LogColor("PB2 LISTO gunaprod", Colors.red)
S_CP.Text = "LISTO"
Else
PB2.Progress = 100
LogColor("PB2 LISTO gunaprod", Colors.red)
S_CP.Text = "LISTO"
End If
' ToastMessageShow("Promociones Actualizados." , True)
@@ -1407,17 +1422,22 @@ Sub JobDone(Job As HttpJob)
Next
If PB2.Progress = 0 Then
PB2.Progress = 30
LogColor("PB2 30 gunaprodps", Colors.red)
LogColor("PB2 30 gunaprod", Colors.red)
S_CP.Text = "CARGANDO"
ELSE If PB2.Progress = 30 Then
LogColor("PB2 60 gunaprodps", Colors.red)
LogColor("PB2 30 gunaprod", Colors.red)
PB2.Progress = 60
ELSE IF PB2.Progress = 60 Then
LogColor("PB2 80 gunaprodps", Colors.red)
LogColor("PB2 60 gunaprod", Colors.red)
PB2.Progress = 80
ELSE IF PB2.Progress = 80 Then
LogColor("PB2 LISTO gunaprodps", Colors.red)
LogColor("PB2 80 gunaprod", Colors.red)
PB2.Progress = 100
LogColor("PB2 LISTO gunaprod", Colors.red)
S_CP.Text = "LISTO"
Else
PB2.Progress = 100
LogColor("PB2 LISTO gunaprod", Colors.red)
S_CP.Text = "LISTO"
End If
'ToastMessageShow("Promociones especiales Actualizados." , True)
@@ -1464,17 +1484,22 @@ Sub JobDone(Job As HttpJob)
Next
If PB2.Progress = 0 Then
PB2.Progress = 30
LogColor("PB2 30 gunaprod", Colors.red)
S_CP.Text = "CARGANDO"
LogColor("PB2 30 detallepaq", Colors.red)
ELSE If PB2.Progress = 30 Then
LogColor("PB2 60 detallepaq", Colors.red)
LogColor("PB2 30 gunaprod", Colors.red)
PB2.Progress = 60
ELSE IF PB2.Progress = 60 Then
LogColor("PB2 80 detallepaq", Colors.red)
LogColor("PB2 60 gunaprod", Colors.red)
PB2.Progress = 80
ELSE IF PB2.Progress = 80 Then
LogColor("PB2 LISTO detallepaq", Colors.red)
LogColor("PB2 80 gunaprod", Colors.red)
PB2.Progress = 100
LogColor("PB2 LISTO gunaprod", Colors.red)
S_CP.Text = "LISTO"
Else
PB2.Progress = 100
LogColor("PB2 LISTO gunaprod", Colors.red)
S_CP.Text = "LISTO"
End If
Listo3 =1

4
B4A/Durakelo.b4a.meta
View File

@@ -64,6 +64,6 @@ ModuleClosedNodes6=1,3
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=1,3,7,31,35,36,37,38,39,40,41,42
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
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,Class_Globals,0,0,C_Principal,JobDone,1677,6
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