From c6db4aace872a2ecf4fa5f2643874007a0e68b39 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Sat, 24 Oct 2020 13:02:31 -0700
Subject: [PATCH] Folios de movimientos al amortizar

---
 Ventas/Ventas.aspx.vb | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 47e6ab7e0..852652999 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -8063,6 +8063,7 @@ Partial Class Ventas
             Drt("CveVenta") = ObjFactura.CveVenta
             Drt("Importe") = 0
             Drt("FolioFiscal") = ObjFactura.FolioFiscal
+            Drt("Folio") = ObjFactura.SerieFolio
             DtVentasNC.Rows.Add(Drt)
             DtVentasNC.AcceptChanges()
         End If
@@ -8304,6 +8305,7 @@ Partial Class Ventas
             Drt("CveVenta") = ObjFactura.CveVenta
             Drt("Importe") = 0
             Drt("FolioFiscal") = ObjFactura.FolioFiscal
+            Drt("Folio") = ObjFactura.SerieFolio
             DtVentasNC.Rows.Add(Drt)
             DtVentasNC.AcceptChanges()
         End If
@@ -9055,6 +9057,7 @@ Partial Class Ventas
                         Drt("CveVenta") = gvr.DataKey("CveVenta")
                         Drt("Importe") = gvr.FCTextBox(String.Format("TxtAnticipo{0}", gvr.RowIndex)).Text
                         Drt("FolioFiscal") = gvr.DataKey("FolioFiscal")
+                        Drt("Folio") = gvr.DataKey("Folio")
                         DtVentasNC.Rows.Add(Drt)
                     End If
                 Next
@@ -24006,12 +24009,14 @@ Partial Class Ventas
         DtVentasNC.Columns.Add(New DataColumn With {.ColumnName = "TC", .DataType = GetType(Decimal), .DefaultValue = 1})
         DtVentasNC.Columns.Add(New DataColumn With {.ColumnName = "TCCambioValuacion", .DataType = GetType(Decimal), .DefaultValue = 1})
         DtVentasNC.Columns.Add(New DataColumn With {.ColumnName = "CveEstatusFactura", .DataType = GetType(Integer), .DefaultValue = -1})
+        DtVentasNC.Columns.Add(New DataColumn With {.ColumnName = "Folio", .DataType = GetType(String), .DefaultValue = ""})
     End Sub
 
     Private Sub CargaNCDT(pCveVenta As Integer, Importe As Decimal, Optional FolioFiscal As String = "", Optional NuevaFactura As Integer = -1, Optional ByRef ObjVentas As ClsVentas = Nothing, Optional TC As Decimal = 1)
         If (pCveVenta > 0 AndAlso DdlTipoComprobante.SelectedValue.Contiene("Egs")) OrElse (pCveVenta > 0 AndAlso NuevaFactura = 1) Then
             Dim CveEstatusFacturaNC As Integer = -1
             Dim TCCambioValuacion As Decimal = 1
+            Dim Folio As String = ""
             If FolioFiscal = "" Then
                 Dim ObjVentasAplicar As ClsVentas
                 If ObjVentas IsNot Nothing Then
@@ -24020,6 +24025,7 @@ Partial Class Ventas
                     ObjVentasAplicar = New ClsVentas
                 End If
                 If ObjVentasAplicar.GetVenta(pCveVenta, UsuarioActual.CveEmpresa) AndAlso ObjVentasAplicar.DtResultados.Rows.Count > 0 Then
+                    Folio = ObjVentasAplicar.DtResultados.FiltroPrimeroValor("SerieFolio").ToString()
                     FolioFiscal = ObjVentasAplicar.DtResultados.FiltroPrimeroValor("FolioFiscal").ToString()
                     TC = ObjVentasAplicar.DtResultados.FiltroPrimeroValor("TipoCambio").ToString().ToDecimal()
                     TCCambioValuacion = ObjVentasAplicar.DtResultados.FiltroPrimeroValor("TipoCambioValuacion").ToString().ToDecimal()
@@ -24040,6 +24046,7 @@ Partial Class Ventas
             Dr("TC") = TC
             Dr("TCCambioValuacion") = TCCambioValuacion
             Dr("CveEstatusFactura") = CveEstatusFacturaNC
+            Dr("Folio") = Folio
 
             DtVentasNC.Rows.Add(Dr)
         End If