From 62ff01740001cc18f2cf6d50e4cb4604e8b3065b Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Mon, 15 Sep 2025 12:40:50 -0600 Subject: [PATCH] - VERSION 5.09.13 - Corrige que no cargaba el municipio en "Cliente", y entonces se quedaba eldato del anterior. --- B4A/C_Cliente.bas | 1 + B4A/MAPA_RUTAS.bas | 8 +++++++- B4A/Mariana Censos.b4a | 2 +- B4A/Mariana Censos.b4a.meta | 4 ++-- 4 files changed, 11 insertions(+), 4 deletions(-) diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index c27058a..0bd97c2 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -242,6 +242,7 @@ Sub B4XPage_Appear et_telefono.Text = c.GetString("CAT_CL_TELEFONO") et_email.Text = c.GetString("CAT_CL_EMAIL") et_estado.Text = c.GetString("CAT_CL_EDO") + et_municipio.Text = c.GetString("CAT_CL_MUNI") desdeBD = True et_cp.Text = c.GetString("CAT_CL_CP") et_calle.Text = c.GetString("CAT_CL_CALLE") diff --git a/B4A/MAPA_RUTAS.bas b/B4A/MAPA_RUTAS.bas index eb5286d..d01a991 100644 --- a/B4A/MAPA_RUTAS.bas +++ b/B4A/MAPA_RUTAS.bas @@ -220,7 +220,13 @@ Sub MapFragment1_Ready ' 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_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 = 'Activo' and HV_MOTIVO = 'CERRADO_XXXXX'"$) - 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_estatus = 'Inactivo'"$) + 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_estatus = 'Inactivo' + and date( -- Para traer la fecha del string + substr(cat_cl_fecha_captura, 7, 4) || '-' || -- año + substr(cat_cl_fecha_captura, 4, 2) || '-' || -- mes + substr(cat_cl_fecha_captura, 1, 2) -- día + ) >= date('now', '-2 months')"$) Log($"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'"$) Log($"============== Rojo Resultados = ${c3.RowCount}"$) For i = 0 To c3.RowCount -1 diff --git a/B4A/Mariana Censos.b4a b/B4A/Mariana Censos.b4a index 079ffea..cf9cbef 100644 --- a/B4A/Mariana Censos.b4a +++ b/B4A/Mariana Censos.b4a @@ -167,7 +167,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: Mariana Censos #VersionCode: 1 - #VersionName: 5.06.18 + #VersionName: 5.09.13 '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 b1c5d02..c656b72 100644 --- a/B4A/Mariana Censos.b4a.meta +++ b/B4A/Mariana Censos.b4a.meta @@ -43,12 +43,12 @@ ModuleClosedNodes15= ModuleClosedNodes16=4,5,6,10,13,17,18,19 ModuleClosedNodes2= ModuleClosedNodes3= -ModuleClosedNodes4= +ModuleClosedNodes4=2,4 ModuleClosedNodes5= ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8=1 ModuleClosedNodes9=1 -NavigationStack=C_Principal,B4XPage_Created,240,0,C_Principal,JobDone,585,0,B4XMainPage,Class_Globals,77,0,B4XMainPage,B4XPage_Appear,235,0,Subs,traeUsarIntentBDWA,1335,0,Subs,importaBDDesdeWhatsApp,1380,6,Subs,CreateBitmapWithNumber,1394,0,MAPA_RUTAS,Activity_Create,66,0,MAPA_RUTAS,MapFragment1_Ready,237,6,B4XMainPage,B4XPage_Created,163,0 +NavigationStack=C_Principal,b_subir_Click,442,0,Diseñador Visual,principal.bal,-100,3,C_Cliente,mandaPendientes,449,0,Main,Process_Globals,18,0,B4XMainPage,Class_Globals,21,0,Diseñador Visual,cliente.bal,-100,2,Diseñador Visual,clienteDatos.bal,-100,2,MAPA_RUTAS,MapFragment1_Ready,206,6,C_Principal,cargar_Click,507,0,C_Cliente,et_cp_TextChanged,518,0,C_Cliente,B4XPage_Appear,234,0 SelectedBuild=0 VisibleModules=14,2,9,4,8,15,7,16,13,5