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

- VERSION 4.12.17

Browse Source 
- Se cambio como se manda el DIA de la semana para descargar los clientes nuevos, porque daba problemas el miércoles.
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-12-18 13:32:23 -06:00
parent c6b7506eed
commit 0ac815a41b
4 changed files with 9 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
B4A/C_Principal.bas
View File

@@ -518,10 +518,11 @@ Sub cargar_Click
cmd.Initialize
cmd.Name = "selectClientesNuevosCensos"
Private diaSemana As String = L_CARGARDIA.Text.ToLowerCase
If diaSemana = "miercoles" Then diaSemana = "miércoles"
' Private diaSemana As String = L_CARGARDIA.Text.ToLowerCase
Private diaSemana As String = L_CARGARDIA.Text
' If diaSemana = "miercoles" Then diaSemana = "miércoles"
cmd.Parameters = Array As Object(diaSemana, e_ruta.text, ALMACEN)
Log($"${diaSemana}, ${e_ruta.text}, ${ALMACEN}"$)
Log($"|${diaSemana}|, |${e_ruta.text}|, |${ALMACEN}|"$)
B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "clientes_nuevos")
reqs.Add("clientes_nuevos")
mapTiempos.Put($"clientes_nuevos"$, DateTime.now)
@@ -716,6 +717,8 @@ Sub JobDone(Job As HttpJob)
Dim CAT_CL_EMAIL As String = records(RESULT.Columns.Get("HCC_EMAIL"))
Dim CAT_CL_ATIENDE1 As String = records(RESULT.Columns.Get("HCC_ATIENDE"))
Dim CAT_CL_DIASEMANA As String = records(RESULT.Columns.Get("DIASEMANA")).As(String).ToUpperCase
CAT_CL_DIASEMANA = CAT_CL_DIASEMANA.Replace("É", "E")
CAT_CL_DIASEMANA = CAT_CL_DIASEMANA.Replace("Á", "A")
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) 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))
LogColor($"${CAT_CL_CODIGO}, ${RESULT.Columns.Get("CAT_CL_CUESTIONARIO")}"$, Colors.blue)
Log($"|${records(RESULT.Columns.Get("HCC_CUESTIONARIO"))}|"$)