cheveguerra/ADM2
1
0
Fork 0
mirror of https://github.com/KeymonSoft/ADM2.git synced 2026-04-20 12:49:16 +00:00
Code Issues Packages Projects Releases Wiki Activity

VERSION 6.01.10

Browse Source 
- Se corrige en resumen dia la venta por marcas
This commit is contained in:
Jose Alberto Guerra Ugalde
2026-01-15 16:48:49 -06:00
parent f4fa1e08d1
commit 45361e79c4
20 changed files with 214 additions and 241 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/C_BItacora.bas
View File

@@ -65,7 +65,7 @@ Sub mandaBitacora(fechab As String, usuariob As String, almacenb As String, ruta
e.Position = 0
Log("ACTUALIZA BITACORA")
If eventob = "Termina Venta" Then
db.ExecNonQuery($"update BITACORAGPS set finb = '${finb}' where rutab = '${rutab}' and almacenb = '${almacenb}' and usuariob = '${usuariob}' and clienteb = '${clienteb}' and fechab = '${e.GetString("fechab")}' "$)
db.ExecNonQuery($"update BITACORAGPS set finb = '${finb}', latitudb = '${latitudb}', longitudb = '${longitudb}' where rutab = '${rutab}' and almacenb = '${almacenb}' and usuariob = '${usuariob}' and clienteb = '${clienteb}' and fechab = '${e.GetString("fechab")}' "$)
cmd.Parameters = Array As Object(finb, rutab, almacenb, usuariob, clienteb, "Inicia Venta", e.GetString("fechab"))
else if eventob = "No Venta" Then
Log("-- NV")
@@ -130,6 +130,8 @@ Sub inicioFin
End Sub
Private Sub b_Inicio_Fin_venta2_Click
Log("INICIO/FIN CLICKED")
Log(B4XPages.MainPage.lat_gps & "," & B4XPages.MainPage.lon_gps)
' b_Inicio_Fin_venta.Visible = False
' Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Subs.traeAlmacen, Subs.traeRuta, "Pre-venta", "0", Subs.fechanormal(DateTime.Now), Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, precision, "", "")
contadorIniciarVenta = 0