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

Pago electronico por grupos regeneración, correcion

Browse Source
This commit is contained in:
Oscar Irigoyen
2022-10-19 17:10:28 -07:00
parent 6b0b16ed61
commit 432763c9e0
2 changed files with 17 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Bancos/PagoElectronicoGrupos.aspx.vb
View File

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