diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index bcb4474..876cef3 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -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 diff --git a/B4A/C_Productos.bas b/B4A/C_Productos.bas index 34b39d2..ada9842 100644 --- a/B4A/C_Productos.bas +++ b/B4A/C_Productos.bas @@ -664,7 +664,7 @@ Sub b_prodMas_Click laCant.Text = NumberFormat2((laCant.Text + 1), 1, 0, 0, False) ' Log(clv_prods_ll.GetValue(index).As(Map)) 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) ' laCant.Text = $"$1.0{laCant.Text + 1}"$ laCant.Text = NumberFormat2((laCant.Text + 1), 1, 0, 0, False) diff --git a/B4A/Durakelo.b4a.meta b/B4A/Durakelo.b4a.meta index 4200100..3e4f966 100644 --- a/B4A/Durakelo.b4a.meta +++ b/B4A/Durakelo.b4a.meta @@ -64,6 +64,6 @@ ModuleClosedNodes6=1,3 ModuleClosedNodes7= ModuleClosedNodes8= 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 VisibleModules=19,1,8,16,6,3,9,20,10,21,12