-

Ventas/Ventas.aspx.vb

@@ -7858,7 +7858,7 @@ Partial Class Ventas
                             dr("SATClaveUM") = "ACT"
                             dr("Consec") = ii
 
-                            dr("PorcentajeIVA") = dr("PorcentajeIVA").ToString().ToDecimal
+                            dr("PorcentajeIVA") = Drr("PorcentajeIVA").ToString().ToDecimal
 
                             dr("IVA") = Drr("PorcentajeIVA")
                             dr("ImporteIVA") = Drr("ImporteIVA").ToString().ToDecimal
@@ -9498,7 +9498,7 @@ Partial Class Ventas
                            CveVentaRelacion:=(If(factura.CveVentaRelacion.ToEntero() > 0, factura.CveVentaRelacion, -1)), ImporteRelacion:=(If(factura.ImporteRelacion <> Nothing, factura.ImporteRelacion, -1)),
                            CveTipoAmortizacionAnticipo:=factura.CveTipoAmortizacionAnticipo, CveEmpresaCRM:=CveEmpresaCRM, EsInterno:=EsInterno, CveAcercamientoCRM:=CveAcercamientoCRM,
                            DiasCredito:=factura.DiasCredito, EsDiasCreditoFijo:=factura.EsDiasCreditoFijo, AnticipoEspecial:=If(TrAntEspecial.Visible, ChkAntEspecial.Checked, False),
-                           Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=CveTipoRetencion) Then
+                           Kilometraje:=TxtKilometraje.Text.ToDouble, EsAmortizacion:=EsNCAmortizacion, CveTipoRetencion:=CveTipoRetencion, CorreoNotificacion:=TxtCorreoNotificaciones.Text) Then
             ErrorList.Add("Ocurrió un error al Generar la Venta.<br />Revise su factura y cualquier detalle comuníquese a Soporte Técnico")
         Else
             If factura.TipoDocto.Contiene("Dev", "Egs") Or DtVentasNC IsNot Nothing Or CveEstatusRefacturacion = 1 Then
@@ -12817,13 +12817,13 @@ Partial Class Ventas
 
                 'cuando es amortización por NOTA DE CREDITO
                 If DdlTipoAmortizacionAnticipo.SelectedValue = "2" Then
-                    LblAntAplicados.Text = "Amortización por Nota de Crédito" : LblAntAplicados.Visible = True
+                    LblAntAplicados.Text = String.Format("Amortización por Nota de Crédito: {0:C}", Amortizacion) : LblAntAplicados.Visible = True
                     Amortizacion = 0
                     HdnTipoDescuento.Value = "-1"
                     HdnDescuento.Value = "0"
                     RegistraScript("BorraDescuentos();")
                     HdnTieneAnticiposVinculados.Value = "1"
-
+                    AplicaNCMasiva = True
                 End If
 
                 'cuando es AMORTIZACIÓN CON FACTURA EN CERO