AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Nombre de usuario en corte

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2025-05-05 12:01:57 -07:00
parent 0d7555bc1f
commit 2c04a06064
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Ventas/CatAutorizacionLimites.aspx.vb
View File

@@ -88,8 +88,11 @@ Partial Class Ventas_CatAutorizacionLimites
FechaI = If(IsDate(txtFechaI.Text.Trim()), txtFechaI.Text.Trim.ToDate, MinFecha)
FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim.ToDate, MaxFecha)
Dim CveUsuarioConsulta As Integer = UsuarioActual.CveUsuario
If UsuarioActual.Empresa.Funcionalidad(595) = "3" Then CveUsuarioConsulta = -1
Dim ObjGral As New ClsVentas
If ObjGral.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedorFiltro.SelectedValue.ToEntero(), "-1", CveEstatus:=DdlEstatus.SelectedValue.ToEntero(), FechaI:=FechaI, FechaF:=FechaF, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
If ObjGral.GetAutorizacionLimite(UsuarioActual.CveEmpresa, CveCliente, DdlVendedorFiltro.SelectedValue.ToEntero(), "-1", CveEstatus:=DdlEstatus.SelectedValue.ToEntero(), FechaI:=FechaI, FechaF:=FechaF, CveUsuarioConsulta:=CveUsuarioConsulta) Then
GvDatos.DataSource = ObjGral.DtResultados
End If
ObjGral.Dispose()