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

- Se comentaron logs inecesarios

Browse Source
This commit is contained in:
Jose Alberto Guerra Ugalde
2023-12-15 05:26:47 -06:00
parent 166b6a56b0
commit 3efdd92ffa
8 changed files with 32 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
B4A/C_Cliente.bas
View File

@@ -515,7 +515,7 @@ Sub B4XPage_Appear
' LogColor($"${c.GetString("CAT_CL_LAT")}, ${c.GetString("CAT_CL_LONG")}"$, Colors.red)
If logger Then Log($"Lat: ${LATITUD}, Lon: ${LONGITUD}"$)
NOMBRE = c.GetString("CAT_CL_NOMBRE")
Log($"TOTAL DE LA VENTA: ${kh.traeTotalCliente}"$)
' Log($"TOTAL DE LA VENTA: ${kh.traeTotalCliente}"$)
If kh.traeTotalCliente < 0.01 And kh.traeTotalClienteDOE < 0.01 Then
If Not(clienteId.StartsWith("N")) And la_cuenta.Text <> "0" Then b_noVenta.Visible = True 'Ni cliente nuevo, ni abordo.
Else
@@ -773,7 +773,7 @@ Sub GPS_LocationChanged (Location1 As Location)
Else
l_ubicacion2.TextColor = Colors.Black
dentroDeGeocerca = True
Log("dentro de geocerca")
' Log("dentro de geocerca")
End If
'''' GEO CERCA
@@ -931,7 +931,7 @@ Sub Guardar_Click
' B4XPages.ShowPageAndRemovePreviousPages("Principal")
Guardar.SendToBack
b_inicioFinVenta.Text = "TERMINAR VENTA"
Log("RESPLDO")
' Log("RESPALDO")
kh.RD_respaldoBatch
If la_cuenta.Text <> "0" Then 'Si es ABORDO, no mostramos el boton b_inicioFinVenta y regresamos a Principal.
b_inicioFinVenta.Visible = True
@@ -4091,13 +4091,13 @@ Private Sub b_inicioFinVenta_Click
If Starter.enVenta Then
Subs.bitacora(Subs.fechanormal(DateTime.Now), usuario, Id_Almacen, ruta_tienda, "Termina Venta", la_cuenta.text, "", Subs.fechanormal(DateTime.Now), Starter.lat_gps, Starter.lon_gps, precision, motivoNoVenta, "")
Starter.enVenta = False
LogColor(">>>>>> EN VENTA: " & Starter.enVenta, Colors.red)
' LogColor(">>>>>> EN VENTA: " & Starter.enVenta, Colors.red)
Subs.iniciaActividad("principal")
B4XPages.ShowPageAndRemovePreviousPages("Principal")
Else
Subs.bitacora(Subs.fechanormal(DateTime.Now),usuario, Id_Almacen, ruta_tienda, "Inicia Venta", la_cuenta.text, Subs.fechanormal(DateTime.Now), "", Starter.lat_gps, Starter.lon_gps, precision, motivoNoVenta, "")
Starter.enVenta = True
LogColor(">>>>>> EN VENTA: " & Starter.enVenta, Colors.red)
' LogColor(">>>>>> EN VENTA: " & Starter.enVenta, Colors.red)
End If
b_inicioFinVenta.Visible = False
End Sub