cheveguerra/Mariana_Censos
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana_Censos.git synced 2026-04-22 07:00:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.02.08

Browse Source 
- Se modificó el query de kmt_datos para que traiga el "motivo" desde HIST_VENTAS, para saber si esta "CERRADO PERMANENTE".
- Se modificó MAPA_RUTAS para usar el "motivo" y mostrar los cerrados en la sección roja.
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-02-10 12:01:40 -06:00
parent 9af8700567
commit a51ce91fda
5 changed files with 15 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
B4A/C_Principal.bas
View File

@@ -511,7 +511,7 @@ Sub cargar_Click
' reqs.Add("ins_drop")
cmd.Initialize
cmd.Name = "select_cat_clientes_MARDS_C"
cmd.Name = "select_cat_clientes2_MARDS_C"
cmd.Parameters = Array As Object(L_CARGARDIA.TEXT,e_ruta.text, ALMACEN)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "kmt_datos")
reqs.Add("kmt_datos")
@@ -595,6 +595,7 @@ Sub JobDone(Job As HttpJob)
If reqs.IndexOf("kmt_datos") > -1 Then
reqs.RemoveAt(reqs.IndexOf("kmt_datos"))
End If
' Subs.logJobDoneResultados(RESULT)
connecta.Visible = True
' S_CC.TEXT = "CARGANDO"
For Each records() As Object In RESULT.Rows
@@ -625,6 +626,7 @@ Sub JobDone(Job As HttpJob)
Dim CAT_CL_ESTATUS As String = records(RESULT.Columns.Get("CAT_CL_ESTATUS"))
Dim CAT_CL_GIRO As String = records(RESULT.Columns.Get("CAT_CL_GIRO"))
Dim CAT_CL_FECHA_CAPTURA As String = records(RESULT.Columns.Get("CAT_CL_FALTA"))
Dim HV_MOTIVO As String = records(RESULT.Columns.Get("HV_MOTIVO"))
DateTime.DateFormat = "yyyy-MM-dd HH:mm:ss"
' Log(">>>>>>>>>>>>>>>>>>>>>>><< " & CAT_CL_FECHA_CAPTURA)
@@ -633,10 +635,10 @@ Sub JobDone(Job As HttpJob)
DateTime.DateFormat = "dd/MM/yyyy HH:mm:ss"
' Log(DateTime.Date(x))
CAT_CL_FECHA_CAPTURA = DateTime.Date(x) 'Cambiamos el formato de la fecha.
Log($"${CAT_CL_CODIGO} - ${HV_MOTIVO} - ${records(RESULT.Columns.Get("HV_MOTIVO"))}"$)
' Dim CAT_CL_FECHA_CAPTURA As String = "26/04/23"
Starter.dia_semana = CAT_CL_DIASEMANA
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion, CAT_CL_DIASEMANA, CAT_CL_SECUENCIA, CAT_CL_ESTATUS, CAT_CL_ENVIO_PENDIENTE, CAT_CL_GIRO, NUEVO, CAT_CL_FECHA_CAPTURA, CAT_CL_CRUCE1) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?,0,?,0,?,?)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, CAT_CL_DIASEMANA, CAT_CL_SECUENCIA, CAT_CL_ESTATUS, CAT_CL_GIRO, CAT_CL_FECHA_CAPTURA, CAT_CL_CRUCE1))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, gestion, CAT_CL_DIASEMANA, CAT_CL_SECUENCIA, CAT_CL_ESTATUS, CAT_CL_ENVIO_PENDIENTE, CAT_CL_GIRO, NUEVO, CAT_CL_FECHA_CAPTURA, CAT_CL_CRUCE1, HV_MOTIVO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,0,?,?,?,0,?,0,?,?,?)", Array As Object (CAT_CL_CODIGO,CAT_CL_RUTA,CAT_CL_NOMBRE,CAT_CL_ATIENDE1,CAT_CL_ATIENTE2,CAT_CL_TELEFONO,CAT_CL_EMAIL,CAT_CL_CALLE,CAT_CL_NOEXT,CAT_CL_NOINT,CAT_CL_CALLE1,CAT_CL_CALLE2,CAT_CL_COLONIA,CAT_CL_MUNI,CAT_CL_EDO,CAT_CL_CP,CAT_CL_LONG,CAT_CL_LAT,CAT_CL_MTOCOMPRA,CAT_CL_NUM_SERIEFISICO, CAT_CL_DIASEMANA, CAT_CL_SECUENCIA, CAT_CL_ESTATUS, CAT_CL_GIRO, CAT_CL_FECHA_CAPTURA, CAT_CL_CRUCE1, HV_MOTIVO))
B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO))
' LogColor($"${CAT_CL_CODIGO}, ${CAT_CL_NOMBRE}"$, Colors.Magenta)
l_ruta.Text = records(RESULT.Columns.Get(("CAT_CL_RUTA")))