From 6db3717345d6b3ff5ec2dc895324c896ef3d1051 Mon Sep 17 00:00:00 2001 From: rrene Date: Fri, 17 May 2024 15:23:10 -0700 Subject: [PATCH] =?UTF-8?q?--=20mejora=20en=20descarga=20de=20regenereaci?= =?UTF-8?q?=C3=B3n=20de=20txt,=20cuando=20es=20=20la=20regeneraci=C3=B3n?= =?UTF-8?q?=20mas=20abajo=20del=20listado?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/PagoElectronicoGrupos.aspx.vb | 14 ++++---------- 1 file changed, 4 insertions(+), 10 deletions(-) diff --git a/Bancos/PagoElectronicoGrupos.aspx.vb b/Bancos/PagoElectronicoGrupos.aspx.vb index f3cac6682..fae2d1f41 100644 --- a/Bancos/PagoElectronicoGrupos.aspx.vb +++ b/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 "