cheveguerra/Mariana_Censos
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana_Censos.git synced 2026-04-17 21:06:31 +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

2
B4A/B4XMainPage.bas
View File

@@ -719,7 +719,7 @@ Private Sub b_mandaUsrs_Click
Private c As Cursor = Starter.skmt.ExecQuery($"select * from kmt_info"$)
Private dbr As DBRequestManager
Private cmd1 As DBCommand
dbr.Initialize(Me, "http://keymon.lat:9001")
dbr.Initialize(Me, "http://keymon.lat:1781")
If c.RowCount > 0 Then
subirClientes = c.RowCount - 1
Subs.centraPanel(p_avanceSubirUsrs, p_appUpdate.Width)

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"))}|"$)

2
B4A/Mariana Censos.b4a
View File

@@ -755,7 +755,7 @@ Version=12.8
#Region Project Attributes
#ApplicationLabel: Mariana Censos
#VersionCode: 1
#VersionName: 4.06.05
#VersionName: 4.12.17
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False

2
B4A/Mariana Censos.b4a.meta
View File

@@ -49,6 +49,6 @@ ModuleClosedNodes6=
ModuleClosedNodes7=
ModuleClosedNodes8=
ModuleClosedNodes9=
NavigationStack=Diseñador Visual,promociones.bal,-100,1,Diseñador Visual,resdia.bal,-100,1,Diseñador Visual,ticketsdia.bal,-100,1,Diseñador Visual,cliente.bal,-100,1,Diseñador Visual,nuevoClienteDatos.bal,-100,2,C_NuevoCliente,mandaPendientesNuevosClientes,470,0,C_NuevoCliente,b_guardar_Click,258,0,C_Principal,JobDone,697,0,C_Cliente,MODS,0,0,C_Cliente,b_guardaCambios_Click,391,0,C_Cliente,mandaPendientes,459,0
NavigationStack=C_NuevoCliente,mandaPendientesNuevosClientes,470,0,C_NuevoCliente,b_guardar_Click,258,0,C_Cliente,b_guardaCambios_Click,392,0,C_Cliente,mandaPendientes,459,0,C_Principal,B4XPage_Appear,365,0,B4XMainPage,b_mandaUsrs_Click,715,0,C_Cliente,MODS,1,0,C_Principal,JobDone,713,6,C_Principal,cargar_Click,520,0
SelectedBuild=0
VisibleModules=2,14,9,12,4,8,5,15,7,16