AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
rrene
2024-05-17 15:23:10 -07:00
parent b183985045
commit 6db3717345
1 changed files with 4 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Bancos/PagoElectronicoGrupos.aspx.vb
View File

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