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

39
B4A/C_Principal.bas
View File

@@ -627,6 +627,8 @@ Sub cargar_Click
DateTime.DateFormat = "yyyyMMdd"
Dim hoy As String = DateTime.Date(DateTime.Now)
' If Logger Then Log(DateTime.Date(File.LastModified(File.DirInternal,"cartaPorte.pdf")) & " - " & hoy )
B_OK_PAS.TextSize = 24
B_OK_PAS.Text = "CANCELAR"
If kh.traeUsarCartaPorte Then 'Si se requiere la carta porte para cagar dia ...
If Not(File.Exists(File.DirInternal,"cartaPorte.pdf")) Then 'Si no existe la descargamos ...
If logger Then LogColor("No hay carta porte.", Colors.Red)
@@ -748,7 +750,7 @@ Sub cargar_Click
DateTime.TimeFormat = "HHmmss"
inicioContador = DateTime.Now
reqManager.trackInit
cmd.Initialize
cmd.Name = "SELECT_HIST_ENCUESTA_KELL"
cmd.Parameters = Array As Object( e_ruta.text, ALMACEN)
@@ -887,6 +889,11 @@ Sub cargar_Click
' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "fecha")
cmd.Initialize
cmd.Name = "select_hora"
' cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "hora")
cmd.Initialize
cmd.Name = "select_folio_KELL"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
@@ -1114,9 +1121,11 @@ Sub JobDone(Job As HttpJob)
Dim CAT_PA_MAXPROM As String = records(RESULT.Columns.Get("CAT_PA_MAXPROM"))
Dim CAT_PA_MAXPROMREC As String = records(RESULT.Columns.Get("CAT_PA_MAXPROMREC"))
Dim CAT_PA_MAXPROMCLIE As String = records(RESULT.Columns.Get("CAT_PA_MAXPROMCLIE"))
Dim CAT_PA_PORCENTAJE_PAQUETE As String = records(RESULT.Columns.Get("CAT_PA_PORCENTAJE_PAQUETE"))
Dim CAT_PA_PRECIO1 As String = records(RESULT.Columns.Get("CAT_PA_PRECIO1"))
Dim CAT_PA_PRECIO2 As String = records(RESULT.Columns.Get("CAT_PA_PRECIO2"))
Dim CAT_PA_TIPO_PROMONTO As String = records(RESULT.Columns.Get("CAT_PA_TIPO_PROMONTO"))
Starter.skmt.ExecNonQuery2("INSERT INTO PROMOS_COMP(CAT_PA_ID, CAT_PA_MAXPROM, CAT_PA_MAXPROMREC, CAT_PA_MAXPROMCLIE, CAT_PA_PRECIO2, CAT_PA_TIPO_PROMONTO) VALUES (?,?,?,?,?,?)", Array As Object (CAT_PA_ID, CAT_PA_MAXPROM,CAT_PA_MAXPROMREC,CAT_PA_MAXPROMCLIE,CAT_PA_PRECIO2,CAT_PA_TIPO_PROMONTO))
Starter.skmt.ExecNonQuery2("INSERT INTO PROMOS_COMP(CAT_PA_ID, CAT_PA_MAXPROM, CAT_PA_MAXPROMREC, CAT_PA_MAXPROMCLIE, CAT_PA_PORCENTAJE_PAQUETE, CAT_PA_PRECIO1, CAT_PA_PRECIO2, CAT_PA_TIPO_PROMONTO) VALUES (?,?,?,?,?,?,?,?)", Array As Object (CAT_PA_ID, CAT_PA_MAXPROM,CAT_PA_MAXPROMREC,CAT_PA_MAXPROMCLIE,CAT_PA_PORCENTAJE_PAQUETE,CAT_PA_PRECIO1, CAT_PA_PRECIO2,CAT_PA_TIPO_PROMONTO))
Next
Starter.skmt.TransactionSuccessful
Starter.skmt.EndTransaction
@@ -1767,6 +1776,21 @@ Sub JobDone(Job As HttpJob)
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = reqManager.HandleJob(Job)
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))
Next
If Not(Subs.revisaHora) Then
Log("***************** HORA INCORRECTA")
MsgboxAsync("La hora del equipo NO coincide con la hora del servidor, es necesario corregirla", "AVISO IMPORTANTE")
End If
End If
End If
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "folio" Then 'query tag
@@ -2056,9 +2080,14 @@ Sub JobDone(Job As HttpJob)
' if carga = "SUBIR" then logcolor(reqManager.reqsList, Colors.blue)
Log($"tiempo Request "${Job.Tag}": ${((reqManager.inicioJobDone - reqManager.inicioRequest)/1000)}"$)
Log($"tiempo JobDone "${Job.Tag}": ${((DateTime.Now - reqManager.inicioJobDone)/1000)}"$)
Log($"tiempo Total "${Job.Tag}": ${((DateTime.Now - inicioContador)/1000)}"$)
If Starter.Logger Then Log($"tiempo Request "${Job.Tag}": ${((reqManager.inicioJobDone - reqManager.inicioRequest)/1000)}"$)
If Starter.Logger Then Log($"tiempo JobDone "${Job.Tag}": ${((DateTime.Now - reqManager.inicioJobDone)/1000)}"$)
If Starter.Logger Then Log($"tiempo Total "${Job.Tag}": ${((DateTime.Now - inicioContador)/1000)}"$)
If CARGA = "CARGAR" And S_CP.Text = "LISTO" And S_CC.Text = "LISTO" And S_CH.Text = "LISTO" Then
LogColor("TERMINAMOS", Colors.red)
B_OK_PAS.Text = "OK"
End If
Log(reqManager.requestTimes(Job.Tag))