GDiaz 2025-01-14

Ventas/PVCobranza.aspx.vb

@@ -963,6 +963,8 @@ Partial Class Ventas_PVCobranza
         Dim Retorno As Modelos.Factura.MMensajeFactura = Nothing
         Dim SbAlert As New StringBuilder()
         Dim SBAmortizaciones As New StringBuilder
+        Dim DtAnticipos As New DataTable()
+
 
         Try
             Dim DtRemisiones As New DataTable
@@ -1060,7 +1062,7 @@ Partial Class Ventas_PVCobranza
 
             If HdnTipoAmortizacion.Value = "4" Then
 
-                Dim DtAnticipos As New DataTable()
+
                 DtAnticipos.Columns.Add("CveVenta", GetType(Integer))
                 DtAnticipos.Columns.Add("Importe", GetType(Decimal))
                 DtAnticipos.Columns.Add("CveConceptoContable", GetType(Integer))
@@ -1095,8 +1097,6 @@ Partial Class Ventas_PVCobranza
 
                         DtAnticipos.Rows.Add(CveVenta, Importe, CveConceptoContable, CveIE, FolioFiscal, Descuentos, TotalAnticipo, SubTotalAnticipo, CveMoneda, Fecha, TipoCambioPago, Folio, Tipo)
 
-                        SBAmortizaciones.AppendLine($"<br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=AMORTIZACIONHIS&CVEIE={0}&CVEVENTA{1}&CVECLIENTE={2}", CveIE, CveVenta, VentaRemision.CveCliente))}"">Imprimir historial {Folio}</a><br/>")
-
                     End If
                 Next
 
@@ -1122,6 +1122,18 @@ Partial Class Ventas_PVCobranza
                 Next
 
                 SbAlert.AppendFormat("<ul><li><a class=""Texto"" href=""/Compras/PopUpVerFactura.aspx?P={0}"">Descargar PDF Factura</a></li></ul><br/>", Encripta(String.Format("OP=VTA&CVEVENTA={0}&PAG=1&GUARDAR=1", Retorno.CveVenta)))
+
+                For Each dr As DataRow In DtAnticipos.Rows
+                    SBAmortizaciones.AppendLine($"<br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={Encripta(String.Format("OP=AMORTIZACIONHIS&CVEIE={0}&CVEVENTA{1}&CVECLIENTE={2}&CVEVENTAAMORTIZADA={3}&MONTO={4}&SALDO={5}",
+                                                                                                                                                        dr("CveIE").ToString,
+                                                                                                                                                        dr("CveVenta").ToString,
+                                                                                                                                                        Retorno.Factura.CveCliente,
+                                                                                                                                                        Retorno.CveVenta,
+                                                                                                                                                        Retorno.Factura.Total,
+                                                                                                                                                        (Retorno.Factura.Total - Retorno.Factura.DtAnticiposAplicados.SUM("Importe"))))}"">Imprimir historial {dr("Folio").ToString}</a><br/>")
+                Next
+
+
                 SbAlert.Append(SBAmortizaciones.ToString)
 
             Else