diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 9e90702..1916bc1 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -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) diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 4bc07d4..83d78fe 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -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"))}|"$) diff --git a/B4A/Mariana Censos.b4a b/B4A/Mariana Censos.b4a index b8ffa54..4b26ac0 100644 --- a/B4A/Mariana Censos.b4a +++ b/B4A/Mariana Censos.b4a @@ -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 diff --git a/B4A/Mariana Censos.b4a.meta b/B4A/Mariana Censos.b4a.meta index 47abe7f..db250d4 100644 --- a/B4A/Mariana Censos.b4a.meta +++ b/B4A/Mariana Censos.b4a.meta @@ -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