diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index beeb7be43..1d9dd05c9 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -7593,6 +7593,12 @@ Partial Class Ventas
             ObjDescuento.ImporteDescuento = DescuentoManual
         End If
 
+        'VERIFICA SI EL DESCUENTO SUPERA EL SUBTOTAL
+        If ObjDescuento.ImporteDescuento > (Cantidad * PU) Then
+            Alert("El descuento no puede ser mayor al subtotal", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         Dim CantidadOriginal As Decimal = GvPS.Rows(e.RowIndex).DataKey("Cantidad").ToDecimal()
 
         Dim DatarowPS As DataRow = Nothing
@@ -9354,10 +9360,15 @@ Partial Class Ventas
                             If Not MsgCancelacionRefacturacion.HuboError Then
                                 If MsgCancelacionRefacturacion.CveEstatus = 5 Then
                                     MensajeAlert.AppendFormat("<br/>El folio <b>{0}</b> fue cancelado. <b><a target='_blank' class='Texto' href=""/Compras/PopUpVerFactura.aspx?P={1}"">Descargar Acuse</a></b>", Me.ObjFacturaNC.SerieFolio, Encripta(String.Format("OP=CAN&CVEVTA={0}", Me.ObjFacturaNC.CveVenta)))
+                                    MensajeAlert.AppendFormat("&nbsp;<a target='_self' class='Texto' href=""javascript:BtnEnviarMailCancelacion({0});"">Enviar Acuse</a>.<br/><br/>", Me.ObjFacturaNC.CveVenta)
                                 ElseIf MsgCancelacionRefacturacion.CveEstatus = 20 Then
                                     MensajeAlert.AppendFormat("<br/>El folio <b>{0}</b> esta en proceso de cancelación. <b><a target='_blank' class='Texto' href=""/Compras/PopUpVerFactura.aspx?P={1}"">Descargar Acuse</a></b>", Me.ObjFacturaNC.SerieFolio, Encripta(String.Format("OP=CAN&CVEVTA={0}", Me.ObjFacturaNC.CveVenta)))
+                                    MensajeAlert.AppendFormat("&nbsp;<a target='_self' class='Texto' href=""javascript:BtnEnviarMailCancelacion({0});"">Enviar Acuse</a>.<br/><br/>", Me.ObjFacturaNC.CveVenta)
+                                Else
+                                    MensajeAlert.AppendFormat("<br/>El folio <b>{0}</b> no fue cancelado. Intente mas tarde cancelar el documento <b><a target='_blank' class='Texto' href=""/Ventas/RepCancelacionesPorRespuesta.aspx?CveVenta={1}"">Ver en el reporte</a></b>", Me.ObjFacturaNC.SerieFolio, Me.ObjFacturaNC.CveVenta)
                                 End If
-                                MensajeAlert.AppendFormat("&nbsp;<a target='_self' class='Texto' href=""javascript:BtnEnviarMailCancelacion({0});"">Enviar Acuse</a>.<br/><br/>", Me.ObjFacturaNC.CveVenta)
+                            Else
+                                MensajeAlert.AppendFormat("<br/>El folio <b>{0}</b> no fue cancelado. Intente mas tarde cancelar el documento <b><a target='_blank' class='Texto' href=""/Ventas/RepCancelacionesPorRespuesta.aspx?CveVenta={1}"">Ver en el reporte</a></b>", Me.ObjFacturaNC.SerieFolio, Me.ObjFacturaNC.CveVenta)
                             End If
                         End If
 
@@ -17336,7 +17347,7 @@ Partial Class Ventas
         End If
 
         'multiples vendedores visible
-        If UsuarioActual.TienePermisoProceso(153) Then
+        If UsuarioActual.TienePermisoProceso(153) OrElse UsuarioActual.TienePermisoProceso(161) Then
             DdlVendedor.Enabled = True
         End If
 
@@ -21603,6 +21614,13 @@ Partial Class Ventas
 
         LimpiaContado()
         LimpiaProntoPago()
+
+        'NO PERMITE EDITAR FECHA DEL PAGO
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            TxtFechaPago.Enabled = False
+            imgCalendario.Visible = False
+        End If
+
         UpContado.Update()
         UPCondicionesPago.Update()
     End Sub
@@ -29502,6 +29520,8 @@ Partial Class Ventas
 
         BloqueaCondiconesPago()
 
+        CargaVendedores()
+
         UpPS.Update()
         UPPDescuento.Update()
         UPObservaciones.Update()