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

- VERSION 5.10.15

Browse Source 
- Se hicieron correcciones al codigo de Trade Spending.
- Se cambio la tabla de donde lee los datos para dar de alta clientes nuevos, antes en CLIENTES_NUEVOS_X_RUTA, ahora CAT_RUTAS.
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-10-16 16:07:23 -06:00
parent 6446187478
commit 7a547503b9
13 changed files with 227 additions and 120 deletions
Download Patch File Download Diff File Expand all files Collapse all files

36
B4A/C_Principal.bas
View File

@@ -552,7 +552,7 @@ Sub B4XPage_Appear
trabajar.Enabled = False
NUEVO.Enabled = False
B_PROXIMA.Enabled = False
LogColor("deshabilitamos", Colors.magenta)
' LogColor("deshabilitamos", Colors.magenta)
Else
Private cd1 As ColorDrawable
cd1.Initialize(Colors.RGB(213, 0, 0), 5dip)
@@ -573,7 +573,7 @@ Sub B4XPage_Appear
Btn_CheckList.Enabled = False
NUEVO.Enabled = False
B_PROXIMA.Enabled = False
LogColor("deshabilitamos", Colors.magenta)
' LogColor("deshabilitamos", Colors.magenta)
Else
trabajar.Enabled = True
Resumen.Enabled = True
@@ -581,7 +581,7 @@ Sub B4XPage_Appear
Btn_CheckList.Enabled = True
NUEVO.Enabled = True
B_PROXIMA.Enabled = True
LogColor("deshabilitamos", Colors.magenta)
' LogColor("deshabilitamos", Colors.magenta)
End If
'################################################################################
@@ -1830,6 +1830,7 @@ Sub JobDone(Job As HttpJob)
If RESULT.Tag = "version" Then 'query tag
connecta.TextColor = Colors.White
' Subs.logJobDoneResultados(RESULT)
Subs.logJobDoneResultados(RESULT)
For Each records() As Object In RESULT.Rows
Starter.skmt.ExecNonQuery("delete from VERSION")
Dim CAT_RU_VERSION_REQUERIDA As String = records(RESULT.Columns.Get("CAT_RU_VERSION_REQUERIDA"))
@@ -1850,7 +1851,7 @@ Sub JobDone(Job As HttpJob)
BUSCA.Enabled = False
Btn_CheckList.Enabled = False
' ExitApplication
LogColor("deshabilitamos", Colors.magenta)
' LogColor("deshabilitamos", Colors.magenta)
End If
End If
@@ -2331,12 +2332,23 @@ Sub connecta_Click
' End If
End Sub
'Revisamos que la version actual sea la correcta.
Sub connecta2
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_version_KELL"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
reqManager.ExecuteQuery(cmd , 0, "version")
Private revisaVersion As Boolean = True ' La verificacion se realiza por default
Private vv As Cursor = Starter.skmt.ExecQuery("select * from cat_variables where CAT_VA_DESCRIPCION = 'VALIDA_VERSION'")
If vv.RowCount > 0 Then
vv.Position = 0
If vv.GetString("CAT_VA_VALOR") = 0 Then revisaVersion = False
End If
If revisaVersion Then ' Si VALIDA_VERSION no está en CERO ... revisamos.
Dim cmd As DBCommand
cmd.Initialize
cmd.Name = "select_version_KELL"
cmd.Parameters = Array As Object(ALMACEN, e_ruta.text)
reqManager.ExecuteQuery(cmd , 0, "version")
Else ' Si está en CERO (Validacion deshabilitada), continuamos a connecta3.
connecta3
End If
End Sub
Sub connecta3
@@ -2416,7 +2428,7 @@ Sub e_ruta_EnterPressed
Starter.skmt.ExecNonQuery("delete from TREND_SPENDING")
Starter.skmt.ExecNonQuery("delete from HIST_TREND_SPENDING_SEMANAL")
Starter.skmt.ExecNonQuery("delete from VERSIONES")
Starter.skmt.ExecNonQuery2("INSERT INTO HIST_ENVIOS VALUES (?,0,?)", Array As Object(sTime, "PEDIDO"))
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("NUMERO_PEDIDO"))
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES(CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object ("NUMERO_PEDIDO",0))
@@ -2424,6 +2436,8 @@ Sub e_ruta_EnterPressed
Starter.skmt.ExecNonQuery2("INSERT INTO CAT_VARIABLES (CAT_VA_DESCRIPCION, CAT_VA_VALOR) VALUES (?,?)", Array As Object("FINDIA_FECHA", Starter.FECHA_HOY))
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("NOVISITA_ACTIVA"))
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("NOVISITA_RAZON"))
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("VERIFY_DEVICE"))
Starter.skmt.ExecNonQuery2("delete from CAT_VARIABLES where CAT_VA_DESCRIPCION = ?", Array As Object ("VALIDA_VERSION"))
If File.Exists(File.DirInternal,"FOTO1.jpg") Then File.Delete(File.DirInternal,"FOTO1.jpg")
If File.Exists(File.DirInternal,"FOTO2.jpg") Then File.Delete(File.DirInternal,"FOTO2.jpg")
If File.Exists(File.DirInternal,"FOTO3.jpg") Then File.Delete(File.DirInternal,"FOTO3.jpg")
@@ -3880,7 +3894,7 @@ Private Sub b_noVisita_Click
b_motivoNoVisita.Background = cd1
B_MAPA_RUTA.Enabled = False
trabajar.Enabled = False
LogColor("deshabilitamos", Colors.magenta)
' LogColor("deshabilitamos", Colors.magenta)
NUEVO.Enabled = False
B_PROXIMA.Enabled = False
Else If result = DialogResponse.CANCEL Then