cheveguerra/Medicomed_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Medicomed_Preventa.git synced 2026-04-20 14:29:15 +00:00
Code Issues Packages Projects Releases Wiki Activity

Version 4.09.22

Browse Source 
Se agrego la Bitacora que tiene Kelloggs
This commit is contained in:
IsR0d
2024-09-23 10:34:09 -06:00
parent 36a638f265
commit 7fe1d3059d
14 changed files with 257 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
B4A/C_NoVenta.bas
View File

@@ -83,6 +83,13 @@ Sub GUARDA_Click
Else
motivo = "Cerrado permanente."
End If
If B4XPages.MainPage.cliente.IsInitialized Then
B4XPages.MainPage.cliente.motivoNoVenta = motivo
Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Subs.traeAlmacen, Subs.traeRuta, "No Venta", Subs.traeCliente, "", Subs.fechanormal(DateTime.Now), B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, B4XPages.MainPage.cliente.precision, motivo, e_comm.text)
Starter.enVenta = False
End If
DateTime.DateFormat = "MM/dd/yyyy"
sDate=DateTime.Date(DateTime.Now)
sTime=DateTime.Time(DateTime.Now)