From a73c9d42903d630fc8919d61df29e38b7cc9ec9a Mon Sep 17 00:00:00 2001 From: Jose Alberto Guerra Ugalde Date: Thu, 11 Sep 2025 18:44:49 -0600 Subject: [PATCH] - VERSION 5.09.02 - Se cambio que cuando a una No Venta se le hace venta, en PESOS se sobreescriba y viceversa. --- B4A/ADM.b4a | 2 +- B4A/ADM.b4a.meta | 2 +- B4A/B4XMainPage.bas | 4 ---- B4A/Subs.bas | 3 ++- 4 files changed, 4 insertions(+), 7 deletions(-) diff --git a/B4A/ADM.b4a b/B4A/ADM.b4a index 200d4f0..2d137f1 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.01 + #VersionName: 5.09.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 95274dc..c453c24 100644 --- a/B4A/ADM.b4a.meta +++ b/B4A/ADM.b4a.meta @@ -97,6 +97,6 @@ ModuleClosedNodes6= ModuleClosedNodes7= ModuleClosedNodes8= ModuleClosedNodes9= -NavigationStack=B4XMainPage,Class_Globals,116,0,MAPA_RUTAS,p_guardarPeso_Click,527,0,MAPA_RUTAS,b_guardarPeso_Click,525,0,MAPA_RUTAS,Activity_KeyPress,505,0,C_Cliente,Class_Globals,0,0,C_Cliente,JobDone,2336,0,C_Clientes,JobDone,947,0,Starter,JobDone,210,2,Tracker,guardaYEnviaUbicacion,309,6,C_Principal,JobDone,2069,0 +NavigationStack=Tracker,guardaYEnviaUbicacion,309,6,Tracker,revisaUUG,298,0,Subs,guardaPeso,804,0,Subs,guardaProductoSinGestion,797,0,C_Clientes,JobDone,943,0,Diseñador Visual,ticketsdia.bal,-100,1,C_Clientes,b_noVenta_Click,673,0,C_Clientes,b_guardaNoVenta_Click,713,0,Diseñador Visual,clientes.bal,-100,4,Subs,bitacora,1607,5,Starter,JobDone,210,0 SelectedBuild=0 VisibleModules=30,2,14,5,6,19,31,27,18,11,32 diff --git a/B4A/B4XMainPage.bas b/B4A/B4XMainPage.bas index bee4c4c..8f3d360 100644 --- a/B4A/B4XMainPage.bas +++ b/B4A/B4XMainPage.bas @@ -27,11 +27,7 @@ Version=9.85 ' ################## Pendientes ################## ' ################################################################### ' -' Bitacora de ubicacioes (como FLP2) ' MotivoNoVisita (como kelloggs cuando tienen un accidente y ya no van a terimnar la ruta) -' validar que no se meta el peso en blanco (truena la aplicacion) -' si se queda la venta iniciada y se sale de la app, que al iniciar se vaya DIRECTAMENTE A CLIENTE con la venta ya iniciada. -' Cuando guarden el peso, que se vaya directamente a mostrar el boton de terminar venta. Sub Class_Globals Dim c2 As Cursor diff --git a/B4A/Subs.bas b/B4A/Subs.bas index 74cd551..997be04 100644 --- a/B4A/Subs.bas +++ b/B4A/Subs.bas @@ -808,7 +808,7 @@ Sub guardaPeso(tipo As String, almacen As String, ruta As String, usuario As Str ' CREATE TABLE PESOS(PE_IDALMACEN TEXT, PE_RUTA TEXT, PE_USUARIO TEXT, PE_CLIENTE TEXT, PE_PESO TEXT, PE_FECHA TEXT, PE_FECHA_SINC TEXT) DateTime.DateFormat="yy-MM-dd HH:mm:ss" Dim fecha As String=DateTime.Date(DateTime.Now) - B4XPages.MainPage.skmt.ExecNonQuery($"delete from pesos where pe_cliente in (select cuenta from cuentaa) and pe_tipo = '${tipo}'"$) + B4XPages.MainPage.skmt.ExecNonQuery($"delete from pesos where pe_cliente in (select cuenta from cuentaa)"$) ' and pe_tipo = '${tipo}' B4XPages.MainPage.skmt.ExecNonQuery($"INSERT INTO PESOS (PE_TIPO, PE_IDALMACEN, PE_RUTA, PE_USUARIO, PE_CLIENTE, PE_PESO, PE_FECHA, PE_MOTIVO, PE_COMENTARIO, PE_FOTO_CERRADO) VALUES('${tipo.ToUpperCase}', '${almacen}', '${ruta}', '${usuario}', '${cliente}', '${peso}', '${fecha}', '${motivo}', '${comentario}', '${fotoCerrado}')"$) ' Log($"INSERT INTO PESOS (PE_TIPO, PE_IDALMACEN, PE_RUTA, PE_USUARIO, PE_CLIENTE, PE_PESO, PE_FECHA, PE_MOTIVO, PE_COMENTARIO) VALUES('${tipo.ToUpperCase}', '${almacen}', '${ruta}', '${usuario}', '${cliente}', '${peso}', '${fecha}', '${motivo}', '${comentario}')"$) End Sub @@ -1623,6 +1623,7 @@ Sub bitacora(fechab As String, usuariob As String, almacenb As String, rutab As End If End If If eventob <> "Inicia Venta" Then + Log("===== MANDAMOS BITACORA ====") Private c As Cursor = Starter.skmt.ExecQuery($"select * from BITACORAGPS where usuariob = '${usuariob}' and almacenb = '${almacenb}' and rutab = '${rutab}' and clienteb = '${clienteb}' order by fechab desc"$) If c.RowCount > 0 Then c.Position = 0