diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas
index 876cef3..7453ef8 100644
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -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
diff --git a/B4A/Durakelo.b4a.meta b/B4A/Durakelo.b4a.meta
index 3e4f966..6881877 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_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