From c552deef89cab809a3dc28b7a7b511a52711f96e Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Wed, 22 Jan 2025 18:06:08 -0600 Subject: [PATCH] =?UTF-8?q?-=20VERSION=205.01.18=20-=20Se=20quitaron=20los?= =?UTF-8?q?=20inactivos=20en=20el=20mapa.=20-=20Se=20agreg=C3=B3=20que=20a?= =?UTF-8?q?ctualize=20la=20secuencia,=20estatus=20y=20dia=20de=20visita=20?= =?UTF-8?q?en=20"hist=5Fcensos=5Fgeocerca?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/C_Cliente.bas | 6 +++--- B4A/C_NuevoCliente.bas | 9 +++++---- B4A/MAPA_RUTAS.bas | 9 +++++++-- B4A/Mariana Censos.b4a | 2 +- B4A/Mariana Censos.b4a.meta | 8 ++++---- 5 files changed, 20 insertions(+), 14 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 88214a1..652d4ce 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -290,7 +290,7 @@ Sub B4XPage_Appear Dim itemsAct As List itemsAct.Initialize itemsAct.Add("Activo") - itemsAct.Add("No Activo") + itemsAct.Add("Inactivo") ' itemsAct.Add("Cerrado Permanente") cb_activo.SetItems(itemsAct) ' Log(estatus) @@ -448,8 +448,8 @@ Sub mandaPendientes Next End If cmd.Initialize - cmd.Name = "guardaClienteGeocerca2_MARDS" - cmd.Parameters = Array As Object(c.GetString("CAT_CL_CODIGO"), fechaCaptura, Subs.traeUsuarioDeBD, c.GetString("CAT_CL_LAT"), c.GetString("CAT_CL_LONG"), Subs.traeRuta, Subs.traeAlmacen, c.GetString("LAT_CENSADOR"), c.GetString("LON_CENSADOR"), motivo, comentario, cuestionarioTexto) + cmd.Name = "guardaClienteGeocerca3_MARDS" + cmd.Parameters = Array As Object(c.GetString("CAT_CL_CODIGO"), fechaCaptura, Subs.traeUsuarioDeBD, c.GetString("CAT_CL_LAT"), c.GetString("CAT_CL_LONG"), Subs.traeRuta, Subs.traeAlmacen, c.GetString("LAT_CENSADOR"), c.GetString("LON_CENSADOR"), motivo, c.GetString("CAT_CL_ESTATUS"), cuestionarioTexto, c.GetString("CAT_CL_DIASEMANA"), c.GetString("CAT_CL_SECUENCIA")) LogColor($"${c.GetString("CAT_CL_CODIGO")}, ${fechaCaptura}, ${Subs.traeUsuarioDeBD}, ${c.GetString("CAT_CL_LAT")}, ${c.GetString("CAT_CL_LONG")}, ${Subs.traeRuta}, ${Subs.traeAlmacen}, ${c.GetString("LAT_CENSADOR")}, ${c.GetString("LON_CENSADOR")}, ${motivo}, ${comentario}, ${cuestionarioTexto}"$, Colors.magenta) reqManager.ExecuteCommand(cmd, $"guaradClienteGeocerca_${c.GetString("CAT_CL_CODIGO")}"$) diff --git a/B4A/C_NuevoCliente.bas b/B4A/C_NuevoCliente.bas index 2253ef0..f48e127 100644 --- a/B4A/C_NuevoCliente.bas +++ b/B4A/C_NuevoCliente.bas @@ -267,20 +267,21 @@ Sub b_guardar_Click DateTime.DateFormat = "dd/MM/yyyy HH:mm:ss" Private DateNC As String = DateTime.Date(DateTime.Now) If cargarCliente Then + Log("###### ACTUALIZAMOS NUEVO ########") camposModificados = Subs.RemoveDuplicates(camposModificados) B4XPages.MainPage.skmt.ExecNonQuery($"UPDATE kmt_info set CAT_CL_CODIGO = '${no_cliente}', CAT_CL_CEDIS = '${Subs.traeAlmacen}', CAT_CL_TELEFONO = '${et_telefono.text}', CAT_CL_EMAIL = '${et_email.text}', CAT_CL_ATIENDE1 = '${et_atiende.Text}', gestion = 11, CAT_CL_LAT = '${B4XPages.MainPage.lat_gps}', CAT_CL_LONG = '${B4XPages.MainPage.lon_gps}', CAT_CL_GIRO = '${cb_giro.SelectedItem}', CAT_CL_NOMBRE = '${Subs.escapeSQLString(et_nombre.Text)}', CAT_CL_CALLE1 = '${Subs.escapeSQLString(et_direccion.text)}', CAT_CL_ENVIO_PENDIENTE = 1, LAT_CENSADOR = '${B4XPages.MainPage.lat_gps}', LON_CENSADOR = '${B4XPages.MainPage.lon_gps}', CAMPOS_MODIFICADOS = '${Subs.list2string(camposModificados)}' where CAT_CL_CODIGO In (select cuenta from cuentaa)"$) Else - B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO, CAT_CL_RUTA, CAT_CL_NOMBRE, CAT_CL_CALLE1, CAT_CL_LAT, CAT_CL_LONG, CAT_CL_FECHA_CAPTURA, CAT_CL_DIAS_VISITA, LAT_CENSADOR, LON_CENSADOR, CAT_CL_ENVIO_PENDIENTE, CAT_CL_TELEFONO, CAT_CL_ATIENDE1, CAT_CL_EMAIL, CAT_CL_GIRO,gestion) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, 1, ?, ?, ?, ?, ?) ", Array As Object (no_cliente, no_ruta, et_nombre.Text, et_direccion.Text, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, DateNC, Starter.dia_semana, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, et_telefono.Text, et_atiende.Text, et_email.Text, cb_giro.SelectedItem,11)) + Log("###### INSERTAMOS NUEVO ########") + B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO kmt_info(CAT_CL_CODIGO, CAT_CL_RUTA, CAT_CL_NOMBRE, CAT_CL_CALLE1, CAT_CL_LAT, CAT_CL_LONG, CAT_CL_FECHA_CAPTURA, CAT_CL_DIAS_VISITA, LAT_CENSADOR, LON_CENSADOR, CAT_CL_ENVIO_PENDIENTE, CAT_CL_TELEFONO, CAT_CL_ATIENDE1, CAT_CL_EMAIL, CAT_CL_GIRO, gestion) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, 1, ?, ?, ?, ?, ?) ", Array As Object (no_cliente, no_ruta, et_nombre.Text, et_direccion.Text, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, DateNC, Starter.dia_semana, B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, et_telefono.Text, et_atiende.Text, et_email.Text, cb_giro.SelectedItem,11)) End If ALMACEN = Subs.traeAlmacen -' If fototomada <> "" And fototomada <> Null Then +' If fototomada <> "" And fototomada <> Null Then B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_FOTO_CLIENTE(CODIGO, ALMACEN, RUTA, NOM_FOTO, ENVIO_PENDIENTE) VALUES(?,?,?,?,1)", Array As Object(no_cliente, ALMACEN, no_ruta, fototomada)) Log($"${no_cliente}, ${ALMACEN}, ${no_ruta}, ${fototomada}"$) -' End If - +' End If mandaPendientesNuevosClientes cargarCliente = False B4XPages.ShowPage("Principal") diff --git a/B4A/MAPA_RUTAS.bas b/B4A/MAPA_RUTAS.bas index 8f287c2..ce2a433 100644 --- a/B4A/MAPA_RUTAS.bas +++ b/B4A/MAPA_RUTAS.bas @@ -206,11 +206,16 @@ Sub MapFragment1_Ready Next c.Close End If -' '''''''----------------------------MARKER ROJO - NO VENTA +' '''''''----------------------------MARKER ROJO - NO VENTA If rojo = 1 Or todos = 1 Then ' c3.IsInitialized - c3 = skmt.ExecQuery("select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_SECUENCIA from kmt_info where CAT_CL_CODIGO not like 'N%'and CAT_CL_SECUENCIA = 0 and CAT_CL_LAT is not null and CAT_CL_LONG is not null and CAT_CL_LAT <> 0 and CAT_CL_LONG <> 0") + + + c3 = skmt.ExecQuery($"Select CAT_CL_CODIGO, CAT_CL_NOMBRE,CAT_CL_LONG,CAT_CL_LAT, CAT_CL_SECUENCIA from kmt_info + where CAT_CL_CODIGO Not like 'N%' and CAT_CL_SECUENCIA = 0 and CAT_CL_LAT is not null and CAT_CL_LONG is not null + And CAT_CL_LAT <> 0 And CAT_CL_LONG <> 0 and CAT_CL_ESTATUS <> 'Inactivo'"$) ' Se agrego la condicion de "<> inactivo" para que solo aparezcan los "cerrados permanentes" y no los inactivos. + Log($"============== Rojo Resultados = ${c3.RowCount}"$) For i = 0 To c3.RowCount -1 c3.Position = i diff --git a/B4A/Mariana Censos.b4a b/B4A/Mariana Censos.b4a index 4b26ac0..9c2780e 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.12.17 + #VersionName: 5.01.18 '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 db250d4..58027b0 100644 --- a/B4A/Mariana Censos.b4a.meta +++ b/B4A/Mariana Censos.b4a.meta @@ -41,14 +41,14 @@ ModuleClosedNodes13=3 ModuleClosedNodes14= ModuleClosedNodes15= ModuleClosedNodes16=4,5,6,10,13,17,18,19 -ModuleClosedNodes2= +ModuleClosedNodes2=25 ModuleClosedNodes3= ModuleClosedNodes4= ModuleClosedNodes5= ModuleClosedNodes6= ModuleClosedNodes7= -ModuleClosedNodes8= +ModuleClosedNodes8=1 ModuleClosedNodes9= -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 +NavigationStack=C_NuevoCliente,mandaPendientesNuevosClientes,477,0,C_Cliente,B4XPage_CloseRequest,390,0,Visual Designer,cliente.bal,-100,1,C_Principal,Class_Globals,0,0,C_Principal,cargar_Click,511,0,C_Cliente,mandaPendientes,443,0,Visual Designer,clienteDatos.bal,-100,4,MAPA_RUTAS,MapFragment1_Ready,207,6,C_Cliente,b_guardaCambios_Click,397,0,C_Cliente,B4XPage_Appear,286,0 SelectedBuild=0 -VisibleModules=2,14,9,12,4,8,5,15,7,16 +VisibleModules=2,14,9,4,15,7,16,13,8