cheveguerra/Guna_Preventa
1
0
Fork 0
mirror of https://github.com/KeymonSoft/Guna_Preventa.git synced 2026-04-17 21:06:32 +00:00
Code Issues Packages Projects Releases Wiki Activity

v: 4.10.06.EP_d

Browse Source 
Se modifico la suplencia, en el eveno de NoVenta, las fechas deven ser iguales y solo debe mostrar un registro.
This commit is contained in:
IsR0d
2024-10-07 16:07:49 -06:00
parent cfdcc55cfa
commit 19358a8c76
4 changed files with 12 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
B4A/C_Cliente.bas
View File

@@ -423,7 +423,7 @@ Sub Class_Globals
Dim motivoNoVenta, motivoNoVisita As String
Dim contadorIniciarVenta As Int = 0
Dim IniVenNO As Boolean = False
private geoCont as int = 0
Private geoCont As Int = 0
End Sub
'You can add more parameters here.
@@ -4788,13 +4788,17 @@ Private Sub b_Inicio_Fin_venta_Click
contadorIniciarVenta = 0
IniVenNO = False
contadorIniciarVenta = contadorIniciarVenta + 1
If contadorIniciarVenta = 1 And IniVenNO = False Then
If contadorIniciarVenta = 1 And IniVenNO = False And motivoNoVenta <> "NO VENTA" Then
IniVenNO = True
Starter.VarX = 1
Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRutaBitacora, "Inicia Venta", Subs.traeCliente, Subs.fechanormal(DateTime.Now), "", B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, precision, motivoNoVenta, "")
Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRutaBitacora, "Inicia Venta", Subs.traeCliente, Subs.fechanormal(DateTime.Now), "", B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, precision, "", "")
Starter.enVenta = True
' LogColor($">>>>>> INICIA VENTA: ${Starter.enVenta} - ${Subs.traeCliente}"$, Colors.red)
Else If contadorIniciarVenta = 1 And IniVenNO = False And motivoNoVenta = "NO VENTA" Then
IniVenNO = True
Starter.VarX = 1
Subs.bitacora(Subs.fechanormal(DateTime.Now), Subs.traeUsuarioDeBD, Subs.traeAlmacen, Subs.traeRutaBitacora, "Inicia Venta", Subs.traeCliente, Subs.fechanormal(DateTime.Now), "", B4XPages.MainPage.lat_gps, B4XPages.MainPage.lon_gps, precision, motivoNoVenta, "")
Starter.enVenta = True
Else If contadorIniciarVenta > 1 Then
b_Inicio_Fin_venta.Visible = False
End If