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

- VERSION 5.03.02

Browse Source 
- Se agregó código para las promos por monto.
- Se agregó codigo para validar la hora del telefono con la hora del servidor.
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-03-04 13:25:42 -06:00
parent d87a3c3c63
commit 267a0e7bf9
13 changed files with 318 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
B4A/Starter.bas
View File

@@ -25,7 +25,7 @@ Sub Process_Globals
Dim GPS As GPS
'Para ENVIA_ULTIMA_GPS
Dim Timer1 As Timer
Dim Interval As Int = 300
Dim Interval As Int = 20
Dim DBReqServer As String
Dim pe As PhoneEvents
Dim ph As Phone
@@ -39,6 +39,7 @@ Sub Process_Globals
Dim lat_gps, lon_gps As String
Dim ubicacionActual As Location
Dim FECHA_HOY As String
Dim HORA As String
Dim usuario As String
Dim tipov As String
Dim MAC_IMPRESORA As String
@@ -192,6 +193,11 @@ Sub ENVIA_ULTIMA_GPS
cmd.Parameters = Array As Object(montoActual, clientesVisitaHoy, clientesVenta, clientesVisitados, lat_gps, lon_gps, batt, 0, 0, 0, Application.VersionName, rtec, ping, salty, Subs.dameClientesFueraDeFrecuencia, almacen, rutaPreventa)
' If Logger Then LogColor(montoActual&","&clientesVisitaHoy&","&clientesVenta&","&clientesVisitados&","&lat_gps&","&lon_gps&","&batt&","&0&","&0&","&0&","&Application.VersionName&","&rtec&","&ping&","&salty&","& Subs.dameClientesFueraDeFrecuencia&","&almacen&","&rutaPreventa, Colors.Magenta)
reqManager.ExecuteCommand(cmd,"updateKell_UTR")
cmd.Name = "select_hora"
reqManager.ExecuteQuery(cmd , 0, "hora")
log(subs.revisaHora)
' If Logger Then Log(reqManager)
' If Logger Then Log("++ ++ ++ Envia_Ultima GPS - Inst_visitas - server: "& server)
skmt.ExecNonQuery2("Update cat_variables set CAT_VA_VALOR = ? WHERE CAT_VA_DESCRIPCION = ?" , Array As String(DateTime.Time(DateTime.Now),"HoraIngreso"))
@@ -216,6 +222,16 @@ Sub JobDone(Job As HttpJob)
' Next
' Next
End If
If result.Tag = "hora" Then 'query tag
For Each records() As Object In result.Rows
HORA = records(result.Columns.Get("HORA"))
skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("HORA"))
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("HORA", HORA))
DateTime.DateFormat = "HH"
skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("HORASRVR"))
skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("HORASRVR", DateTime.Date(DateTime.Now)))
Next
End If
End If
End If
Job.Release