From d642a1c3dd08f9347d1221815dba8880d6d9593c Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 12 Feb 2025 17:02:55 -0700 Subject: [PATCH] --FIX pago de efectivo restante cuando se aplican multiples NC --- Ventas/PVCobranza.aspx.vb | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Ventas/PVCobranza.aspx.vb b/Ventas/PVCobranza.aspx.vb index 66b7cecbb..642eae08d 100644 --- a/Ventas/PVCobranza.aspx.vb +++ b/Ventas/PVCobranza.aspx.vb @@ -716,7 +716,7 @@ Partial Class Ventas_PVCobranza End If 'GENERAR NC PARA AMORTIZACION - If ListaAnticiposAplicados IsNot Nothing AndAlso ListaAnticiposAplicados.Where(Function(x) x.Tipo = "Ant").Any() AndAlso TxtNCDev.Text.ToDecimal() > 0 Then + If MsgError = "" AndAlso ListaAnticiposAplicados IsNot Nothing AndAlso ListaAnticiposAplicados.Where(Function(x) x.Tipo = "Ant").Any() AndAlso TxtNCDev.Text.ToDecimal() > 0 Then For Each gvr As GridViewRow In GVAnticipos.Rows If gvr.DataKey("Tipo") = "Ant" AndAlso gvr.FCCheckBox("Chk" & gvr.RowIndex) IsNot Nothing AndAlso gvr.FCCheckBox("Chk" & gvr.RowIndex).Checked Then @@ -737,8 +737,8 @@ Partial Class Ventas_PVCobranza Exit For Else PagoAplicado += RespNC.Factura.Total - SaldoPendienteVenta = SaldoPendienteVenta - PagoAplicado - SaldoPendientePagos = SaldoPendientePagos - PagoAplicado + SaldoPendienteVenta -= RespNC.Factura.Total + SaldoPendientePagos -= RespNC.Factura.Total For Each RowAnt As DataRow In RespNC.Factura.DtAnticiposAplicados.Rows If Not ActualizaAnticipos(RowAnt("CveIE").ToString().ToEntero(), RowAnt("CveVenta").ToString().ToEntero(), RowAnt("Tipo").ToString(), RowAnt("Folio").ToString(), ObjVentas2, ObjOIEventos) Then