From 432763c9e0cdef605124fb88448a87c9c3349e01 Mon Sep 17 00:00:00 2001
From: Oscar Irigoyen <rakcsle@outlook.com>
Date: Wed, 19 Oct 2022 17:10:28 -0700
Subject: [PATCH] =?UTF-8?q?Pago=20electronico=20por=20grupos=20regeneraci?=
 =?UTF-8?q?=C3=B3n,=20correcion?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Bancos/PagoElectronicoGrupos.aspx    |  2 +-
 Bancos/PagoElectronicoGrupos.aspx.vb | 17 ++++++++++++++++-
 2 files changed, 17 insertions(+), 2 deletions(-)

diff --git a/Bancos/PagoElectronicoGrupos.aspx b/Bancos/PagoElectronicoGrupos.aspx
index 7d3a69972..ace3d67ef 100644
--- a/Bancos/PagoElectronicoGrupos.aspx
+++ b/Bancos/PagoElectronicoGrupos.aspx
@@ -579,7 +579,7 @@
                                </div>                                        
                                         
                                         <asp:GridView ID="GvEnviadas" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros enviados" ToolTip="Tabla de pagos electronicos" 
-                                            DataKeyNames="CveLayoutEnvioDetalle,CveIE,CveLayoutEnvio,CveProveedor,Archivo,Estatus,NotificarA"
+                                            DataKeyNames="CveLayoutEnvioDetalle,CveIE,CveLayoutEnvio,CveProveedor,Archivo,Estatus,NotificarA,Tipo,CveCuenta"
                                             OnRowDataBound="GvEnviadas_RowDataBound" CssClass="table table-striped table-hover Widthall ScrollAD" data-heigth="350px" data-freezerows="1" Style="text-align: center;" GridLines="None">
                                             <Columns>
                                                 <asp:BoundField DataField="Fecha" HeaderText="Fecha Envio" DataFormatString="{0:d}" />
diff --git a/Bancos/PagoElectronicoGrupos.aspx.vb b/Bancos/PagoElectronicoGrupos.aspx.vb
index c7cedb378..165f7b701 100644
--- a/Bancos/PagoElectronicoGrupos.aspx.vb
+++ b/Bancos/PagoElectronicoGrupos.aspx.vb
@@ -650,13 +650,26 @@ Partial Class Bancos_PagoElectronicoGrupos
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
 
+
         Dim CveBLE = CType(sender, LinkButton).CommandArgument.ToEntero
+        Dim Cvecuenta As Integer = GvRow.DataKey("CveCuenta").ToEntero
+        Dim CveLayoutEnvio As Integer = GvRow.DataKey("CveLayoutEnvio").ToEntero
+
+        Dim TipoRegenrar As String = ""
+
+        If DTEnviadas IsNot Nothing Then
+            TipoRegenrar = DTEnviadas.FiltroPrimeroValor("Tipo", "LEN(Tipo) > 0")
+            TipoRegenrar = If(TipoRegenrar.Contains("ANT"), "ANT", TipoRegenrar)
+        End If
+
+
+
         Dim DtRegenerar As New DataTable
 
         Dim NombreDelArchivo As String = GvRow.DataKey("Archivo")
 
         Dim ObjBancos As New ClsBancos
-        If ObjBancos.GetLayoutPagos(DdlCuentaEnviados.SelectedValue.ToEntero, CveBLE, DdlTipoGeneracionEnviados.SelectedValue, PorGrupos:=True) Then
+        If ObjBancos.GetLayoutPagos(Cvecuenta, CveBLE, TipoRegenrar, PorGrupos:=True) Then
             DtRegenerar = ObjBancos.DtResultados
         Else
             DtRegenerar = Nothing
@@ -2538,6 +2551,8 @@ Partial Class Bancos_PagoElectronicoGrupos
     Protected Sub ImgUpload_Click(sender As Object, e As EventArgs)
 
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+
         CveIEPagoActual = GvRow.DataKey("CveIE").ToEntero
 
         ' HFComprobanteActual = GvRow.FCHiddenField("HFComprobante")