cheveguerra/Kelloggs_v4
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Kelloggs_v4.git synced 2026-04-23 04:40:08 +00:00
Code Issues Packages Projects Releases Wiki Activity

- Bitacora (Proyecto GPS) completo

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-04-04 11:13:02 -06:00
parent eadb6c92c3
commit 628c38ca89
6 changed files with 58 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
B4A/C_NoVenta.bas
View File

@@ -89,7 +89,7 @@ Sub GUARDA_Click
usuario = Subs.traeUsuarioDeBD
If B4XPages.MainPage.cliente.IsInitialized Then
B4XPages.MainPage.cliente.motivoNoVenta = motivo
Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Subs.traeAlmacen, Subs.traeRuta, "Termina Venta", Subs.traeUsuarioDeBD, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, B4XPages.MainPage.cliente.precision, motivo, "")
Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Subs.traeAlmacen, Subs.traeRuta, "Termina Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, B4XPages.MainPage.cliente.precision, motivo, "")
Starter.enVenta = False
End If
DateTime.DateFormat = "MM/dd/yyyy"