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

Rep Fluctuación Cambiaria: se agrega descarga en Excel de GridViews

Browse Source
This commit is contained in:
MLopez
2022-11-11 10:50:35 -07:00
parent fd112b7425
commit ee697fba14
2 changed files with 77 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
Bancos/FluctuacionCambiaria.aspx.vb
View File

@@ -1283,5 +1283,31 @@ Partial Class Bancos_FluctuacionCambiaria
Banco.Dispose()
End Sub
#Region " EXPORTA EXCEL "
Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
If (T.ActiveTabIndex = 0) Then
GvProveedores.ExportToExcel("FluctuacionCambiariaProveedores_" & Now.ToShortDateString)
ElseIf (T.ActiveTabIndex = 1) Then
GvProveedoresAnt.ExportToExcel("FluctuacionCambiariaProveedoresAnt_" & Now.ToShortDateString)
ElseIf (T.ActiveTabIndex = 2) Then
GvVentas.ExportToExcel("FluctuacionCambiariaClientes_" & Now.ToShortDateString)
ElseIf (T.ActiveTabIndex = 3) Then
GvClientesAnt.ExportToExcel("FluctuacionCambiariaClientesAnt_" & Now.ToShortDateString)
ElseIf (T.ActiveTabIndex = 4) Then
GvAcreedores.ExportToExcel("FluctuacionCambiariaComprasAcreedores_" & Now.ToShortDateString)
ElseIf (T.ActiveTabIndex = 5) Then
GvAcreedoresAnt.ExportToExcel("FluctuacionCambiariaAcreedoresAnt_" & Now.ToShortDateString)
ElseIf (T.ActiveTabIndex = 6) Then
GvCuentas.ExportToExcel("FluctuacionCambiariaBancos_" & Now.ToShortDateString)
ElseIf (T.ActiveTabIndex = 7) Then
GvFiliales.ExportToExcel("FluctuacionCambiariaFilial_" & Now.ToShortDateString)
ElseIf (T.ActiveTabIndex = 8) Then
GvDeudores.ExportToExcel("FluctuacionCambiariaDeudores_" & Now.ToShortDateString)
End If
' ImprimirReportePdf("Excel")
End Sub
#End Region
End Class