From 8cb682edc33ed0e2ed7c243f3b612a28f98aabbd Mon Sep 17 00:00:00 2001 From: MLopez Date: Fri, 11 Nov 2022 19:10:50 -0700 Subject: [PATCH 1/2] =?UTF-8?q?Rep=20Excel=20Fluctuacion=20Cambiaria:=20Mo?= =?UTF-8?q?strar=20filtro=20mes/a=C3=B1o=20y=20TC=20Adicionalmente,=20se?= =?UTF-8?q?=20ajusta=20el=20formato=20del=20nombre=20de=20archivo=20genera?= =?UTF-8?q?do=20siguiendo=20la=20estructura=20Fluctuacion.NombreTAB.Filtro?= =?UTF-8?q?mes.Filtroa=C3=B1o.xlsx?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/FluctuacionCambiaria.aspx.vb | 24 +++++++++++++++--------- 1 file changed, 15 insertions(+), 9 deletions(-) diff --git a/Bancos/FluctuacionCambiaria.aspx.vb b/Bancos/FluctuacionCambiaria.aspx.vb index 5a62e3fc0..8b2fe1754 100644 --- a/Bancos/FluctuacionCambiaria.aspx.vb +++ b/Bancos/FluctuacionCambiaria.aspx.vb @@ -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") From 0b87e255d6cea7953ad30848aba4f86cbcfbc5d6 Mon Sep 17 00:00:00 2001 From: MLopez Date: Fri, 11 Nov 2022 19:30:28 -0700 Subject: [PATCH 2/2] =?UTF-8?q?Delete=20vwd.webinfo=20Estaba=20ya=20en=20.?= =?UTF-8?q?gitignore=20pero=20se=20les=20olvid=C3=B3=20eliminar=20tambi?= =?UTF-8?q?=C3=A9n=20el=20archivo,=20por=20eso=20segu=C3=ADa=20apareciendo?= =?UTF-8?q?=20en=20la=20lista=20de=20commits.=20Es=20un=20archivo=20tempor?= =?UTF-8?q?al=20de=20Visual=20Studio,=20no=20es=20necesario=20en=20el=20so?= =?UTF-8?q?urce=20tree.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- vwd.webinfo | 592 ---------------------------------------------------- 1 file changed, 592 deletions(-) delete mode 100644 vwd.webinfo diff --git a/vwd.webinfo b/vwd.webinfo deleted file mode 100644 index fad050abd..000000000 --- a/vwd.webinfo +++ /dev/null @@ -1,592 +0,0 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - \ No newline at end of file