From 2d29d4d33762d588a1e60024315d7a4ee260755c Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Tue, 10 Mar 2020 12:58:31 -0700
Subject: [PATCH] Personalizar columnas en reporte de cxp detalle

---
 Compras/RepCxPDetalle.aspx    | 70 +++++++++++++++++++++++++++------
 Compras/RepCxPDetalle.aspx.vb | 74 ++++++++++++++++++++++++-----------
 2 files changed, 110 insertions(+), 34 deletions(-)

diff --git a/Compras/RepCxPDetalle.aspx b/Compras/RepCxPDetalle.aspx
index 43593a36d..992beb0e6 100644
--- a/Compras/RepCxPDetalle.aspx
+++ b/Compras/RepCxPDetalle.aspx
@@ -260,6 +260,42 @@
                             <asp:HyperLink ID="HplFolio" runat="server" Text='<%# Eval("SerieFolio")%>' CssClass="Texto"></asp:HyperLink>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <asp:TemplateField>
+                        <HeaderTemplate>
+                            SubTotal
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlSubTotal" runat="server" Text='<%# Eval("SubTotal", "{0:N2}") %>'></asp:Literal>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Right" />
+                    </asp:TemplateField>
+                    <asp:TemplateField>
+                        <HeaderTemplate>
+                            IVA
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlIVA" runat="server" Text='<%# Eval("IVA", "{0:N2}") %>'></asp:Literal>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Right" />
+                    </asp:TemplateField>
+                    <asp:TemplateField>
+                        <HeaderTemplate>
+                            IEPS
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlIEPS" runat="server" Text='<%# Eval("IEPS", "{0:N2}") %>'></asp:Literal>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Right" />
+                    </asp:TemplateField>
+                    <asp:TemplateField>
+                        <HeaderTemplate>
+                            Descuento
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlDescuento" runat="server" Text='<%# Eval("Descuentos", "{0:N2}") %>'></asp:Literal>
+                        </ItemTemplate>
+                        <ItemStyle HorizontalAlign="Right" />
+                    </asp:TemplateField>
                     <asp:TemplateField>
                         <HeaderTemplate>
                             Total
@@ -350,7 +386,7 @@
                 <div class="modal-body">
                     <asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">
                         <ContentTemplate>
-                            <div id="" style="width: 340px">
+                            <div id="" style="width: 100%">
                                 <table>                                    
                                     <tr>
                                         <td colspan="2">
@@ -360,25 +396,35 @@
                                                         <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="true" /></td>
-                                                </tr>
-                                                <tr>
-                                                    <td style="text-align: left;">
-                                                        <asp:CheckBox ID="ChkSaldo" runat="server" Text="Saldo" Checked="true" /></td>
-                                                    <td style="text-align: left;">
-                                                        <asp:CheckBox ID="ChkFechaVencimiento" runat="server" Text="Fecha Venc." Checked="true" /></td>
-                                                </tr>
-                                                <tr>
-                                                    <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>
+                                                        <asp:CheckBox ID="ChkSaldo" runat="server" Text="Saldo" Checked="true" /></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="ChkObservaciones" runat="server" Text="Observaciones" Checked="false" /></td></td>
                                                 </tr>
+                                                <tr>
+                                                    <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="ChkIEPS" runat="server" Text="IEPS" Checked="false" /></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="ChkDescuento" runat="server" Text="Descuento" Checked="false" /></td>
+                                                </tr>
+                                                <tr>
+                                                    <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="ChkTotal" runat="server" Text="Total" Checked="false" /></td>
+                                                </tr>
                                             </table>
                                         </td>
                                     </tr>
diff --git a/Compras/RepCxPDetalle.aspx.vb b/Compras/RepCxPDetalle.aspx.vb
index 8dab1f576..1627468e6 100644
--- a/Compras/RepCxPDetalle.aspx.vb
+++ b/Compras/RepCxPDetalle.aspx.vb
@@ -223,14 +223,15 @@ Partial Class RepCxPDetalle
             Personalizo = 0
 
             ViewState("Opcion") = IfNull(Request("Op"), "S")
+            MostrarOcultarColumnas()
             CargaCombos()
             If Request("Op") IsNot Nothing Then
                 CargaDatos()
             End If
             'ImgPersonalizar.Attributes.Add("onclick", "$('#DivPersonalizar').show(1000); PosicionaObjeto(this.id,'DivPersonalizar');")
         End If
-    End Sub
-
+    End Sub
+
 #Region "CARGAS"
     Private Sub CargaCombos()
         DdlProveedores.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
@@ -321,7 +322,6 @@ Partial Class RepCxPDetalle
 
     End Sub
 
-
     Private Function CargaCuentasContables(DT As DataTable) As DataTable
 
         Dim ObjConpaq As New ClsContPAQi(UsuarioActual.Empresa)
@@ -441,10 +441,10 @@ Partial Class RepCxPDetalle
         'Dim ObjEmpresa As New ClsEmpresas()
         'If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
 
-        If Opcion <> "S" Then
-            If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(7).Visible = False
-            If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(8).Visible = False
-        End If
+        'If Opcion <> "S" Then
+        '    If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(7).Visible = False
+        '    If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(8).Visible = False
+        'End If
         'End If
         'ObjEmpresa.Dispose()
     End Sub
@@ -516,14 +516,13 @@ Partial Class RepCxPDetalle
             End If
 
         End If
-    End Sub
-
+    End Sub
+
 #End Region
-
+
 #Region "PERSONALIZAR"
-
-    Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
-
+    Protected Sub MostrarOcultarColumnas()
+
         If ChkFolio.Checked Then
             GvDatos.Columns(1).Visible = True
         Else
@@ -536,42 +535,72 @@ Partial Class RepCxPDetalle
             GvDatos.Columns(2).Visible = False
         End If
 
-        If ChkSaldo.Checked Then
+        If ChkIVA.Checked Then
             GvDatos.Columns(3).Visible = True
         Else
             GvDatos.Columns(3).Visible = False
         End If
 
-        If ChkFechaVencimiento.Checked Then
+        If ChkIEPS.Checked Then
             GvDatos.Columns(4).Visible = True
         Else
             GvDatos.Columns(4).Visible = False
         End If
 
-        If ChkDiasVencidos.Checked Then
+        If ChkDescuento.Checked Then
             GvDatos.Columns(5).Visible = True
         Else
             GvDatos.Columns(5).Visible = False
         End If
 
-        If ChkProveedor.Checked Then
+        If ChkTotal.Checked Then
             GvDatos.Columns(6).Visible = True
         Else
             GvDatos.Columns(6).Visible = False
         End If
 
-        If ChkCuenta.Checked Then
+        If ChkSaldo.Checked Then
             GvDatos.Columns(7).Visible = True
         Else
             GvDatos.Columns(7).Visible = False
         End If
 
-        If ChkObservaciones.Checked Then
+        If ChkFechaVencimiento.Checked Then
             GvDatos.Columns(8).Visible = True
         Else
             GvDatos.Columns(8).Visible = False
         End If
 
+        If ChkDiasVencidos.Checked Then
+            GvDatos.Columns(9).Visible = True
+        Else
+            GvDatos.Columns(9).Visible = False
+        End If
+
+        If ChkProveedor.Checked Then
+            GvDatos.Columns(10).Visible = True
+        Else
+            GvDatos.Columns(10).Visible = False
+        End If
+
+        If ChkCuenta.Checked Then
+            GvDatos.Columns(11).Visible = True
+        Else
+            GvDatos.Columns(11).Visible = False
+        End If
+
+        If ChkObservaciones.Checked Then
+            GvDatos.Columns(12).Visible = True
+        Else
+            GvDatos.Columns(12).Visible = False
+        End If
+
+        If UsuarioActual.Empresa.Funcionalidad(131).ToEntero > 0 Or UsuarioActual.Empresa.Funcionalidad(134).ToEntero > 0 Then
+            GvDatos.Columns(13).Visible = True
+        Else
+            GvDatos.Columns(13).Visible = False
+        End If
+
         Personalizo = 1
         If Personalizo = 1 Then
             ImgExcelPersonalizado.Visible = True
@@ -579,9 +608,10 @@ Partial Class RepCxPDetalle
             ImgExcelPersonalizado.Visible = False
         End If
 
-
-        UPDatos.Update()
-
+        UPDatos.Update()
+    End Sub
+    Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
+        MostrarOcultarColumnas()
         RegistraScript("$('#DivPersonalizar').modal('hide');")
     End Sub