--activación de personalizar columnas de subtotal,iva,ieps, pendiente

Compras/RepCxP.aspx

@@ -45,20 +45,34 @@
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
-    <li>
-        <asp:LinkButton ID="ImgImprimir" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
-    </li>
-    <li>
-        <asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
-        <%--<asp:ImageButton ID="ImgExcel" runat="server" ImageUrl="/Imagenes/IconoExcel.gif" Width="17px" Height="17px" />--%>
-    </li>
-
-    <li>
-        <asp:HyperLink NavigateUrl="javascript:;" data-toggle="modal" data-target="#DivTipoCambio" ID="ImgTipoCambio" runat="server"> <i class="fa fa-money"></i>  Ver Dlls en pesos</asp:HyperLink>
-    </li>
-    <li>
-        <asp:HyperLink NavigateUrl="javascript:;" data-toggle="modal" data-target="#DivPersonalizarRango" ID="HplPersonalizarRango" runat="server"> <i class="fa fa-pencil"></i>  Personalizar Rango de Columnas</asp:HyperLink>
-    </li>
+     <asp:UpdatePanel runat="server">
+     <ContentTemplate>
+        <li>
+            <asp:LinkButton ID="ImgImprimir" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> PDF</asp:LinkButton>
+        </li>
+        <li>
+            <asp:LinkButton ID="ImgExcel" runat="server"><i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
+            <%--<asp:ImageButton ID="ImgExcel" runat="server" ImageUrl="/Imagenes/IconoExcel.gif" Width="17px" Height="17px" />--%>
+        </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>
+        <li>
+            <asp:HyperLink NavigateUrl="javascript:;" data-toggle="modal" data-target="#DivTipoCambio" ID="ImgTipoCambio" runat="server"> <i class="fa fa-money"></i>  Ver Dlls en pesos</asp:HyperLink>
+        </li>
+        <li>
+            <asp:HyperLink NavigateUrl="javascript:;" data-toggle="modal" data-target="#DivPersonalizarRango" ID="HplPersonalizarRango" runat="server"> <i class="fa fa-pencil"></i>  Personalizar Rango de Columnas</asp:HyperLink>
+        </li>
+         </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="ImgExcel" />
+            <asp:PostBackTrigger ControlID="ImgImprimir" /> 
+            <asp:PostBackTrigger ControlID="ImgExcelPersonalizado" />
+        </Triggers>
+        </asp:UpdatePanel>
     <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
             <li>
@@ -459,6 +473,33 @@
                             <asp:HyperLink CssClass="Texto" ID="LtlPorPorRecuperar" runat="server"></asp:HyperLink>
                         </ItemTemplate>
                     </asp:TemplateField>
+                     <asp:TemplateField Visible="false">
+                     <HeaderTemplate>
+                         SubTotal Pend
+                     </HeaderTemplate>
+                     <ItemTemplate>
+                         <asp:Label CssClass="TextoGris" ID="LtlSubtotalP" runat="server" Text='<%# Eval("SubtotalPendiente", "{0:N2}") %>'></asp:Label>
+                     </ItemTemplate>
+                     <ItemStyle HorizontalAlign="Right" />
+                 </asp:TemplateField>
+                <asp:TemplateField Visible="false">
+                    <HeaderTemplate>
+                        IVA Pend
+                    </HeaderTemplate>
+                    <ItemTemplate>
+                        <asp:Label CssClass="TextoGris" ID="LtlIVAP" runat="server" Text='<%# Eval("IVAPendiente", "{0:N2}") %>'></asp:Label>
+                    </ItemTemplate>
+                    <ItemStyle HorizontalAlign="Right" />
+                </asp:TemplateField>
+                 <asp:TemplateField Visible="false">
+                     <HeaderTemplate>
+                         IEPS Pend
+                     </HeaderTemplate>
+                     <ItemTemplate>
+                         <asp:Label CssClass="TextoGris" ID="LtlIEPSP" runat="server" Text='<%# Eval("IEPSPendiente", "{0:N2}") %>'></asp:Label>
+                     </ItemTemplate>
+                     <ItemStyle HorizontalAlign="Right" />
+                 </asp:TemplateField>
                 </Columns>
                 <RowStyle CssClass="Texto" />
                 <HeaderStyle CssClass="Titulos" />
@@ -467,6 +508,41 @@
         </ContentTemplate>
     </asp:UpdatePanel>
 
+        <asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div id="DivPersonalizar" class="modal fade" role="dialog">
+                <div class="modal-dialog">
+
+                    <!-- Modal content-->
+                    <div class="modal-content">
+                        <div class="modal-header">
+                            <button type="button" class="close" data-dismiss="modal">&times;</button>
+                            <h4 class="modal-title">
+                                <asp:Label ID="LblTitulo1" runat="server" ClientIDMode="Static" Text="Personalizar Columnas"></asp:Label></h4>
+                        </div>
+                        <div class="modal-body">
+                            
+                             <asp:CheckBox ID="ChkSubTotalP" runat="server" Text="" Checked="False" />
+                             <label for="ChkSubTotalP">SubTotal Pendiente </label>
+                            <br />
+                            <asp:CheckBox ID="ChkIVAP" runat="server" Text="" Checked="False" />
+                            <label for="ChkIVAP">IVA Pendiente </label>
+                            <br />
+                            <asp:CheckBox ID="ChkIEPSP" runat="server" Text="IEPS Pendiente" Checked="False" Visible="false" TextAlign="Right" />
+                           
+
+                        </div>
+                        <div class="modal-footer">
+                            <asp:Button ID="BtnPersonalizar" runat="server" Text="Personalizar" class="btn btn-primary" />
+                            <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                        </div>
+                    </div>
+
+                </div>
+            </div>
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
     <asp:UpdatePanel runat="server" ID="UpPersonalizarRango" UpdateMode="Conditional">
         <ContentTemplate>
             <div id="DivPersonalizarRango" class="modal fade" role="dialog">

Compras/RepCxP.aspx.vb

@@ -7,7 +7,14 @@ Partial Class Compras_RepCxP
     Inherits ClsPaginas
 
 #Region "PROPIEDADES"
-
+    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 DtDatos As DataTable
         Get
             DtDatos = DirectCast(ViewState("DtDatos"), DataTable)
@@ -87,9 +94,9 @@ Partial Class Compras_RepCxP
 
 #End Region
 
-
     Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
+            SePersonalizo = 0
             CargaCombos()
             CargaGvPersonalizarRaqngoColumnas()
             ProcesaRequest()
@@ -149,8 +156,6 @@ Partial Class Compras_RepCxP
         DdlUsuarioResponsable.DataSource = GlobalDTUsuarioResponsable(UsuarioActual.CveEmpresa)
         DdlUsuarioResponsable.DataBind()
 
-        'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        'DdlSubProyecto.DataBind()
         CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyectofiltro, divProyecto:=DivProyecto)
 
         DdlProveedoresClasificaciones.DataSource = GlobalDTProveedorClasificacion(UsuarioActual.CveEmpresa)
@@ -179,6 +184,10 @@ Partial Class Compras_RepCxP
         'End If
         'ObjSisUsuarios.Dispose()
 
+        If UsuarioActual.Empresa.Funcionalidad(713) <> "" Then
+            ChkIEPSP.Visible = False
+        End If
+
         For Each lItem As ListItem In DdlGrupo.Items
             If lItem.Value.ToEntero = 9 Then
                 lItem.Text = LblSubProyectofiltro.Text & "-Sucursal"
@@ -1052,7 +1061,7 @@ Partial Class Compras_RepCxP
 
             For Each Dt As DataRow In DtDatos.Rows
 
-                For Cont = 9 To NumCol + 1 Step -1
+                For Cont As Integer = 9 To NumCol + 1 Step -1
 
                     Dt($"Columna{Cont}") = Dt($"Columna{Cont - 1}")
                     Dt($"TC{Cont}") = Dt($"TC{Cont - 1}")
@@ -1093,7 +1102,7 @@ Partial Class Compras_RepCxP
         Dim NombreArchivo As String
         SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
         Dim workbook As New ExcelFile()
-        Dim worksheet = workbook.Worksheets.Add("Cxp")
+        Dim worksheet As ExcelWorksheet = workbook.Worksheets.Add("Cxp")
         Dim Mes(12) As String
         Dim monthNames As String() = {"", "Enero", "Febrero", "Marzo", "Abril", "Mayo", "Junio", "Julio", "Agosto", "Septiembre", "Octubre", "Noviembre", "Diciembre"}
         Mes(0) = monthNames(Dr("NomMes1").ToString.ToDate.Month)
@@ -1161,8 +1170,8 @@ Partial Class Compras_RepCxP
             worksheet.Rows(1).Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(103, 128, 159), SpreadsheetColor.FromArgb(255, 255, 255))
             worksheet.Rows(RowDolares).Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(103, 128, 159), SpreadsheetColor.FromArgb(255, 255, 255))
 
-            Dim columnCount = worksheet.CalculateMaxUsedColumns()
-            For i = 0 To columnCount
+            Dim columnCount As Integer = worksheet.CalculateMaxUsedColumns()
+            For i As Integer = 0 To columnCount
                 worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1))
             Next
 
@@ -1445,8 +1454,8 @@ Partial Class Compras_RepCxP
             TCEspecifico = -1
         End If
 
-        Dim Proyecto = ""
-        Dim Sucursal = ""
+        Dim Proyecto As String = ""
+        Dim Sucursal As String = ""
 
         Select Case UsuarioActual.Empresa.Tipo_CentroCosto
             Case 1
@@ -1463,16 +1472,16 @@ Partial Class Compras_RepCxP
                 Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Sucursal:</b> {DdlSubProyecto.SelectedItem.Text}")
         End Select
 
-        Dim Proveedor = If(DdlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {DdlProveedor.SelectedText}")
-        Dim Clasificacion = If(DdlProveedoresClasificaciones.SelectedValue = "-1", "", $"&emsp;<b>Clasificación:</b> {DdlProveedoresClasificaciones.SelectedItem.Text}")
-        Dim Grupo = If(DdlGrupo.SelectedValue = "-1", "", $"&emsp;<b>Grupo:</b> {DdlGrupo.SelectedItem.Text}")
+        Dim Proveedor As String = If(DdlProveedor.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {DdlProveedor.SelectedText}")
+        Dim Clasificacion As String = If(DdlProveedoresClasificaciones.SelectedValue = "-1", "", $"&emsp;<b>Clasificación:</b> {DdlProveedoresClasificaciones.SelectedItem.Text}")
+        Dim Grupo As String = If(DdlGrupo.SelectedValue = "-1", "", $"&emsp;<b>Grupo:</b> {DdlGrupo.SelectedItem.Text}")
         Dim FechaIn As String = $"&emsp;<b>Fecha Inicio:</b> {txtFechaI.Text}"
         Dim FechaFn As String = $"&emsp;<b>Fecha Fin:</b> {txtFechaF.Text}"
         If txtFechaI.Text = "" Then FechaIn = ""
         If txtFechaF.Text = "" Then FechaFn = ""
-        Dim Registro = If(DdlUsuarioRegistro.SelectedValue = "-1", "", $"&emsp;<b>Registró:</b> {DdlUsuarioRegistro.SelectedItem.Text}")
-        Dim Responsable = If(DdlUsuarioResponsable.SelectedValue = "-1", "", $"&emsp;<b>Responsable:</b> {DdlUsuarioResponsable.SelectedItem.Text}")
-        Dim TipoMoneda = If(RblTipoCambio.SelectedValue = "-1", "", $"&emsp;<b>Tipo Moneda:</b> {RblTipoCambio.SelectedItem.Text}")
+        Dim Registro As String = If(DdlUsuarioRegistro.SelectedValue = "-1", "", $"&emsp;<b>Registró:</b> {DdlUsuarioRegistro.SelectedItem.Text}")
+        Dim Responsable As String = If(DdlUsuarioResponsable.SelectedValue = "-1", "", $"&emsp;<b>Responsable:</b> {DdlUsuarioResponsable.SelectedItem.Text}")
+        Dim TipoMoneda As String = If(RblTipoCambio.SelectedValue = "-1", "", $"&emsp;<b>Tipo Moneda:</b> {RblTipoCambio.SelectedItem.Text}")
 
         Dim FVI As String = $"&emsp;<b>Fecha Venc. Inic.:</b>&nbsp;{txtFechaVI.Text}"
         Dim FVF As String = $"&emsp;<b>Fecha Venc. Final:</b>&nbsp;{txtFechaVF.Text}"
@@ -1893,4 +1902,49 @@ Partial Class Compras_RepCxP
 
 #End Region
 
+#Region "PERSONALIZAR COLUMNAS"
+    Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
+
+        ActivaColumna(23, ChkSubTotalP.Checked)
+        ActivaColumna(24, ChkIVAP.Checked)
+        ActivaColumna(25, ChkIEPSP.Checked)
+
+        If SePersonalizo = 1 Then
+            ImgExcelPersonalizado.Visible = True
+        Else
+            ImgExcelPersonalizado.Visible = False
+        End If
+
+        UPPDatos.Update()
+    End Sub
+
+    Private Sub ActivaColumna(Indice As Integer, Activo As Boolean)
+
+        GvCxP.Columns(Indice).Visible = Activo
+        If Activo Then SePersonalizo = 1
+
+    End Sub
+    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
+    End Sub
+
+    Private Sub ImgExcelPersonalizado_Click(sender As Object, e As EventArgs) Handles ImgExcelPersonalizado.Click
+
+        Dim Cliente As String = If(DdlProveedor.SelectedValue = "-1", "", $" Cliente: {DdlProveedor.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 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 CorteA As String = If(txtCorteA.Text = "31/12/2019", "", $"Corte A {txtCorteA.Text}")
+        Dim ClasificacionProv As String = If(DdlProveedoresClasificaciones.SelectedValue = "-1", "", $" Clasificación Cliente: {DdlProveedoresClasificaciones.SelectedItem.Text}")
+
+        Dim Filtro As String = $"{Cliente}{Sucursal}{Grupo}{FechaIn}{FechaFn}{TipoDocto}{FVI}{FVF}{ClasificacionProv}{CorteA}"
+
+        GvCxP.ExportToExcelGembox("ReporteCxC", UsuarioActual, "REPORTE DE CUENTAS POR PAGAR", DatoTituloExtra:=$"", DatosFiltros:=Filtro)
+
+    End Sub
+
+#End Region
 End Class

Compras/RepCxPDetalle.aspx

@@ -320,7 +320,7 @@
                         <ItemStyle HorizontalAlign="Right" />
                     </asp:TemplateField>
                     <%--5--%>
-                    <asp:TemplateField>
+                    <asp:TemplateField Visible="false">
                         <HeaderTemplate>
                             IEPS
                         </HeaderTemplate>
@@ -342,7 +342,7 @@
                     <%--7--%>
                     <asp:TemplateField>
                         <HeaderTemplate>
-                            Importe Docto
+                            Total
                         </HeaderTemplate>
                         <ItemTemplate>
                             <asp:Literal ID="LtlTotal" runat="server" Text='<%# Eval("Total", "{0:N2}") %>'></asp:Literal>
@@ -435,6 +435,33 @@
                             <asp:Literal ID="LtlDescrip" runat="server" Text='<%# Eval("Descripcion")%>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                         <asp:TemplateField Visible="false">
+                         <HeaderTemplate>
+                             SubTotal Pend
+                         </HeaderTemplate>
+                         <ItemTemplate>
+                             <asp:Label CssClass="TextoGris" ID="LtlSubtotalP" runat="server" Text='<%# Eval("SubtotalPendiente", "{0:N2}") %>'></asp:Label>
+                         </ItemTemplate>
+                         <ItemStyle HorizontalAlign="Right" />
+                     </asp:TemplateField>
+                    <asp:TemplateField Visible="false">
+                        <HeaderTemplate>
+                            IVA Pend
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:Label CssClass="TextoGris" ID="LtlIVAP" runat="server" Text='<%# Eval("IVAPendiente", "{0:N2}") %>'></asp:Label>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Right" />
+                    </asp:TemplateField>
+                     <asp:TemplateField Visible="false">
+                         <HeaderTemplate>
+                             IEPS Pend
+                         </HeaderTemplate>
+                         <ItemTemplate>
+                             <asp:Label CssClass="TextoGris" ID="LtlIEPSP" runat="server" Text='<%# Eval("IEPSPendiente", "{0:N2}") %>'></asp:Label>
+                         </ItemTemplate>
+                         <ItemStyle HorizontalAlign="Right" />
+                     </asp:TemplateField>
                 </Columns>
                 <RowStyle CssClass="Texto" />
                 <HeaderStyle CssClass="Titulos" />
@@ -470,13 +497,13 @@
                                                 <tr>                                                    
                                                     <td style="text-align: left;"><asp:CheckBox ID="ChkTipoDocto" runat="server" Text="Tipo Documento" Checked="true" /></td>
                                                     <td style="text-align: left;"> <asp:CheckBox ID="ChkFolio" runat="server" Text="Folio" Checked="true" /></td>
-                                                    <td style="text-align: left;"><asp:CheckBox ID="ChkSubTotal" runat="server" Text="SubTotal" Checked="false" /></td>
-                                                    <td style="text-align: left;"><asp:CheckBox ID="ChkIVA" runat="server" Text="IVA" Checked="false" /></td>                                                    
+                                                    <td style="text-align: left;"><asp:CheckBox ID="ChkSubTotal" runat="server" Text="SubTotal" Checked="true" /></td>
+                                                    <td style="text-align: left;"><asp:CheckBox ID="ChkIVA" runat="server" Text="IVA" Checked="true" /></td>                                                    
 
                                                 </tr>
                                                 <tr>
                                                     <td style="text-align: left;"><asp:CheckBox ID="ChkIEPS" runat="server" Text="IEPS" Checked="false" /></td>
-                                                    <td style="text-align: left;"><asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento" Checked="false" /></td>
+                                                    <td style="text-align: left;"><asp:CheckBox ID="ChkDescuento" runat="server" Text="Descuento" Checked="true" /></td>
                                                     <td style="text-align: left;"><asp:CheckBox ID="ChkTotal" runat="server" Text="Total" Checked="true" /></td>
                                                     <td style="text-align: left;"><asp:CheckBox ID="ChkMoneda" runat="server" Text="Moneda" Checked="true" /></td>                                                    
 
@@ -486,16 +513,22 @@
                                                     <td style="text-align: left;"> <asp:CheckBox ID="ChkFechaVencimiento" runat="server" Text="Fecha Venc." Checked="true" /></td>                                                    
                                                     <td style="text-align: left;"><asp:CheckBox ID="ChkDiasVencidos" runat="server" Text="Dias Vencidos" Checked="true" /></td>
                                                     <td style="text-align: left;"><asp:CheckBox ID="ChkProveedor" runat="server" Text="Proveedor" Checked="true" /> </td> 
-                                                    
-                                                    
                                                      
                                                 </tr>
                                                 <tr>
-                                                    <td style="text-align: left;"><asp:CheckBox ID="ChkCuenta" runat="server" Text="Cuenta" Checked="true" /></td>                                                    
+                                                    <td style="text-align: left;"><asp:CheckBox ID="ChkCuenta" runat="server" Text="Cuenta" Checked="false" /></td>                                                    
                                                     <td style="text-align: left;"><asp:CheckBox ID="ChkDescripcion" runat="server" Text="Descripción" Checked="false" /></td>
                                                     <td style="text-align: left;"><asp:CheckBox ID="ChkObservaciones" runat="server" Text="Observaciones" Checked="false" /></td>                                                                                                        
                                                 </tr>
-                                              
+                                              <tr>
+                                                    <td style="text-align: left;">
+                                                            <asp:CheckBox ID="ChkSubTotalPend" runat="server" Text="&nbsp;SubTotal Pendiente" Checked="false" /></td>                                                
+                                                    <td style="text-align: left;">
+                                                        <asp:CheckBox ID="ChkIVAPend" runat="server" Text="&nbsp;IVA Pendiente" Checked="false" /></td>
+                                                    <td style="text-align: left;">
+                                                        <asp:CheckBox ID="ChkIEPSPend" runat="server" Text="&nbsp;IEPS Pendiente" Checked="false" Visible="false" /></td>                                           
+                                                    <td style="text-align: left;"></td>
+                                                </tr>
                                             </table>
 
  

Compras/RepCxPDetalle.aspx.vb

@@ -7,10 +7,18 @@ Imports Extensiones
 Imports System.Data
 
 Partial Class RepCxPDetalle
-    Inherits ClsPaginas
-
+    Inherits ClsPaginas
+
 #Region "PROPIEDADES"
-
+
+    Public Property SePersonalizo() As Integer
+        Get
+            Return ViewState("SePersonalizo").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("SePersonalizo") = value
+        End Set
+    End Property
     Public Property CveProveedor() As Integer
         Get
             Return ViewState("CveProveedor").ToString.ToEntero
@@ -211,8 +219,9 @@ Partial Class RepCxPDetalle
     'Private ReadOnly Property ColumnasVisibles As 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
+            SePersonalizo = 0
             ViewState("Opcion") = IfNull(Request("Op"), "S")
-            MostrarOcultarColumnas(False)
+            MostrarOcultarColumnas()
             CargaCombos()
             If Request("Op") IsNot Nothing Then
                 CargaDatos()
@@ -257,10 +266,10 @@ Partial Class RepCxPDetalle
 
         Dim CveSucursal As Integer = IfNull(Request("CveSubProyecto"), -1).ToString.ToEntero
 
-        'DdlSubProyecto.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
-        'DdlSubProyecto.DataBind()
-        'DdlSubProyecto.Items.Insert(1, New ListItem("Sin Sucursal", "0"))
-        'DdlSubProyecto.SelectedValueExist(CveSucursal)
+        If UsuarioActual.Empresa.Funcionalidad(713) <> "" Then
+            ChkIEPS.Visible = True
+            ChkIEPSPend.Visible = True
+        End If
 
         CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyectofiltro)
         DdlSubProyecto.Items.Insert(1, New ListItem("Sin Sucursal", "0"))
@@ -535,109 +544,44 @@ Partial Class RepCxPDetalle
 #End Region
 
 #Region "PERSONALIZAR"
-    Protected Sub MostrarOcultarColumnas(Optional Personalizo As Boolean = True)
+    Protected Sub MostrarOcultarColumnas()
 
-        If ChkTipoDocto.Checked Then
-            GvDatos.Columns(0).Visible = True
-        Else
-            GvDatos.Columns(0).Visible = False
-        End If
+        ActivaColumna(0, ChkTipoDocto.Checked)
+        ActivaColumna(1, ChkFolio.Checked)
+        ActivaColumna(3, ChkSubTotal.Checked)
+        ActivaColumna(4, ChkIVA.Checked)
+        ActivaColumna(5, ChkIEPS.Checked)
+        ActivaColumna(6, ChkDescuento.Checked)
+        ActivaColumna(7, ChkTotal.Checked)
+        ActivaColumna(8, ChkMoneda.Checked)
+        ActivaColumna(9, ChkSaldo.Checked)
+        ActivaColumna(10, ChkFechaVencimiento.Checked)
+        ActivaColumna(11, ChkDiasVencidos.Checked)
+        ActivaColumna(12, ChkProveedor.Checked)
+        ActivaColumna(13, ChkCuenta.Checked)
+        ActivaColumna(14, ChkObservaciones.Checked)
+        ActivaColumna(15, UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0)
+        ActivaColumna(16, ChkDescripcion.Checked)
+        ActivaColumna(17, ChkSubTotalPend.Checked)
+        ActivaColumna(18, ChkIVAPend.Checked)
+        ActivaColumna(19, ChkIEPSPend.Checked)
 
-        If ChkFolio.Checked Then
-            GvDatos.Columns(1).Visible = True
-        Else
-            GvDatos.Columns(1).Visible = False
-        End If
-
-        If ChkSubTotal.Checked Then
-            GvDatos.Columns(3).Visible = True
-        Else
-            GvDatos.Columns(3).Visible = False
-        End If
-
-        If ChkIVA.Checked Then
-            GvDatos.Columns(4).Visible = True
-        Else
-            GvDatos.Columns(4).Visible = False
-        End If
-
-        If ChkIEPS.Checked Then
-            GvDatos.Columns(5).Visible = True
-        Else
-            GvDatos.Columns(5).Visible = False
-        End If
-
-        If ChkDescuento.Checked Then
-            GvDatos.Columns(6).Visible = True
-        Else
-            GvDatos.Columns(6).Visible = False
-        End If
-
-        If ChkTotal.Checked Then
-            GvDatos.Columns(7).Visible = True
-        Else
-            GvDatos.Columns(7).Visible = False
-        End If
-
-        If ChkMoneda.Checked Then
-            GvDatos.Columns(8).Visible = True
-        Else
-            GvDatos.Columns(8).Visible = False
-        End If
-
-        If ChkSaldo.Checked Then
-            GvDatos.Columns(9).Visible = True
-        Else
-            GvDatos.Columns(9).Visible = False
-        End If
-
-        If ChkFechaVencimiento.Checked Then
-            GvDatos.Columns(10).Visible = True
-        Else
-            GvDatos.Columns(10).Visible = False
-        End If
-
-        If ChkDiasVencidos.Checked Then
-            GvDatos.Columns(11).Visible = True
-        Else
-            GvDatos.Columns(11).Visible = False
-        End If
-
-        If ChkProveedor.Checked Then
-            GvDatos.Columns(12).Visible = True
-        Else
-            GvDatos.Columns(12).Visible = False
-        End If
-
-        If ChkCuenta.Checked Then
-            GvDatos.Columns(13).Visible = True
-        Else
-            GvDatos.Columns(13).Visible = False
-        End If
-
-        If ChkObservaciones.Checked Then
-            GvDatos.Columns(14).Visible = True
-        Else
-            GvDatos.Columns(14).Visible = False
-        End If
-
-        If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then
-            GvDatos.Columns(15).Visible = True
-        Else
-            GvDatos.Columns(15).Visible = False
-        End If
-
-        GvDatos.Columns(16).Visible = ChkDescripcion.Checked
-
-        If Personalizo Then
+        If SePersonalizo = 1 Then
             ImgExcelPersonalizado.Visible = True
         Else
             ImgExcelPersonalizado.Visible = False
         End If
-        UPAcciones.Update()
-
+
+        UPAcciones.Update()
         UPDatos.Update()
     End Sub
+
+    Private Sub ActivaColumna(Indice As Integer, Activo As Boolean)
+
+        GvDatos.Columns(Indice).Visible = Activo
+        If Activo Then SePersonalizo = 1
+
+    End Sub
     Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
         MostrarOcultarColumnas()
         RegistraScript("$('#DivPersonalizar').modal('hide');")
@@ -678,7 +622,7 @@ Partial Class RepCxPDetalle
         FechaVF = If(IsDate(txtFechaVF.Text.Trim()), txtFechaVF.Text.Trim(), "-1")
 
         Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+        Dim logouri As String = 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("FechaInicio", FechaI))
@@ -686,18 +630,18 @@ Partial Class RepCxPDetalle
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Nombre))
         params.Add(New ReportParameter("FechaImpresion", NowADS().ToDateTime.ToShortDateString))
         'PARA  REPORTE
-        Dim Sucursal = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Sucursal:</b> {DdlSubProyecto.SelectedItem.Text}")
-        Dim Proveedor = If(DdlProveedores.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {DdlProveedores.SelectedText}")
-        Dim Grupo = If(DdlGrupo.SelectedValue = "-1", "", $"&emsp;<b>Grupo:</b> {DdlGrupo.SelectedItem.Text}")
+        Dim Sucursal As String = If(DdlSubProyecto.SelectedValue = "-1", "", $"&emsp;<b>Sucursal:</b> {DdlSubProyecto.SelectedItem.Text}")
+        Dim Proveedor As String = If(DdlProveedores.SelectedValue = "-1", "", $"&emsp;<b>Proveedor:</b> {DdlProveedores.SelectedText}")
+        Dim Grupo As String = If(DdlGrupo.SelectedValue = "-1", "", $"&emsp;<b>Grupo:</b> {DdlGrupo.SelectedItem.Text}")
         Dim FechaIn As String = If(txtFechaI.Text = "", "", $"&emsp;<b>Fecha Inicio:</b> {txtFechaI.Text}")
         Dim FechaFn As String = If(txtFechaF.Text = "", "", $"&emsp;<b>Fecha Fin:</b> {txtFechaF.Text}")
         Dim FechaInV As String = If(txtFechaVI.Text = "", "", $"&emsp;<b>Fecha Inicio Venc:</b> {txtFechaVI.Text}")
         Dim FechaFnV As String = If(txtFechaVF.Text = "", "", $"&emsp;<b>Fecha Fin Venc:</b> {txtFechaVF.Text}")
-        Dim Responsable = If(DdlUsuarioResponsable.SelectedValue = "-1", "", $"&emsp;<b>Responsable:</b> {DdlUsuarioResponsable.SelectedItem.Text}")
-        Dim Estatus = If(DdlEstatusCompra.SelectedValue = "-1", "", $"&emsp;<b>Estatus:</b> {DdlEstatusCompra.SelectedItem.Text}")
-        Dim Registro = If(DdlUsuarioRegistro.SelectedValue = "-1", "", $"&emsp;<b>Registró:</b> {DdlUsuarioRegistro.SelectedItem.Text}")
-        Dim Clasificacion = If(DdlProveedoresClasificaciones.SelectedValue = "-1", "", $"&emsp;<b>Clasificación:</b> {DdlProveedoresClasificaciones.SelectedItem.Text}")
-        Dim TipoMoneda = If(RblTipoCambio.SelectedValue = "-1", "", $"&emsp;<b>Tipo Moneda:</b> {RblTipoCambio.SelectedItem.Text}")
+        Dim Responsable As String = If(DdlUsuarioResponsable.SelectedValue = "-1", "", $"&emsp;<b>Responsable:</b> {DdlUsuarioResponsable.SelectedItem.Text}")
+        Dim Estatus As String = If(DdlEstatusCompra.SelectedValue = "-1", "", $"&emsp;<b>Estatus:</b> {DdlEstatusCompra.SelectedItem.Text}")
+        Dim Registro As String = If(DdlUsuarioRegistro.SelectedValue = "-1", "", $"&emsp;<b>Registró:</b> {DdlUsuarioRegistro.SelectedItem.Text}")
+        Dim Clasificacion As String = If(DdlProveedoresClasificaciones.SelectedValue = "-1", "", $"&emsp;<b>Clasificación:</b> {DdlProveedoresClasificaciones.SelectedItem.Text}")
+        Dim TipoMoneda As String = If(RblTipoCambio.SelectedValue = "-1", "", $"&emsp;<b>Tipo Moneda:</b> {RblTipoCambio.SelectedItem.Text}")
         params.Add(New ReportParameter("AgrupadoPor", $"{Grupo}{Proveedor}{FechaIn}{FechaFn}{FechaInV}{FechaFnV}{Responsable}{Estatus}{Registro}{Clasificacion}{Sucursal}{TipoMoneda}"))
 
         params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
@@ -721,14 +665,12 @@ Partial Class RepCxPDetalle
         End If
 
         UPFiltros.Update()
-    End Sub
-
+    End Sub
+
 #End Region
-
-
-
-
-
+
+
+
     Protected Sub LnkPersonalizar_Click(sender As Object, e As EventArgs)
 
         RegistraScript("$('#DivPersonalizar').modal({ backdrop: 'static',  keyboard: false});")