cheveguerra/ADM
1
0
Fork 0
mirror of https://github.com/KeymonSoft/ADM.git synced 2026-04-19 20:29:27 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.10.02

Browse Source 
- Se agregó el dia 2 para la frecuencia, si un hoy es p. ej. viernes, y un cliente tiene dia de visita 1 lunes y dia de visita 2 viernes, tambien va a aparecer en los clientes.
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-10-03 19:19:30 -06:00
parent 2c252b2373
commit b4010f2d7b
8 changed files with 9 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
B4A/C_Principal.bas
View File

@@ -1079,7 +1079,7 @@ Sub b_cargar_Click
reqManager.ExecuteQuery(cmd , 0, "detallepaq")
cmd.Initialize
cmd.Name = "select_cat_clientes_ADM"
cmd.Name = "select_cat_clientes2_ADM"
cmd.Parameters = Array As Object(e_ruta.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
@@ -1122,7 +1122,7 @@ Sub b_cargar_Click
Panel11.Visible = False
cmd.Initialize
cmd.Name = "select_cat_clientes_ADM"
cmd.Name = "select_cat_clientes2_ADM"
cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN)
reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
@@ -1301,6 +1301,7 @@ Sub JobDone(Job As HttpJob)
If Job.JobName = "DBRequest" Then
Dim RESULT As DBResult = reqManager.HandleJob(Job)
If RESULT.Tag = "kmt_datos" Then 'query tag
Subs.logJobDoneResultados(RESULT)
S_CC.TEXT = "CARGANDO"
For Each records() As Object In RESULT.Rows
Dim CAT_CL_CODIGO As String = records(RESULT.Columns.Get("CAT_CL_CODIGO"))