cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-20 03:29:14 +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
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)

2
B4A/KelloggsV4.b4a
View File

@@ -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

2
B4A/KelloggsV4.b4a.meta
View File

@@ -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

4
B4A/Subs.bas
View File

@@ -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