cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-22 20:30:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.03.08

Browse Source 
- Se corrigio Subs.revisaHora
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-03-11 10:27:17 -06:00
parent de9473c0b7
commit f44c7ed35e
4 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/C_Principal.bas
View File

@@ -1782,8 +1782,8 @@ Sub JobDone(Job As HttpJob)
If RESULT.Tag = "hora" Then 'query tag If RESULT.Tag = "hora" Then 'query tag
For Each records() As Object In RESULT.Rows For Each records() As Object In RESULT.Rows
Starter.HORA = records(RESULT.Columns.Get("HORA")) 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("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("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("HORA", Starter.HORA))
Next Next
If Not(Subs.revisaHora) Then If Not(Subs.revisaHora) Then
LogColor("***************** HORA INCORRECTA",Colors.red) LogColor("***************** HORA INCORRECTA",Colors.red)

2
B4A/KelloggsV4.b4a
View File

@@ -907,7 +907,7 @@ Version=12.8
#Region Project Attributes #Region Project Attributes
#ApplicationLabel: Kelloggs Venta #ApplicationLabel: Kelloggs Venta
#VersionCode: 3000 #VersionCode: 3000
#VersionName: 5.03.03 #VersionName: 5.03.08
#SupportedOrientations: portrait #SupportedOrientations: portrait
#CanInstallToExternalStorage: False #CanInstallToExternalStorage: False
#BridgeLogger:true #BridgeLogger:true

2
B4A/KelloggsV4.b4a.meta
View File

@@ -91,6 +91,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7= ModuleClosedNodes7=
ModuleClosedNodes8= ModuleClosedNodes8=
ModuleClosedNodes9= 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 SelectedBuild=0
VisibleModules=1,28,11,3,29,12,4,13,7,9,23,25 VisibleModules=1,28,11,3,29,12,4,13,7,9,23,25

4
B4A/Subs.bas
View File

@@ -1967,11 +1967,11 @@ Sub revisaHora As Boolean
DateTime.DateFormat = "HH" DateTime.DateFormat = "HH"
Private ahora As String = DateTime.Date(DateTime.Now) Private ahora As String = DateTime.Date(DateTime.Now)
Log($"${hr} >= ${(ahora - 2)} and ${hr} <= ${(ahora + 2)}"$) 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 horaCorrecta = True
End If End If
End If End If
Return True Return horaCorrecta
End Sub End Sub
Sub CreateBitmapWithNumber(OriginalBitmap As Bitmap, Number As Int) As Bitmap 'ignore Sub CreateBitmapWithNumber(OriginalBitmap As Bitmap, Number As Int) As Bitmap 'ignore