From a51ce91fdaacb1a6016abb83d730d87744113ed3 Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Mon, 10 Feb 2025 12:01:40 -0600 Subject: [PATCH] =?UTF-8?q?-=20VERSION=205.02.08=20-=20Se=20modific=C3=B3?= =?UTF-8?q?=20el=20query=20de=20kmt=5Fdatos=20para=20que=20traiga=20el=20"?= =?UTF-8?q?motivo"=20desde=20HIST=5FVENTAS,=20para=20saber=20si=20esta=20"?= =?UTF-8?q?CERRADO=20PERMANENTE".=20-=20Se=20modific=C3=B3=20MAPA=5FRUTAS?= =?UTF-8?q?=20para=20usar=20el=20"motivo"=20y=20mostrar=20los=20cerrados?= =?UTF-8?q?=20en=20la=20secci=C3=B3n=20roja.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/B4XMainPage.bas | 1 + B4A/C_Principal.bas | 8 +++++--- B4A/MAPA_RUTAS.bas | 7 +++++-- B4A/Mariana Censos.b4a | 2 +- B4A/Mariana Censos.b4a.meta | 6 +++--- 5 files changed, 15 insertions(+), 9 deletions(-) diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index 1916bc1..cde12e8 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -165,6 +165,7 @@ Private Sub B4XPage_Created (Root1 As B4XView) Subs.agregaColumna("kmt_info", "LON_CENSADOR", "TEXT") Subs.agregaColumna("kmt_info", "ESTATUS_ORIGINAL", "TEXT") Subs.agregaColumna("kmt_info", "CAMPOS_MODIFICADOS", "TEXT") + Subs.agregaColumna("kmt_info", "HV_MOTIVO", "TEXT") Try 'Intentamos usar "pragma_table_info" para revisar si existe la columna "CAT_CL_DIASEMANA" en la tabla c=skmt.ExecQuery("SELECT COUNT(*) AS fCol FROM pragma_table_info('kmt_info') WHERE name='CAT_CL_DIASEMANA'") c.Position = 0 diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index d3370c1..4608e64 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -511,7 +511,7 @@ Sub cargar_Click ' reqs.Add("ins_drop") cmd.Initialize - cmd.Name = "select_cat_clientes_MARDS_C" + cmd.Name = "select_cat_clientes2_MARDS_C" cmd.Parameters = Array As Object(L_CARGARDIA.TEXT,e_ruta.text, ALMACEN) B4XPages.MainPage.reqManager.ExecuteQuery(cmd , 0, "kmt_datos") reqs.Add("kmt_datos") @@ -595,6 +595,7 @@ Sub JobDone(Job As HttpJob) If reqs.IndexOf("kmt_datos") > -1 Then reqs.RemoveAt(reqs.IndexOf("kmt_datos")) End If +' Subs.logJobDoneResultados(RESULT) connecta.Visible = True ' S_CC.TEXT = "CARGANDO" For Each records() As Object In RESULT.Rows @@ -625,6 +626,7 @@ Sub JobDone(Job As HttpJob) Dim CAT_CL_ESTATUS As String = records(RESULT.Columns.Get("CAT_CL_ESTATUS")) Dim CAT_CL_GIRO As String = records(RESULT.Columns.Get("CAT_CL_GIRO")) Dim CAT_CL_FECHA_CAPTURA As String = records(RESULT.Columns.Get("CAT_CL_FALTA")) + Dim HV_MOTIVO As String = records(RESULT.Columns.Get("HV_MOTIVO")) DateTime.DateFormat = "yyyy-MM-dd HH:mm:ss" ' Log(">>>>>>>>>>>>>>>>>>>>>>><< " & CAT_CL_FECHA_CAPTURA) @@ -633,10 +635,10 @@ Sub JobDone(Job As HttpJob) DateTime.DateFormat = "dd/MM/yyyy HH:mm:ss" ' Log(DateTime.Date(x)) CAT_CL_FECHA_CAPTURA = DateTime.Date(x) 'Cambiamos el formato de la fecha. - + Log($"${CAT_CL_CODIGO} - ${HV_MOTIVO} - ${records(RESULT.Columns.Get("HV_MOTIVO"))}"$) ' Dim CAT_CL_FECHA_CAPTURA As String = "26/04/23" Starter.dia_semana = CAT_CL_DIASEMANA - 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, CAT_CL_CRUCE1) 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, CAT_CL_CRUCE1)) + 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, CAT_CL_CRUCE1, HV_MOTIVO) 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, CAT_CL_CRUCE1, HV_MOTIVO)) B4XPages.MainPage.skmt.ExecNonQuery2("INSERT INTO HIST_STAY_STORE(HSS_CODIGO, HSS_IN , HSS_OUT , HSS_TOT) VALUES (?,0,0,0)", Array As Object (CAT_CL_CODIGO)) ' LogColor($"${CAT_CL_CODIGO}, ${CAT_CL_NOMBRE}"$, Colors.Magenta) l_ruta.Text = records(RESULT.Columns.Get(("CAT_CL_RUTA"))) diff --git a/B4A/MAPA_RUTAS.bas b/B4A/MAPA_RUTAS.bas index 00c3eaf..7cd52ba 100644 --- a/B4A/MAPA_RUTAS.bas +++ b/B4A/MAPA_RUTAS.bas @@ -210,9 +210,12 @@ Sub MapFragment1_Ready ' '''''''----------------------------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 and CAT_CL_ESTATUS <> 'Inactivo' and CAT_CL_ESTATUS <> 'Activo'"$) ' Se agrego la condicion de "<> inactivo" para que solo aparezcan los "cerrados permanentes" y no los inactivos. 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' and CAT_CL_ESTATUS <> 'Activo'"$) ' Se agrego la condicion de "<> inactivo" para que solo aparezcan los "cerrados permanentes" y no los inactivos. + 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 PERMANENTE'"$) 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}"$) diff --git a/B4A/Mariana Censos.b4a b/B4A/Mariana Censos.b4a index 89ff0aa..707e408 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: 5.01.27 + #VersionName: 5.02.08 '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 b29da0b..1c22c12 100644 --- a/B4A/Mariana Censos.b4a.meta +++ b/B4A/Mariana Censos.b4a.meta @@ -37,7 +37,7 @@ ModuleClosedNodes1= ModuleClosedNodes10= ModuleClosedNodes11= ModuleClosedNodes12= -ModuleClosedNodes13= +ModuleClosedNodes13=3 ModuleClosedNodes14= ModuleClosedNodes15= ModuleClosedNodes16=4,5,6,10,13,17,18,19 @@ -48,7 +48,7 @@ ModuleClosedNodes5= ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8=1 -ModuleClosedNodes9= -NavigationStack=C_Principal,B4XPage_Created,312,3,Main,Process_Globals,21,0,MAPA_RUTAS,MapFragment1_Ready,238,6,C_Clientes,B4XPage_Appear,68,0,C_Clientes,BUSCA_TextChanged,200,0,C_Clientes,b_buscar_Click,280,0,C_Clientes,p_clientes_Click,276,0,B4XMainPage,Class_Globals,20,0,C_Principal,Class_Globals,0,0,C_Principal,cargar_Click,511,0,C_Principal,JobDone,621,0 +ModuleClosedNodes9=1 +NavigationStack=C_Principal,JobDone,631,6,B4XMainPage,B4XPage_Created,160,0,C_Clientes,B4XPage_Appear,68,0,C_Clientes,BUSCA_TextChanged,200,0,C_Clientes,b_buscar_Click,280,0,C_Clientes,p_clientes_Click,276,0,B4XMainPage,Class_Globals,25,0,C_Principal,Class_Globals,0,0,C_Principal,B4XPage_Appear,334,0,C_Principal,b_subir_Click,453,0,C_Principal,cargar_Click,505,0,MAPA_RUTAS,MapFragment1_Ready,202,3 SelectedBuild=0 VisibleModules=2,14,9,4,15,7,16,13,5