Correccion en aplicacion de notas de credito

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
@@ -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