Registro revision AF

Ventas/ProductosServicios.aspx.vb

@@ -111,7 +111,7 @@ Partial Class ProductosyServicios
 
     Private ReadOnly Property PermiteClasificacion2 As Boolean
         Get
-            Return (UsuarioActual.CveEmpresa.Contiene(72, 80))
+            Return (UsuarioActual.CveEmpresa.Contiene(1, 72, 80))
         End Get
     End Property
 
@@ -1164,7 +1164,7 @@ Partial Class ProductosyServicios
         End If
 
         Dim CveMarca As Integer = 0
-        If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) Then CveMarca = DdlMarcaPSDes.SelectedValue.ToEntero Else CveMarca = DdlMarca.SelectedValue.ToEntero
+        If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) And CvePS = -1 Then CveMarca = DdlMarcaPSDes.SelectedValue.ToEntero Else CveMarca = DdlMarca.SelectedValue.ToEntero
 
         If CvePS = -1 Then
             Dim PSS As String = TxtPS.Text.Trim.Replace("|", "")
@@ -1656,11 +1656,13 @@ Partial Class ProductosyServicios
 
     Protected Sub CargarMarcas()
         If UsuarioActual.Empresa.Funcionalidad(130) = "1" Then
+
             If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) And CvePS = -1 Then
                 DivMarcaPSDes.Visible = True
             Else
                 DivMarca.Visible = True
             End If
+
             Dim ObjMarcas As New ClsProductosServicios
             ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa)
             DdlMarca.DataSource = ObjMarcas.DtResultados