From 29bade4cf7d7ec0607245c85aea241d9100687ee Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 14 Dec 2023 17:47:11 -0700 Subject: [PATCH] - excel personalizado --- CxC/RepCxC.aspx | 5 +++ CxC/RepCxC.aspx.vb | 90 ++++++++++++++++++++++++++++++++++------------ 2 files changed, 73 insertions(+), 22 deletions(-) diff --git a/CxC/RepCxC.aspx b/CxC/RepCxC.aspx index 4db930e6d..15630a45b 100644 --- a/CxC/RepCxC.aspx +++ b/CxC/RepCxC.aspx @@ -62,6 +62,9 @@
  • Excel
    • +
  • + Excel Personalizado +
  • Personalizar Columnas
    • @@ -85,7 +88,9 @@ + + diff --git a/CxC/RepCxC.aspx.vb b/CxC/RepCxC.aspx.vb index 62b50ca4c..19da2ee10 100644 --- a/CxC/RepCxC.aspx.vb +++ b/CxC/RepCxC.aspx.vb @@ -3,6 +3,7 @@ Option Strict On Imports System.Data Imports System.IO +Imports DocumentFormat.OpenXml.VariantTypes Imports Extensiones Imports Microsoft.Reporting.WebForms @@ -18,8 +19,15 @@ Partial Class RepCxC Set(ByVal value As DataTable) ViewState("DtDatos") = value End Set + End Property + Public Property SePersonalizo() As Integer + Get + Return ViewState("SePersonalizo").ToString.ToEntero + End Get + Set(value As Integer) + ViewState("SePersonalizo") = value + End Set End Property - Private Property DtPersonalizarRango As DataTable Get DtPersonalizarRango = DirectCast(ViewState("DtPersonalizarRango"), DataTable) @@ -96,6 +104,7 @@ Partial Class RepCxC If Not IsPostBack Then Index = 0 Modalidad = "" + SePersonalizo = 0 CargaCombos() CargaGvPersonalizarRangoColumnas() ProcesaRequest() @@ -127,7 +136,6 @@ Partial Class RepCxC itemTipoDocto.Selected = (tipoDocto.ToUpper = itemTipoDocto.Value.ToUpper) Next Next - End If If Request("CveMoneda") IsNot Nothing AndAlso Request("CveMoneda").ToEntero <> 0 Then @@ -138,7 +146,6 @@ Partial Class RepCxC DdlSubProyecto.SelectedValueExist(Request("CveSubProyecto").ToEntero) End If - End Sub Private Sub CargaCombos() @@ -202,10 +209,9 @@ Partial Class RepCxC DdlContrato.DataSource = ObjContratos.DtResultados End If divContrato.Visible = True - divContrato1.visible = True + divContrato1.Visible = True ObjContratos.Dispose() DdlContrato.DataBind() - End Sub Private Sub CargaDatos() @@ -229,7 +235,7 @@ Partial Class RepCxC CveCobranzaEstatus = DdlCobranzaEstatus.SelectedValue.ToEntero CveClienteClasificacion = DdlClienteClasificacion.SelectedValue.ToEntero Dim CveCliente As Integer = If(DdlClientesWS.SelectedValue.ToEntero > 0, DdlClientesWS.SelectedValue.ToEntero, -1) - Dim AplicaAnticipos As Integer = If(ChkAnticipos.checked, 1, 0) + Dim AplicaAnticipos As Integer = If(ChkAnticipos.Checked, 1, 0) If ObjMovtos.GetCxC(FechaI, FechaF, CveCliente, DdlSubProyecto.SelectedValue.ToEntero, DdlVendedor.SelectedValue.ToEntero, DdlUsuario.SelectedValue.ToEntero, -1, @@ -645,6 +651,7 @@ Partial Class RepCxC GvDatos.Columns(16).Visible = True GvDatos.Columns(17).Visible = True GvDatos.Columns(18).Visible = True + SePersonalizo = 1 Else GvDatos.Columns(14).Visible = False GvDatos.Columns(15).Visible = False @@ -653,15 +660,30 @@ Partial Class RepCxC GvDatos.Columns(18).Visible = False End If - GvDatos.Columns(1).Visible = ChkCodigoCl.Checked - GvDatos.Columns(2).Visible = ChkNombreCorto.Checked - GvDatos.Columns(19).Visible = ChkSubTotalP.Checked - GvDatos.Columns(20).Visible = ChkIVAP.Checked - GvDatos.Columns(21).Visible = ChkIEPSP.Checked + ActivaColumna(1, ChkCodigoCl.Checked) + ActivaColumna(2, ChkNombreCorto.Checked) + ActivaColumna(19, ChkSubTotalP.Checked) + ActivaColumna(20, ChkIVAP.Checked) + ActivaColumna(21, ChkIEPSP.Checked) + + If SePersonalizo = 1 Then + ImgExcelPersonalizado.Visible = True + Else + ImgExcelPersonalizado.Visible = False + End If UPDatos.Update() End Sub + Private Sub ActivaColumna(Indice As Integer, Activo As Boolean) + + If Activo Then + GvDatos.Columns(Indice).Visible = True + SePersonalizo = 1 + End If + + End Sub + #End Region #Region "IMPRESIONES" @@ -966,12 +988,12 @@ Partial Class RepCxC Dim ObjSMS As New ClsTecnoMovil Dim ObjEventos As New ClsOIEventos - Dim Pesos = 0.0 - Dim Dolares = 0.0 + Dim Pesos As Decimal = 0 + Dim Dolares As Decimal = 0 Dim Telefono As String = "" Dim Mensaje As String = "" Dim StrSaldo As String = "" - Dim Contador = 0 + Dim Contador As Integer = 0 'Dim sw As New System.Diagnostics.Stopwatch() 'sw.Start() @@ -984,8 +1006,8 @@ Partial Class RepCxC Telefono = Dr("CobranzaTelefono").ToString If Telefono.Length = 10 Then - Pesos = If(Dr("CveMoneda").ToString.ToEntero = 1, Dr("Saldo").ToString.ToDouble, 0) - Dolares = If(Dr("CveMoneda").ToString.ToEntero = 2, Dr("Saldo").ToString.ToDouble, 0) + Pesos = If(Dr("CveMoneda").ToString.ToEntero = 1, Dr("Saldo").ToString.ToDecimal, 0) + Dolares = If(Dr("CveMoneda").ToString.ToEntero = 2, Dr("Saldo").ToString.ToDecimal, 0) If Pesos > 0 Then StrSaldo = $" ${Pesos.FormatoNumero} pesos" If Dolares > 0 Then StrSaldo = $" ${Mensaje} ${Dolares.FormatoNumero} dólares" @@ -1019,11 +1041,11 @@ Partial Class RepCxC Protected Sub LBEnviarCorreo_Click(sender As Object, e As EventArgs) Dim ObjEventos As New ClsOIEventos - Dim Pesos = 0.0 - Dim Dolares = 0.0 + Dim Pesos As Decimal = 0 + Dim Dolares As Decimal = 0 Dim Correo As String = "" Dim Mensaje As String = "" - Dim Contador = 0 + Dim Contador As Integer = 0 'Dim sw As New System.Diagnostics.Stopwatch() 'sw.Start() @@ -1035,8 +1057,8 @@ Partial Class RepCxC Correo = Dr("CobranzaCorreo").ToString If Correo.Length > 0 Then - Pesos = If(Dr("CveMoneda").ToString.ToEntero = 1, Dr("Saldo").ToString.ToDouble, 0) - Dolares = If(Dr("CveMoneda").ToString.ToEntero = 2, Dr("Saldo").ToString.ToDouble, 0) + Pesos = If(Dr("CveMoneda").ToString.ToEntero = 1, Dr("Saldo").ToString.ToDecimal, 0) + Dolares = If(Dr("CveMoneda").ToString.ToEntero = 2, Dr("Saldo").ToString.ToDecimal, 0) If Pesos > 0 Then Mensaje = $" ${Pesos.FormatoNumero} pesos" If Dolares > 0 Then Mensaje = $" {Mensaje} ${Dolares.FormatoNumero} dólares" @@ -1346,7 +1368,7 @@ Partial Class RepCxC Next Dim Dr1 As DataRow = DtGrafica.Rows(0) - For Cont = 1 To 8 + For Cont As Integer = 1 To 8 If Dr1($"TC{Cont}").ToString.ToEntero = Tipo And Not Dr1($"NomC{Cont}").ToString = "Total" Then Top = 1 Dim Row As DataRow = Dt5.NewRow() @@ -1379,6 +1401,8 @@ Partial Class RepCxC CambioGrafica(DdlVer.SelectedValue.ToEntero) End Sub + Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control) + End Sub #End Region @@ -1399,5 +1423,27 @@ Partial Class RepCxC #End Region + Private Sub ImgExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles ImgExcelPersonalizado.Click + + Dim Cliente As String = If(DdlClientesWS.SelectedValue = "-1", "", $" Cliente: {DdlClientesWS.SelectedText}") + Dim Sucursal As String = If(DdlSubProyecto.SelectedValue = "-1", "", $" Sucursal: {DdlSubProyecto.SelectedItem.Text}") + Dim Grupo As String = $" Agrupado Por: {DdlGrupo.SelectedItem.Text}" 'If(DdlGrupo.SelectedValue = "3", "", $" Agrupado Por: {DdlGrupo.SelectedItem.Text}") + Dim TipoDocto As String = If(DdlTipoDocto.GetSelectedText = "", "", $" Documentos: {DdlTipoDocto.GetSelectedText}") + Dim Vendedor As String = If(DdlVendedor.SelectedValue = "-1", "", $" Vendedor: {DdlVendedor.SelectedItem.Text}") + Dim FechaIn As String = If(txtFechaI.Text = "", "", $" Fecha Inicio Docto: {txtFechaI.Text}") + Dim FechaFn As String = If(txtFechaF.Text = "", "", $" Fecha Fin Docto: {txtFechaF.Text}") + Dim FVI As String = If(txtFechaVI.Text = "", "", $" Fecha Venc. Inic.: {txtFechaVI.Text}") + Dim FVF As String = If(txtFechaVF.Text = "", "", $" Fecha Venc. Final: ;{txtFechaVF.Text}") + Dim Registro As String = If(DdlUsuario.SelectedValue = "-1", "", $" Registró: ;{DdlUsuario.SelectedItem.Text}") + Dim Responsable As String = If(DdlResponsable.SelectedValue = "-1", "", $" Responsable: ;{DdlResponsable.SelectedItem.Text}") + Dim CorteA As String = If(txtCorteA.Text = "31/12/2019", "", $"Corte A {txtCorteA.Text}") + Dim ClasificacionCli As String = If(DdlClienteClasificacion.SelectedValue = "-1", "", $" Clasificación Cliente: {DdlClienteClasificacion.SelectedItem.Text}") + + Dim Filtro As String = $"{Cliente}{Sucursal}{Grupo}{Vendedor}{FechaIn}{FechaFn}{Registro}{Responsable}{TipoDocto}{FVI}{FVF}{ClasificacionCli}{CorteA}" + + GvDatos.ExportToExcelGembox("ReporteCxC", UsuarioActual, "REPORTE DE CUENTAS POR COBRAR DEL CLIENTE", DatoTituloExtra:=$"", DatosFiltros:=Filtro) + + + End Sub End Class \ No newline at end of file