- VERSION 5.03.08

- Se corrigio Subs.revisaHora

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