- 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

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

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

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

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