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

2
Bancos/PagoElectronicoGrupos.aspx
View File

@@ -579,7 +579,7 @@
</div> </div>
<asp:GridView ID="GvEnviadas" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros enviados" ToolTip="Tabla de pagos electronicos" <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"> OnRowDataBound="GvEnviadas_RowDataBound" CssClass="table table-striped table-hover Widthall ScrollAD" data-heigth="350px" data-freezerows="1" Style="text-align: center;" GridLines="None">
<Columns> <Columns>
<asp:BoundField DataField="Fecha" HeaderText="Fecha Envio" DataFormatString="{0:d}" /> <asp:BoundField DataField="Fecha" HeaderText="Fecha Envio" DataFormatString="{0:d}" />

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 GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
Dim CveBLE = CType(sender, LinkButton).CommandArgument.ToEntero 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 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(DdlCuentaEnviados.SelectedValue.ToEntero, CveBLE, DdlTipoGeneracionEnviados.SelectedValue, PorGrupos:=True) Then If ObjBancos.GetLayoutPagos(Cvecuenta, CveBLE, TipoRegenrar, PorGrupos:=True) Then
DtRegenerar = ObjBancos.DtResultados DtRegenerar = ObjBancos.DtResultados
Else Else
DtRegenerar = Nothing DtRegenerar = Nothing
@@ -2538,6 +2551,8 @@ Partial Class Bancos_PagoElectronicoGrupos
Protected Sub ImgUpload_Click(sender As Object, e As EventArgs) Protected Sub ImgUpload_Click(sender As Object, e As EventArgs)
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow) Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
CveIEPagoActual = GvRow.DataKey("CveIE").ToEntero CveIEPagoActual = GvRow.DataKey("CveIE").ToEntero
' HFComprobanteActual = GvRow.FCHiddenField("HFComprobante") ' HFComprobanteActual = GvRow.FCHiddenField("HFComprobante")