From 67e959deadd13ddf542a329d349e0507d5ae9021 Mon Sep 17 00:00:00 2001 From: janeth arvizu Date: Tue, 3 Sep 2019 10:37:48 -0700 Subject: [PATCH] =?UTF-8?q?Se=20agreg=C3=B3=20formato=20para=20exportar=20?= =?UTF-8?q?a=20Excel=20y=20PDF?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Bancos/CatBancos.aspx | 8 ++- Bancos/CatBancos.aspx.vb | 115 +++++++++++++++++++++----------- Bancos/CuentasBancarias.aspx | 45 +++++++------ Bancos/CuentasBancarias.aspx.vb | 38 ++++++++++- 4 files changed, 147 insertions(+), 59 deletions(-) diff --git a/Bancos/CatBancos.aspx b/Bancos/CatBancos.aspx index b0ce3dd00..3fa839955 100644 --- a/Bancos/CatBancos.aspx +++ b/Bancos/CatBancos.aspx @@ -6,6 +6,12 @@ +
  • + PDF +
    • +
  • + Excel +
    • Catálogo de Bancos @@ -15,7 +21,7 @@ - +
    diff --git a/Bancos/CatBancos.aspx.vb b/Bancos/CatBancos.aspx.vb index 1319d2070..9a57ab193 100644 --- a/Bancos/CatBancos.aspx.vb +++ b/Bancos/CatBancos.aspx.vb @@ -4,54 +4,67 @@ Option Strict On Imports System.Data Imports System.Linq Imports Extensiones +Imports Microsoft.Reporting.WebForms Partial Class Bancos_CatBancos - Inherits ClsPaginas + Inherits ClsPaginas - Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load - If Not Page.IsPostBack Then - ViewState("Orden") = "" - CargaDatos() - End If - End Sub + Private Property DtBan As DataTable + Get + DtBan = DirectCast(ViewState("DtBan"), DataTable) + End Get - Public Sub CargaDatos() - Dim ObjBancos As New ClsBancos - If ObjBancos.GetBancos() Then - ViewState("DTBancos") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTBancos = ObjBancos.DtResultados - Else - Me.GvDatos.DataSource = Nothing - End If + Set(ByVal value As DataTable) + ViewState("DtBan") = value + End Set + End Property - ObjBancos.Dispose() + Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load + If Not Page.IsPostBack Then + ViewState("Orden") = "" + CargaDatos() + End If + End Sub - If ViewState("Orden").ToString() <> String.Empty Then - CargaGrid(ViewState("Orden").ToString()) - Else - CargaGrid("") - End If - End Sub + Public Sub CargaDatos() + Dim ObjBancos As New ClsBancos + If ObjBancos.GetBancos() Then + ViewState("DTBancos") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DtBan = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + GlobalDTBancos = ObjBancos.DtResultados + Else + Me.GvDatos.DataSource = Nothing + End If - Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click - Dim ObjBancos As New ClsBancos - If ObjBancos.AddBancos(TxtBanco.Text.Trim, TxtEjecutivo.Text.Trim, TxtTelefono.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then - TxtBanco.Text = "" - TxtEjecutivo.Text = "" + ObjBancos.Dispose() + + If ViewState("Orden").ToString() <> String.Empty Then + CargaGrid(ViewState("Orden").ToString()) + Else + CargaGrid("") + End If + End Sub + + Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click + Dim ObjBancos As New ClsBancos + If ObjBancos.AddBancos(TxtBanco.Text.Trim, TxtEjecutivo.Text.Trim, TxtTelefono.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then + TxtBanco.Text = "" + TxtEjecutivo.Text = "" TxtTelefono.Text = "" Alert("El nuevo Banco se guardó correctamente.", TipoMensaje.MsgInformacion) - UpTitulos.Update() - ViewState("DTBancos") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - GlobalDTBancos = ObjBancos.DtResultados + UpTitulos.Update() + ViewState("DTBancos") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DtBan = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + GlobalDTBancos = ObjBancos.DtResultados - If ViewState("Orden").ToString() <> String.Empty Then - CargaGrid(ViewState("Orden").ToString()) - Else - CargaGrid("") - End If - End If - ObjBancos.Dispose() - End Sub + If ViewState("Orden").ToString() <> String.Empty Then + CargaGrid(ViewState("Orden").ToString()) + Else + CargaGrid("") + End If + End If + ObjBancos.Dispose() + End Sub #Region "G V D A T O S" Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound @@ -80,6 +93,7 @@ Partial Class Bancos_CatBancos If ObjBancos.RemoveBancos(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then GvDatos.EditIndex = -1 ViewState("DTBancos") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DtBan = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) GlobalDTBancos = ObjBancos.DtResultados Alert("El Banco se eliminó correctamente.", TipoMensaje.MsgInformacion) End If @@ -116,6 +130,7 @@ Partial Class Bancos_CatBancos If ObjBancos.UpdateBancos(Banco, Ejecutivo, Telefono, Estatus, CveBanco) Then GvDatos.EditIndex = -1 ViewState("DTBancos") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DtBan = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) GlobalDTBancos = ObjBancos.DtResultados Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) End If @@ -178,4 +193,28 @@ Partial Class Bancos_CatBancos UpDatos.Update() End Sub #End Region + Protected Sub LbPDF_Click(sender As Object, e As EventArgs) + Imprime("PDF") + End Sub + Protected Sub LbExcel_Click(sender As Object, e As EventArgs) + Imprime("Excel") + End Sub + Private Sub Imprime(Formato As String) + + If DtBan IsNot Nothing AndAlso DtBan.Rows.Count > 0 Then + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim params As New List(Of ReportParameter) + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + ImprimirPDF("Empresas/Grales/Formatos/RepBancos.rdlc", DtBan, params, "Reporte Bancos", Formato) + Else + Alert("No hay información para mostrar.", TipoMensaje.MsgAdvertencia) + End If + End Sub End Class diff --git a/Bancos/CuentasBancarias.aspx b/Bancos/CuentasBancarias.aspx index 54c0bf16e..af859f8e3 100644 --- a/Bancos/CuentasBancarias.aspx +++ b/Bancos/CuentasBancarias.aspx @@ -6,14 +6,17 @@ - - -
  • - Agregar Cuenta Bancaria - <%-- Nuevo Número de Cuenta Bancaria--%> -
    • -     -     + +
  • + Agregar Cuenta Bancaria + <%-- Nuevo Número de Cuenta Bancaria--%> +
    • +
  • + PDF +
    • +
  • + Excel +
    • Catálogo de Número de Cuentas Bancarias / Cajas Chicas. @@ -23,10 +26,10 @@ - + - - + + Banco   @@ -35,7 +38,7 @@   - + CLABE   @@ -43,26 +46,30 @@ Moneda   - + Folio Inicial - - + + + Estatus - + + Fecha - + + - + Usuario - + + diff --git a/Bancos/CuentasBancarias.aspx.vb b/Bancos/CuentasBancarias.aspx.vb index 22baa958e..6d32e50af 100644 --- a/Bancos/CuentasBancarias.aspx.vb +++ b/Bancos/CuentasBancarias.aspx.vb @@ -4,9 +4,21 @@ Option Strict On Imports System.Data Imports System.Linq Imports Extensiones +Imports Microsoft.Reporting.WebForms Partial Class Bancos_CuentasBancarias Inherits ClsPaginas + + Private Property DtBan As DataTable + Get + DtBan = DirectCast(ViewState("DtBan"), DataTable) + End Get + + Set(ByVal value As DataTable) + ViewState("DtBan") = value + End Set + End Property + 'Configuración Private ReadOnly Property CveCuenta As Integer Get @@ -22,7 +34,7 @@ Partial Class Bancos_CuentasBancarias Dim ObjBancos As New ClsBancos If ObjBancos.GetBancosCuentas(-1) Then ViewState("DTBancosCuentas") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) - + DtBan = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) Else Me.GvDatos.DataSource = Nothing End If @@ -53,6 +65,7 @@ Partial Class Bancos_CuentasBancarias If ObjBancos.RemoveBancosCuentas(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then GvDatos.EditIndex = -1 ViewState("DTBancosCuentas") = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) + DtBan = ObjBancos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) If ObjBancos.GetBancosCuentasUsuarios(-1) Then GlobalDTBancosCuentas(-1) = ObjBancos.DtResultados End If @@ -126,4 +139,27 @@ Partial Class Bancos_CuentasBancarias GvDatos.DataBind() UpDatos.Update() End Sub + Protected Sub LbPDF_Click(sender As Object, e As EventArgs) + Imprime("PDF") + End Sub + Protected Sub LbExcel_Click(sender As Object, e As EventArgs) + Imprime("Excel") + End Sub + Private Sub Imprime(Formato As String) + If DtBan IsNot Nothing AndAlso DtBan.Rows.Count > 0 Then + Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) + Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa) + Dim params As New List(Of ReportParameter) + params.Add(New ReportParameter("NombreEmpresa", UsuarioActual.Empresa.Empresa)) + params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre)) + If Imagen.Exists Then + params.Add(New ReportParameter("LogoPath", logouri)) + Else + params.Add(New ReportParameter("LogoPath", "")) + End If + ImprimirPDF("Empresas/Grales/Formatos/CuentasBancarias.rdlc", DtBan, params, "Reporte de Cuentas Bancarias", Formato) + Else + Alert("No hay información para mostrar.", TipoMensaje.MsgAdvertencia) + End If + End Sub End Class