diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index d6c0cbaf4..4526e1692 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -244,7 +244,7 @@ Partial Class ProductosyServicios
 
             End If
 
-            If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) And CvePS = -1 Then
+            If UsuarioActual.CveEmpresa.Contiene(72, 80) And CvePS = -1 Then
                 'DivDatos.Attributes("class") = "col-md-12"
                 TxtPS.Enabled = False
                 DivDdlTipo.Visible = True