diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index 12f5a4bf4..7c1a31aea 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -479,10 +479,8 @@ Partial Class ProductosyServicios
             DdlEcommerceClasificacion.DataBind()
         End If
 
-        If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
-
+        If UsuarioActual.Empresa.Funcionalidad(578) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(267) = "1" Then
             DVCodigoPSAlterno.Visible = True
-
         End If
 
     End Sub
@@ -1159,12 +1157,9 @@ Partial Class ProductosyServicios
                     ChkFechaIndeterminadaRSCO.Checked = False
                 End If
 
-                If UsuarioActual.Empresa.Funcionalidad(578) = "1" Then
-                    TxtCodigoAlterno.Text = ObjProductosServicios.DtResultados.Rows(0)("CodigoAlterno").ToString
-                    TxtPSAlterno.Text = ObjProductosServicios.DtResultados.Rows(0)("PSAlterno").ToString
-                    DVCodigoPSAlterno.Visible = True
-
-                End If
+                TxtCodigoAlterno.Text = ObjProductosServicios.DtResultados.Rows(0)("CodigoAlterno").ToString
+                TxtPSAlterno.Text = ObjProductosServicios.DtResultados.Rows(0)("PSAlterno").ToString
+                DVCodigoPSAlterno.Visible = True
 
                 If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
                     DivPSExhibicion.Visible = True