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

Merge branch 'master' of http://192.168.10.111:8383/SIG

Browse Source
This commit is contained in:
rrene
2022-11-12 10:06:03 -07:00
parent c3e0bba72e 0b87e255d6
commit 4365fe7c78
1 changed files with 15 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
Bancos/FluctuacionCambiaria.aspx.vb
View File

@@ -1285,25 +1285,31 @@ Partial Class Bancos_FluctuacionCambiaria
#Region " EXPORTA EXCEL "
Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
Dim StrFiltro As New StringBuilder
'If DdlProveedor.SelectedValue.ToEntero > 0 Then
StrFiltro.AppendFormat("{0} ", DdlMes.SelectedItem.ToString)
StrFiltro.AppendFormat("{0} ", DdlAnio.SelectedValue)
StrFiltro.AppendFormat("TC: {0}", LtTipoCambioActual.Text)
If (T.ActiveTabIndex = 0) Then
'GvProveedores.ExportToExcelGembox("FluctuacionCambiariaProveedores_" & Now.ToShortDateString)
GvProveedores.ExportToExcelGembox("FCProveedores_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Proveedores")
GvProveedores.ExportToExcelGembox("Fluctuacion." + T.ActiveTab.HeaderText + "." + DdlMes.SelectedItem.ToString + "." + DdlAnio.SelectedValue, UsuarioActual, "Fluctuación Cambiaria - Proveedores", DatosFiltros:=StrFiltro.ToString())
ElseIf (T.ActiveTabIndex = 1) Then
GvProveedoresAnt.ExportToExcelGembox("FCProveedoresAnt_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Proveedores Anticipos")
GvProveedoresAnt.ExportToExcelGembox("Fluctuacion." + T.ActiveTab.HeaderText + "." + DdlMes.SelectedItem.ToString + "." + DdlAnio.SelectedValue, UsuarioActual, "Fluctuación Cambiaria - Proveedores Anticipos", DatosFiltros:=StrFiltro.ToString())
ElseIf (T.ActiveTabIndex = 2) Then
GvVentas.ExportToExcelGembox("FCClientes_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Clientes")
GvVentas.ExportToExcelGembox("Fluctuacion." + T.ActiveTab.HeaderText + "." + DdlMes.SelectedItem.ToString + "." + DdlAnio.SelectedValue, UsuarioActual, "Fluctuación Cambiaria - Clientes", DatosFiltros:=StrFiltro.ToString())
ElseIf (T.ActiveTabIndex = 3) Then
GvClientesAnt.ExportToExcelGembox("FCClientesAnt_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Clientes Anticipos")
GvClientesAnt.ExportToExcelGembox("Fluctuacion." + T.ActiveTab.HeaderText + "." + DdlMes.SelectedItem.ToString + "." + DdlAnio.SelectedValue, UsuarioActual, "Fluctuación Cambiaria - Clientes Anticipos", DatosFiltros:=StrFiltro.ToString())
ElseIf (T.ActiveTabIndex = 4) Then
GvAcreedores.ExportToExcelGembox("FCComprasAcreedores_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Compras Acreedores")
GvAcreedores.ExportToExcelGembox("Fluctuacion." + T.ActiveTab.HeaderText + "." + DdlMes.SelectedItem.ToString + "." + DdlAnio.SelectedValue, UsuarioActual, "Fluctuación Cambiaria - Compras Acreedores", DatosFiltros:=StrFiltro.ToString())
ElseIf (T.ActiveTabIndex = 5) Then
GvAcreedoresAnt.ExportToExcelGembox("FCAcreedoresAnt_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Acreedores Anticipos")
GvAcreedoresAnt.ExportToExcelGembox("Fluctuacion." + T.ActiveTab.HeaderText + "." + DdlMes.SelectedItem.ToString + "." + DdlAnio.SelectedValue, UsuarioActual, "Fluctuación Cambiaria - Acreedores Anticipos", DatosFiltros:=StrFiltro.ToString())
ElseIf (T.ActiveTabIndex = 6) Then
GvCuentas.ExportToExcelGembox("FCBancos_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Bancos")
GvCuentas.ExportToExcelGembox("Fluctuacion." + T.ActiveTab.HeaderText + "." + DdlMes.SelectedItem.ToString + "." + DdlAnio.SelectedValue, UsuarioActual, "Fluctuación Cambiaria - Bancos", DatosFiltros:=StrFiltro.ToString())
ElseIf (T.ActiveTabIndex = 7) Then
GvFiliales.ExportToExcelGembox("FCFilial_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Filiales")
GvFiliales.ExportToExcelGembox("Fluctuacion." + T.ActiveTab.HeaderText + "." + DdlMes.SelectedItem.ToString + "." + DdlAnio.SelectedValue, UsuarioActual, "Fluctuación Cambiaria - Filiales", DatosFiltros:=StrFiltro.ToString())
ElseIf (T.ActiveTabIndex = 8) Then
GvDeudores.ExportToExcelGembox("FCDeudores_" & Now.ToShortDateString, UsuarioActual, "Fluctuación Cambiaria - Deudores")
GvDeudores.ExportToExcelGembox("Fluctuacion." + T.ActiveTab.HeaderText + "." + DdlMes.SelectedItem.ToString + "." + DdlAnio.SelectedValue, UsuarioActual, "Fluctuación Cambiaria - Deudores", DatosFiltros:=StrFiltro.ToString())
End If
' ImprimirReportePdf("Excel")