diff --git a/Ventas/CatPS.aspx.vb b/Ventas/CatPS.aspx.vb
index 7a1992cb7..1663db614 100644
--- a/Ventas/CatPS.aspx.vb
+++ b/Ventas/CatPS.aspx.vb
@@ -39,12 +39,14 @@ Partial Class CatPS
                 TxtCodigoBarras.Focus()
             End If
 
-            'CargaDatos()
-
             If UsuarioActual.TienePermisoProceso(122) Then
                 LBAgregarPS.Visible = False
             End If
 
+            If UsuarioActual.CveEmpresa = 119 Then
+                DdlEstado.SelectedValue = "-1"
+            End If
+
         End If
     End Sub