From b1866b7d0c5f241dd67003d1c3bac4b6427517cb Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 13 Apr 2022 15:48:37 -0700
Subject: [PATCH] Imprimir acuse en cancelacion en proceso. redondear
 descuentos a 2 decimales

---
 Ventas/Ventas.aspx.vb | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 1a58cbab0..e97a4095f 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -5017,7 +5017,7 @@ Partial Class Ventas
                 End If
 
                 'CargaAcuseCancelacion
-                If DbRowVenta("CveEstatusFactura").ToString() = "5" Then
+                If DbRowVenta("CveEstatusFactura").ToString().Contiene("5", "20") Then
                     ImgDownCancelacion.Visible = True
                     ImgDownCancelacion.NavigateUrl = String.Format("/Compras/PopUpVerFactura.aspx?P={0}", Encripta(String.Format("OP=CAN&CVEVTA={0}", CveVenta)))
                 End If
@@ -17797,7 +17797,7 @@ Partial Class Ventas
             End If
         End If
 
-        ObjDescuento.ImporteDescuento = Descuento
+        ObjDescuento.ImporteDescuento = Descuento.RoundSQL(2)
         ObjDescuento.CvePromocionDetalle = CvePromocionDetalle
         If SeAjustoPU Then
             ObjDescuento.PU = PUModificado
@@ -23773,7 +23773,6 @@ Partial Class Ventas
 
     Private Sub MostrarRemisionesCancelar()
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing") AndAlso DivCanRem.Visible Then
-            ChkCanRem.Enabled = False
             ChkCanRem.Checked = True
             ChkCanRem_CheckedChanged(ChkCanRem, EventArgs.Empty)
             ChkCanRem.Enabled = False