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")