cheveguerra/Mariana_Censos
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Mariana_Censos.git synced 2026-04-20 06:09:18 +00:00
Code Issues Packages Projects Releases Wiki Activity

- VERSION 5.02.08

Browse Source 
- Se modificó el query de kmt_datos para que traiga el "motivo" desde HIST_VENTAS, para saber si esta "CERRADO PERMANENTE".
- Se modificó MAPA_RUTAS para usar el "motivo" y mostrar los cerrados en la sección roja.
This commit is contained in:
Jose Alberto Guerra Ugalde
2025-02-10 12:01:40 -06:00
parent 9af8700567
commit a51ce91fda
5 changed files with 15 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
B4A/B4XMainPage.bas
View File

@@ -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

8
B4A/C_Principal.bas
View File

@@ -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")))

7
B4A/MAPA_RUTAS.bas
View File

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

2
B4A/Mariana Censos.b4a
View File

@@ -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

6
B4A/Mariana Censos.b4a.meta
View File

@@ -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