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

--Mostrar lista de precios con la funcionalidad 109

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2024-03-15 14:29:50 -07:00
parent 0bde92b1f1
commit 6bb2e3ff33
2 changed files with 16 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
Ventas/Clientes.aspx.vb
View File

@@ -723,20 +723,18 @@ Partial Class Clientes
TabCuentasEquipos.Visible = True TabCuentasEquipos.Visible = True
End If End If
If UsuarioActual.Empresa.Funcionalidad(504).ToEntero() > 0 Then If UsuarioActual.TienePermisoProceso(162) Then
If UsuarioActual.TienePermisoProceso(162) Then ChkPermiteCredito.Enabled = True
ChkPermiteCredito.Enabled = True TxtLimiteCreditoSucursal.Enabled = True
TxtLimiteCreditoSucursal.Enabled = True TxtFechaLimiteCredito.Enabled = True
TxtFechaLimiteCredito.Enabled = True Else
Else ChkPermiteCredito.Enabled = False
ChkPermiteCredito.Enabled = False TxtLimiteCreditoSucursal.Enabled = False
TxtLimiteCreditoSucursal.Enabled = False TxtFechaLimiteCredito.Enabled = False
TxtFechaLimiteCredito.Enabled = False End If
End If ChkEstado.Enabled = False
ChkEstado.Enabled = False If UsuarioActual.TienePermisoProceso(180) Then
If UsuarioActual.TienePermisoProceso(180) Then ChkEstado.Enabled = True
ChkEstado.Enabled = True
End If
End If End If
If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then If UsuarioActual.Empresa.Funcionalidad(579) = "1" Then

5
Ventas/Ventas.aspx.vb
View File

@@ -8446,7 +8446,7 @@ Partial Class Ventas
End If End If
End If End If
If UsuarioActual.Empresa.Funcionalidad(360) = "1" AndAlso e.Row.DBCampo("CvePrecioLista").ToEntero() > 0 Then If (UsuarioActual.Empresa.Funcionalidad(360) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(109) = "1") AndAlso e.Row.DBCampo("CvePrecioLista").ToEntero() > 0 Then
e.Row.FCLiteral("LtlPrecioLista").Visible = True e.Row.FCLiteral("LtlPrecioLista").Visible = True
End If End If
@@ -18656,6 +18656,9 @@ Partial Class Ventas
Else Else
If Me.CvePrecioLista > 0 Then If Me.CvePrecioLista > 0 Then
CvePrecioListaPS = Me.CvePrecioLista CvePrecioListaPS = Me.CvePrecioLista
If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
PrecioListaPS = GlobalDTPrecioListas(UsuarioActual.CveEmpresa).FiltroPrimeroValor("PrecioLista", $"CvePrecioLista={CvePrecioListaPS}")
End If
End If End If
End If End If