Imprimir acuse en cancelacion en proceso. redondear descuentos a 2 decimales

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