diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index b92c5eca9..0192633e0 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -18003,7 +18003,7 @@ Partial Class Ventas
     End Sub
 
     Protected Sub DdlPSEdit_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs)
-        If UsuarioActual.Empresa.Funcionalidad(109) = "1" Then
+        If UsuarioActual.Empresa.Funcionalidad(109) = "1" OrElse UsuarioActual.Empresa.Funcionalidad(558) = "1" Then
             If GvPS.EditIndex >= 0 Then
                 Dim ddlPSEdit = DirectCast(sender, ADServerControl.Dropdownlost)
                 Dim GvRow = DirectCast(ddlPSEdit.NamingContainer, GridViewRow)