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

13
B4A/B4XMainPage.bas
View File

@@ -160,6 +160,8 @@ Private Sub B4XPage_Created (Root1 As B4XView)
''' FIN DOE
kh.agregaColumna(Starter.skmt, "kmt_info", "IMPRESION", "INTEGER")
kh.agregaColumna(Starter.skmt, "USUARIOA", "FECHA", "TEXT")
kh.agregaColumna(Starter.skmt, "PROMOS_COMP", "CAT_PA_PORCENTAJE_PAQUETE", "TEXT")
kh.agregaColumna(Starter.skmt, "PROMOS_COMP", "CAT_PA_PRECIO1", "TEXT")
kh.agregaColumna(Starter.skmt, "PROMOS_COMP", "CAT_PA_PRECIO2", "TEXT")
kh.agregaColumna(Starter.skmt, "PROMOS_COMP", "CAT_PA_TIPO_PROMONTO", "TEXT")
kh.agregaColumna(Starter.skmt, "CAT_GUNAPROD", "CAT_GP_TIPOPROD2", "TEXT")
@@ -380,6 +382,7 @@ End Sub
Sub B4XPage_Appear
Log(">>>>>> INICIAMOS MAIN PAGE <<<<<<<<<")
Log(DateTime.GetDayOfWeek(DateTime.Now))
kh.RD_Init
kh.SetButtonTintList(cb_geocerca, Colors.LightGray, Colors.RGB(43, 154, 211))
kh.SetButtonTintList(cb_cartaPorte, Colors.LightGray, Colors.RGB(43, 154, 211))
@@ -751,13 +754,19 @@ End Sub
'Ej: CL1532-2 Serìa restaurar el respaldo del dìa 3 de agosto (5-2), puede haber espacios entre la clave y el numero de dìas.
Private Sub b_cargaLocalOk_Click
Private pass1 As String = "CL" & (3 * DateTime.GetDayOfMonth(DateTime.now)) & (DateTime.GetMonth(DateTime.now) * 4)
If et_cargaLocal.Text.StartsWith(pass1) Then
If et_cargaLocal.Text.StartsWith(pass1) Then
p_cargaLocal.Visible = False
' Log(et_cargaLocal.Text.Length > pass1.Length)
Log(et_cargaLocal.text)
If et_cargaLocal.Text.Length = pass1.Length Then et_cargaLocal.text = et_cargaLocal.text & "-1"
If et_cargaLocal.Text.Length = pass1.Length Then ' Si no se especifica nada, la fecha es hoy MENOS un día.
et_cargaLocal.text = et_cargaLocal.text & "-1"
If DateTime.GetDayOfWeek(DateTime.Now) = 2 Then ' Si hoy es LUNES, la fecha es hoy menos 2 dias.
et_cargaLocal.text = et_cargaLocal.text & "-2"
End If
End If
Log(et_cargaLocal.text)
Log(DateTime.GetDayOfWeek(DateTime.Now))
' RD_fechaRestauracion - Si esta en blanco, la fecha de restauracion es HOY, si no, es la especificada en "ticks".
kh.RD_fechaRestauracion = ""