From b4010f2d7b038a65015e22710dab9f794acfcf0d Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Fri, 3 Oct 2025 19:19:30 -0600 Subject: [PATCH] =?UTF-8?q?-=20VERSION=205.10.02=20-=20Se=20agreg=C3=B3=20?= =?UTF-8?q?el=20dia=202=20para=20la=20frecuencia,=20si=20un=20hoy=20es=20p?= =?UTF-8?q?.=20ej.=20viernes,=20y=20un=20cliente=20tiene=20dia=20de=20visi?= =?UTF-8?q?ta=201=20lunes=20y=20dia=20de=20visita=202=20viernes,=20tambien?= =?UTF-8?q?=20va=20a=20aparecer=20en=20los=20clientes.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- B4A/ADM.b4a | 2 +- B4A/ADM.b4a.meta | 6 +++--- B4A/C_Cliente.bas | 2 +- B4A/C_Principal.bas | 5 +++-- B4A/Files/clientes.bal | Bin 22552 -> 22554 bytes B4A/Files/datosclientebotones.bal | Bin 4538 -> 4538 bytes B4A/Files/mapa_rutas.bal | Bin 19957 -> 19958 bytes B4A/MAPA_RUTAS.bas | 2 +- 8 files changed, 9 insertions(+), 8 deletions(-) diff --git a/B4A/ADM.b4a b/B4A/ADM.b4a index 1d5b1f6..d8a9666 100644 --- a/B4A/ADM.b4a +++ b/B4A/ADM.b4a @@ -1121,7 +1121,7 @@ Version=12.8 #Region Project Attributes #ApplicationLabel: ADM #VersionCode: 1 - #VersionName: 5.09.04 + #VersionName: 5.10.02 'SupportedOrientations possible values: unspecified, landscape or portrait. #SupportedOrientations: portrait #CanInstallToExternalStorage: False diff --git a/B4A/ADM.b4a.meta b/B4A/ADM.b4a.meta index b06bf16..99f968e 100644 --- a/B4A/ADM.b4a.meta +++ b/B4A/ADM.b4a.meta @@ -92,11 +92,11 @@ ModuleClosedNodes30=2,4,5,6,7,8 ModuleClosedNodes31= ModuleClosedNodes32=15,16,17,18,19 ModuleClosedNodes4= -ModuleClosedNodes5= +ModuleClosedNodes5=1,3 ModuleClosedNodes6=3 ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=Subs,fechanormal,1574,0,C_NoVenta,CANCELA_Click,71,0,C_NoVenta,GUARDA_Click,77,0,C_Clientes,Class_Globals,49,0,C_TicketsDia,Class_Globals,35,0,MAPA_RUTAS,b_noVenta_Click,550,0,MAPA_RUTAS,Globals,71,0,C_Clientes,b_guardaNoVenta_Click,706,0,C_TicketsDia,b_guardaNoVenta_Click,288,0,MAPA_RUTAS,b_guardaNoVenta_Click,568,0 +NavigationStack=Tracker,guardaYEnviaUbicacion,307,0,MAPA_RUTAS,b_inicioVenta_Click,470,1,MAPA_RUTAS,B_VERDE_Click,440,0,MAPA_RUTAS,B_ROJO_Click,445,0,MAPA_RUTAS,B_AZUL_Click,450,0,C_Cliente,Class_Globals,0,0,C_Cliente,B4XPage_Appear,324,0,B4XMainPage,B4XPage_Created,215,0,C_Principal,b_cargar_Click,1297,0,C_Principal,JobDone,1311,2 SelectedBuild=0 -VisibleModules=30,2,14,5,6,19,31,27,18,32,8,11 +VisibleModules=30,2,14,5,6,19,31,27,18,32 diff --git a/B4A/C_Cliente.bas b/B4A/C_Cliente.bas index 1007c77..cc5f89a 100644 --- a/B4A/C_Cliente.bas +++ b/B4A/C_Cliente.bas @@ -314,7 +314,7 @@ Sub B4XPage_Appear Subs.centraPanel(p_abono, Root.Width) Subs.centraPanel(p_credito, Root.Width) skmt.Initialize(ruta,"kmt.db", True) - c=B4XPages.MainPage.skmt.ExecQuery("select 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 from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa) UNION ALL select 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 from kmt_info2 where CAT_CL_CODIGO In (Select cuenta from cuentaa)") + c=B4XPages.MainPage.skmt.ExecQuery("select 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 from kmt_info where CAT_CL_CODIGO In (Select cuenta from cuentaa) UNION ALL select 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 from kmt_info2 where CAT_CL_CODIGO In (Select cuenta from cuentaa)") s=B4XPages.MainPage.skmt.ExecQuery("Select ifnull(SUM(PE_COSTO_TOT),0) As TOTAL_CLIE, SUM(PE_CANT) As CANT_CLIE, PC_FACTURA FROM PEDIDO_CLIENTE INNER JOIN PEDIDO ON PEDIDO_CLIENTE.PC_CLIENTE = PEDIDO.PE_CLIENTE WHERE (PE_CLIENTE IN (Select cuenta from cuentaa))") b = B4XPages.MainPage.skmt.ExecQuery("select COUNT(*) AS CLIENTE FROM ABONOSP WHERE CLIENTE IN (Select CUENTA from cuentaa)") b.Position = 0 diff --git a/B4A/C_Principal.bas b/B4A/C_Principal.bas index 53762c8..62665b8 100644 --- a/B4A/C_Principal.bas +++ b/B4A/C_Principal.bas @@ -1079,7 +1079,7 @@ Sub b_cargar_Click reqManager.ExecuteQuery(cmd , 0, "detallepaq") cmd.Initialize - cmd.Name = "select_cat_clientes_ADM" + cmd.Name = "select_cat_clientes2_ADM" cmd.Parameters = Array As Object(e_ruta.text, ALMACEN) reqManager.ExecuteQuery(cmd , 0, "kmt_datos") @@ -1122,7 +1122,7 @@ Sub b_cargar_Click Panel11.Visible = False cmd.Initialize - cmd.Name = "select_cat_clientes_ADM" + cmd.Name = "select_cat_clientes2_ADM" cmd.Parameters = Array As Object(E_RUTA2.text, ALMACEN) reqManager.ExecuteQuery(cmd , 0, "kmt_datos") @@ -1301,6 +1301,7 @@ Sub JobDone(Job As HttpJob) If Job.JobName = "DBRequest" Then Dim RESULT As DBResult = reqManager.HandleJob(Job) If RESULT.Tag = "kmt_datos" Then 'query tag + Subs.logJobDoneResultados(RESULT) S_CC.TEXT = "CARGANDO" For Each records() As Object In RESULT.Rows Dim CAT_CL_CODIGO As String = records(RESULT.Columns.Get("CAT_CL_CODIGO")) diff --git a/B4A/Files/clientes.bal b/B4A/Files/clientes.bal index 6ea08bd27d2451ad00c38b08c4b917b1c40f8b0e..2e71089119d481dba2c6ab6dc2d9f469310aa2b3 100644 GIT binary patch delta 73 zcmbQSfpOLb#tq5>2C@tc44!%EMXAM!MG8vZnK}8zN(%W3N`CnYVX1i~iAr2R1v&9) VnR#Gt_T(UeXjZVY%^L;M-2prT7bpM# delta 71 zcmbQWfpNwL#tq5>`Z5d*44!%EMXAM!MG8s*sm1w93i%33e)$Svsd*)dN?btsocOfN UJTNzFawD}00~n+a diff --git a/B4A/Files/mapa_rutas.bal b/B4A/Files/mapa_rutas.bal index c18ebc4178704698e87e18754a0bb6ba92a2bdc7..e5d361dee1e71ac4564561026d0699257594d000 100644 GIT binary patch delta 26 icmex5oAKLh#tmn97_%pz<%wqX&dkX#-mJrW(g6UU0Semy delta 25 hcmex1oAK*x#tmn97_%my<%wnqNG;Catjl}S0RWT;3U2@a diff --git a/B4A/MAPA_RUTAS.bas b/B4A/MAPA_RUTAS.bas index 2e4870f..1f4a8c9 100644 --- a/B4A/MAPA_RUTAS.bas +++ b/B4A/MAPA_RUTAS.bas @@ -474,7 +474,7 @@ Private Sub b_inicioVenta_Click Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRuta, "Inicia Venta", Subs.traeCliente, Subs.fechanormal(DateTime.Now), "", B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, "2", "", "", "") Starter.enVenta = True Subs.enVenta(1, "MAPA") - l_venta.Text = "Ve a tu app de venta y cuando termines regresa aqui y presiona el botón para ingresar ""Peso"" o ""No Venta""" + l_venta.Text = "Ve a tu app de venta y cuando termines regresa aqui y presiona el botón para ingresar ""Kilos"" o ""No Venta""" LogColor($">>>>>> INICIA VENTA: ${Starter.enVenta} - ${Subs.traeCliente}"$, Colors.red) End Sub