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

- Se agrego el evento de "Abordo" a la bitacora (Proyecto GPS)

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-05-09 19:22:16 -06:00
parent 2e200ecf62
commit 2a17d65160
16 changed files with 486 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
B4A/C_Cliente.bas
View File

@@ -969,7 +969,8 @@ Sub Guardar_Click
Else
b_inicioFinVenta.Visible = False
Starter.enVenta = False
' LogColor(">>>>>> EN VENTA: " & Starter.enVenta, Colors.red)
LogColor(">>>>>> ABORDO: " & Starter.enVenta, Colors.red)
Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Id_Almacen, ruta_tienda, "Venta Abordo", "0", "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, precision, "", "")
Subs.iniciaActividad("principal")
B4XPages.ShowPageAndRemovePreviousPages("Principal")
End If
@@ -4050,6 +4051,7 @@ Private Sub l_ubicacion2_LongClick
End Sub
Sub JobDone(Job As HttpJob)
Log("JOBDONE CLIENTE")
If Job.Success = False Then
' ToastMessageShow("Error: " & Job.ErrorMessage, True)
LogColor("Error: " & Job.tag & " : " & Job.ErrorMessage, Colors.red)