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

Rep Fluctuación Cambiaria: Exportar Excel con Gembox

Browse Source
This commit is contained in:
MLopez
2022-11-11 17:29:50 -07:00
parent a2a1773fe6
commit d9e8e4907c
2 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Bancos/FluctuacionCambiaria.aspx
View File

@@ -1,4 +1,4 @@
<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="FluctuacionCambiaria.aspx.vb" Inherits="Bancos_FluctuacionCambiaria" %> <%@ Page Title="" Language="VB" EnableEventValidation="false" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="FluctuacionCambiaria.aspx.vb" Inherits="Bancos_FluctuacionCambiaria" %>
<asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server"> <asp:Content ID="Content1" ContentPlaceHolderID="CP" runat="Server">
</asp:Content> </asp:Content>

18
Bancos/FluctuacionCambiaria.aspx.vb
View File

@@ -1287,23 +1287,23 @@ Partial Class Bancos_FluctuacionCambiaria
Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
If (T.ActiveTabIndex = 0) Then If (T.ActiveTabIndex = 0) Then
'GvProveedores.ExportToExcelGembox("FluctuacionCambiariaProveedores_" & Now.ToShortDateString) 'GvProveedores.ExportToExcelGembox("FluctuacionCambiariaProveedores_" & Now.ToShortDateString)
ExportToExcelGembox(GvProveedores, "FluctuacionCambiariaProveedores_" & Now.ToShortDateString, UsuarioActual, "Fluctuaciones cambairasi proveedor") GvProveedores.ExportToExcelGembox("FCProveedores_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Proveedores")
ElseIf (T.ActiveTabIndex = 1) Then ElseIf (T.ActiveTabIndex = 1) Then
GvProveedoresAnt.ExportToExcel("FluctuacionCambiariaProveedoresAnt_" & Now.ToShortDateString) GvProveedoresAnt.ExportToExcelGembox("FCProveedoresAnt_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Proveedores Anticipos")
ElseIf (T.ActiveTabIndex = 2) Then ElseIf (T.ActiveTabIndex = 2) Then
GvVentas.ExportToExcel("FluctuacionCambiariaClientes_" & Now.ToShortDateString) GvVentas.ExportToExcelGembox("FCClientes_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Clientes")
ElseIf (T.ActiveTabIndex = 3) Then ElseIf (T.ActiveTabIndex = 3) Then
GvClientesAnt.ExportToExcel("FluctuacionCambiariaClientesAnt_" & Now.ToShortDateString) GvClientesAnt.ExportToExcelGembox("FCClientesAnt_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Clientes Anticipos")
ElseIf (T.ActiveTabIndex = 4) Then ElseIf (T.ActiveTabIndex = 4) Then
GvAcreedores.ExportToExcel("FluctuacionCambiariaComprasAcreedores_" & Now.ToShortDateString) GvAcreedores.ExportToExcelGembox("FCComprasAcreedores_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Compras Acreedores")
ElseIf (T.ActiveTabIndex = 5) Then ElseIf (T.ActiveTabIndex = 5) Then
GvAcreedoresAnt.ExportToExcel("FluctuacionCambiariaAcreedoresAnt_" & Now.ToShortDateString) GvAcreedoresAnt.ExportToExcelGembox("FCAcreedoresAnt_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Acreedores Anticipos")
ElseIf (T.ActiveTabIndex = 6) Then ElseIf (T.ActiveTabIndex = 6) Then
GvCuentas.ExportToExcel("FluctuacionCambiariaBancos_" & Now.ToShortDateString) GvCuentas.ExportToExcelGembox("FCBancos_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Bancos")
ElseIf (T.ActiveTabIndex = 7) Then ElseIf (T.ActiveTabIndex = 7) Then
GvFiliales.ExportToExcel("FluctuacionCambiariaFilial_" & Now.ToShortDateString) GvFiliales.ExportToExcelGembox("FCFilial_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Filiales")
ElseIf (T.ActiveTabIndex = 8) Then ElseIf (T.ActiveTabIndex = 8) Then
GvDeudores.ExportToExcel("FluctuacionCambiariaDeudores_" & Now.ToShortDateString) GvDeudores.ExportToExcelGembox("FCDeudores_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Deudores")
End If End If
' ImprimirReportePdf("Excel") ' ImprimirReportePdf("Excel")