--Mostrar lista de precios con la funcionalidad 109

This commit is contained in:
2024-03-15 14:29:50 -07:00
parent 0bde92b1f1
commit 6bb2e3ff33
2 changed files with 16 additions and 15 deletions

View File

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