Correcion TipoCliente

2020-07-04 18:19:12 -07:00
parent 5fa8e46de8
commit da1991458a
7 changed files with 101 additions and 54 deletions
--- a/Ventas/RepProductosServicios.aspx.vb
+++ b/Ventas/RepProductosServicios.aspx.vb
@@ -60,7 +60,13 @@ Partial Class Ventas_RepProductosServicios
        If Not IsPostBack Then
            If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx")
            CargarMarcas()
-            SetValues()
+            SetValues()
+
+            If UsuarioActual.Empresa.Funcionalidad(531).ToEntero = 1 Then
+                LblLitraje.Visible = True
+                DvLitraje.Visible = True
+            End If
+
        End If
    End Sub