-- mejora en descarga de regenereación de txt, cuando es la regeneración mas abajo del listado

Bancos/PagoElectronicoGrupos.aspx.vb

@@ -654,21 +654,18 @@ Partial Class Bancos_PagoElectronicoGrupos
         Dim Cvecuenta As Integer = GvRow.DataKey("CveCuenta").ToEntero
         Dim CveLayoutEnvio As Integer = GvRow.DataKey("CveLayoutEnvio").ToEntero
 
-        Dim TipoRegenrar As String = ""
+        Dim TipoRegenerar As String = ""
 
         If DTEnviadas IsNot Nothing Then
-            TipoRegenrar = DTEnviadas.FiltroPrimeroValor("Tipo", "LEN(Tipo) > 0")
-            TipoRegenrar = If(TipoRegenrar.Contains("ANT"), "ANT", TipoRegenrar)
+            TipoRegenerar = DTEnviadas.FiltroPrimeroValor("Tipo", $"LEN(Tipo) > 0 and CveLayoutEnvio = {CveLayoutEnvio}")
+            TipoRegenerar = If(TipoRegenerar.Contains("ANT"), "ANT", TipoRegenerar)
         End If
 
-
-
         Dim DtRegenerar As New DataTable
-
         Dim NombreDelArchivo As String = GvRow.DataKey("Archivo")
 
         Dim ObjBancos As New ClsBancos
-        If ObjBancos.GetLayoutPagos(Cvecuenta, CveBLE, TipoRegenrar, PorGrupos:=True) Then
+        If ObjBancos.GetLayoutPagos(Cvecuenta, CveBLE, TipoRegenerar, PorGrupos:=True) Then
             DtRegenerar = ObjBancos.DtResultados
         Else
             DtRegenerar = Nothing
@@ -681,13 +678,10 @@ Partial Class Bancos_PagoElectronicoGrupos
             Alert("Ocurrió un error al obtener los datos para generar el archivo. Por favor vuelva a intentar.", TipoMensaje.MsgError)
         End If
 
-
     End Sub
 
 #End Region
 
-
-
     'RECARGA DATOS
 #Region "   RECARGA DATOS   "