- excel personalizado

2023-12-14 17:47:11 -07:00
parent 33aa8021b0
commit 29bade4cf7
2 changed files with 73 additions and 22 deletions
--- a/CxC/RepCxC.aspx
+++ b/CxC/RepCxC.aspx
@@ -62,6 +62,9 @@
            <li>
                <asp:LinkButton ID="ImgExcel" runat="server"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
            </li>
+            <li>
+                <asp:LinkButton ID="ImgExcelPersonalizado" runat="server" Visible="false"> <i class="fa fa-file-excel-o"></i> Excel Personalizado</asp:LinkButton>
+            </li>
            <li>
                <asp:HyperLink NavigateUrl="javascript:;" data-toggle="modal" data-target="#DivPersonalizar" ID="ImgPersonalizar" runat="server"> <i class="fa fa-pencil"></i>  Personalizar Columnas</asp:HyperLink>
            </li>
@@ -85,7 +88,9 @@
            <asp:PostBackTrigger ControlID="ImgExcel" />
            <asp:PostBackTrigger ControlID="ImgImprimir" />
            <asp:PostBackTrigger ControlID="LnkDescargarSegmentos" />
+            <asp:PostBackTrigger ControlID="ImgExcelPersonalizado" />
        </Triggers>
+
    </asp:UpdatePanel>
    <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
        <ContentTemplate>
--- 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", "", $"&emsp;<b>Agrupado Por:</b>&nbsp;{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