--Ventas.aspx. % de descuento limitado por clasificación

Ventas/Ventas.aspx.vb

@@ -3228,7 +3228,7 @@ Partial Class Ventas
             '    End If
             'End If
 
-            If UsuarioActual.Empresa.Funcionalidad(301) <> "" Then
+            If UsuarioActual.Empresa.Funcionalidad(301) = "1" Then
                 TxtFecha.Enabled = True
                 ImgFecha.Visible = True
             Else
@@ -25024,6 +25024,15 @@ Partial Class Ventas
             LblIVADescPS.Text = GvRow.DataKey("ImporteIVA").FormatoNumero()
             HdnIVADescPS.Value = GvRow.DataKey("IVA").FormatoNumero()
 
+            Dim DrPS As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=GvRow.DataKey("CvePS").ToEntero()).FiltroPrimero("")
+            If DrPS IsNot Nothing Then
+                If DrPS("PorMaximoDescuento").ToString().ToDecimal() > 0 Then
+                    HdnPorcentajeMaxDescPS.Value = DrPS("PorMaximoDescuento").ToString()
+                Else
+                    HdnPorcentajeMaxDescPS.Value = UsuarioActual.DescuentoAutorizado.ToString()
+                End If
+            End If
+
             Using ObjPS As New ClsProductosServicios
                 Dim PrecioCompra = ObjPS.GetUltimoPrecioCompra(UsuarioActual.CveEmpresa, GvRow.DataKey("CvePS").ToEntero())
                 If PrecioCompra > 0 Then