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

- VERSION 4.11.29

Browse Source 
- Se regreso que pida el tipo de venta cuando se borra venta de Durakelo!!
This commit is contained in:
Jose Alberto Guerra Ugalde
2024-11-30 12:38:41 -06:00
parent 4e0980157d
commit 1c1259da0c
2 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
soporteKMS.b4a
View File

@@ -34,7 +34,7 @@ Version=12.8
@EndOfDesignText@
#Region Project Attributes
#ApplicationLabel: Soporte Keymonsoft
#VersionName: 4.11.19
#VersionName: 4.11.29
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
@@ -1555,7 +1555,7 @@ Private Sub b_forzarVentaBV_Click
End If
If laEmpresa = "Durakelo" Then
cmd.Name = "proc_QUITAR_VENTA_DURAKELO"
cmd.Parameters = Array As Object(almacenEmpresa, rutaVenta, usrSoporte, bandera)
cmd.Parameters = Array As Object(almacenEmpresa, rutaVenta, usrSoporte, tipoVentaKelloggs)
End If
Log($"Madamos borrar venta ${laEmpresa}: "$ & almacenEmpresa&"|"& rutaVenta&"|"&usrSoporte&"|"&tipoVentaKelloggs&"|"&bandera)
reqManager.ExecuteCommand(cmd , "borrarVentaKelloggs")
@@ -1622,7 +1622,7 @@ Private Sub b_revisarVentaBV_Click
laRuta = rut
cmd.Name = $"select_ventaXruta${laEmpresa}_soporte"$
cmd.Parameters = Array As Object(rut, almacenEmpresa)
If laEmpresa = "Kelloggs" Then
If laEmpresa = "Kelloggs" Or laEmpresa = "Durakelo" Then
cmd.Parameters = Array As Object(rut, almacenEmpresa, tipoVentaKelloggs)
Log($"mandamos: ruta=${rut}, almacen=${almacenEmpresa}, ${tipoVentaKelloggs}, select_ventaXruta${laEmpresa}_soporte"$)
End If
@@ -1664,7 +1664,7 @@ End Sub
Private Sub s_empresaBV_ItemClick (Position As Int, Value As Object)
laEmpresa = Value
If laEmpresa = "Kelloggs" Then
If laEmpresa = "Kelloggs" Or laEmpresa = "Durakelo" Then
l_tipoVentaBV.Visible = True
s_tipoVentaBV.Visible = True
p_tipoVentaBV.Visible = True