diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas
index 8229d2c..49be3ce 100644
--- a/B4A/C_Principal.bas
+++ b/B4A/C_Principal.bas
@@ -1782,8 +1782,8 @@ Sub JobDone(Job As HttpJob)
 			If RESULT.Tag = "hora" Then 'query tag
 				For Each records() As Object In RESULT.Rows
 					Starter.HORA = records(RESULT.Columns.Get("HORA"))
-					Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("HORA"))
-					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("HORA", Starter.HORA))
+'					Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("HORA"))
+'					Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("HORA", Starter.HORA))
 				Next
 				If Not(Subs.revisaHora) Then
 					LogColor("*****************   HORA INCORRECTA",Colors.red)
diff --git a/B4A/KelloggsV4.b4a b/B4A/KelloggsV4.b4a
index f401141..d62c44a 100644
--- a/B4A/KelloggsV4.b4a
+++ b/B4A/KelloggsV4.b4a
@@ -907,7 +907,7 @@ Version=12.8
 #Region  Project Attributes	
 	#ApplicationLabel: Kelloggs Venta
 	#VersionCode: 3000
-	#VersionName: 5.03.03
+	#VersionName: 5.03.08
 	#SupportedOrientations: portrait
 	#CanInstallToExternalStorage: False
 	#BridgeLogger:true
diff --git a/B4A/KelloggsV4.b4a.meta b/B4A/KelloggsV4.b4a.meta
index 0a7f53b..99e52f5 100644
--- a/B4A/KelloggsV4.b4a.meta
+++ b/B4A/KelloggsV4.b4a.meta
@@ -91,6 +91,6 @@ ModuleClosedNodes6=
 ModuleClosedNodes7=
 ModuleClosedNodes8=
 ModuleClosedNodes9=
-NavigationStack=C_Cliente,B4XPage_Appear,758,6,C_Principal,Class_Globals,1,0,C_Principal,SUBIR_INFO_PEDIDO,3023,0,C_Principal,cargar_Click,748,6,C_Principal,JobDone,1781,1,kms_helperSubs,RD_respalda_cat_detalle_paq,303,1,C_Cliente,Cuestionario,2315,0,MAPA_RUTAS,MapFragment1_Ready,151,1,Subs,CreateBitmapWithNumber,1983,0,Subs,revisaHora,1967,6,Subs,actualizaProducto,970,0
+NavigationStack=C_Principal,cargar_Click,748,6,kms_helperSubs,RD_respalda_cat_detalle_paq,303,1,C_Cliente,Cuestionario,2315,0,MAPA_RUTAS,MapFragment1_Ready,151,1,Subs,CreateBitmapWithNumber,1983,0,Subs,actualizaProducto,952,0,C_Principal,JobDone,1784,1,Subs,revisaHora,1963,6,Subs,revisaPromoPorMonto,1951,0,B4XMainPage,Class_Globals,34,0
 SelectedBuild=0
 VisibleModules=1,28,11,3,29,12,4,13,7,9,23,25
diff --git a/B4A/Subs.bas b/B4A/Subs.bas
index 941c20f..05ceb0b 100644
--- a/B4A/Subs.bas
+++ b/B4A/Subs.bas
@@ -1967,11 +1967,11 @@ Sub revisaHora As Boolean
 		DateTime.DateFormat = "HH"
 		Private ahora As String = DateTime.Date(DateTime.Now)
 		Log($"${hr} >= ${(ahora - 2)} and ${hr} <= ${(ahora + 2)}"$)
-		If h.GetInt("CAT_VA_VALOR") >= ahora - 2 And h.GetInt("CAT_VA_VALOR") <= ahora + 2 Then
+		If hr >= ahora - 2 And hr <= ahora + 2 Then
 			horaCorrecta = True
 		End If
 	End If
-	Return True
+	Return horaCorrecta
 End Sub
 
 Sub CreateBitmapWithNumber(OriginalBitmap As Bitmap, Number As Int) As Bitmap 'ignore