From fcdc349efb05f4cf692907084fa4a3b5abcabbc7 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 11 Jan 2024 06:25:26 -0700
Subject: [PATCH] -- columna de IEPS

---
 Ventas/RepProductosServicios.aspx    |  9 ++++++++-
 Ventas/RepProductosServicios.aspx.vb | 29 +++++++++++++++++-----------
 2 files changed, 26 insertions(+), 12 deletions(-)

diff --git a/Ventas/RepProductosServicios.aspx b/Ventas/RepProductosServicios.aspx
index c782af171..e86eb0617 100644
--- a/Ventas/RepProductosServicios.aspx
+++ b/Ventas/RepProductosServicios.aspx
@@ -393,6 +393,7 @@
                     <asp:BoundField HeaderText="Descuento" DataField="Descuento" ItemStyle-Width="10%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
                     <%--<asp:BoundField HeaderText="Amortización" DataField="Amortizacion" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />--%>
                     <asp:BoundField HeaderText="IVA" DataField="IVA" ItemStyle-Width="10%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="IEPS" DataField="IEPS" ItemStyle-Width="10%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" Visible="false" />
                     <%--<asp:BoundField HeaderText="Ret. IVA" DataField="RetIVA" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />--%>
                     <%--<asp:BoundField HeaderText="Ret. ISR" DataField="RetISR" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />--%>
                     <asp:BoundField HeaderText="Total" DataField="Total" ItemStyle-Width="10%" DataFormatString="{0:N2}" ItemStyle-HorizontalAlign="Right" />
@@ -423,7 +424,7 @@
                         </div>
                         <div class="modal-body">
                             <table class="table table-striped table-advance table-hover Widthall">
-                                <tbody>
+                                <tbody>                                    
                                     <tr>
                                         <td style="text-align: left;">
                                             <asp:CheckBox ID="ChkMaxSub" runat="server" Text="SubTotal Máximo" />
@@ -444,6 +445,12 @@
                                         <td style="text-align: left;">
                                             <asp:CheckBox ID="ChkMinTot" runat="server" Text="Total Mínimo" /></td>
                                     </tr>
+                                    <tr>
+                                        <td style="text-align: left;">
+                                            <asp:CheckBox ID="ChkIEPS" runat="server" Text="IEPS" Visible ="false" />
+                                        </td>
+                                        <td style="text-align: left;">            </td>
+                                    </tr>
                                 </tbody>
                             </table>
                         </div>
diff --git a/Ventas/RepProductosServicios.aspx.vb b/Ventas/RepProductosServicios.aspx.vb
index e14b4dea6..381395413 100644
--- a/Ventas/RepProductosServicios.aspx.vb
+++ b/Ventas/RepProductosServicios.aspx.vb
@@ -53,8 +53,6 @@ Partial Class Ventas_RepProductosServicios
             If UsuarioActual.CveEmpresa = 2 AndAlso UsuarioActual.CveUsuario.Contiene(77, 21) Then Response.Redirect("/Inicio.aspx")
             CargarMarcas()
             SetValues()
-
-
         End If
     End Sub
 
@@ -115,8 +113,6 @@ Partial Class Ventas_RepProductosServicios
             divClasif2.Visible = True
 
             DdlGrupo.Items.Add(New ListItem("Clasificacion2", "25"))
-
-
             LblServicioDomicilioFiltro.Visible = True
             DVServicioDomicilio.Visible = True
 
@@ -142,6 +138,12 @@ Partial Class Ventas_RepProductosServicios
             DdlPS.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacion.SelectedValue.ToEntero)
             DdlPS.ddl.DataBind()
             DdlPS.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1"))
+        End If
+
+        If UsuarioActual.Empresa.Funcionalidad(713) = "1" Then
+            ChkIEPS.Visible = True
+            ChkIEPS.Checked = True
+            GvDatos.Columns(6).Visible = True
         End If
 
         'CargaEstatus
@@ -334,43 +336,48 @@ Partial Class Ventas_RepProductosServicios
 
     Protected Sub BtnPersonalizar_Click(sender As Object, e As System.EventArgs) Handles BtnPersonalizar.Click
 
-
-        If ChkMaxSub.Checked Then
+        If ChkIEPS.Checked Then
             GvDatos.Columns(6).Visible = True
         Else
             GvDatos.Columns(6).Visible = False
         End If
 
-        If ChkAVGSub.Checked Then
+        If ChkMaxSub.Checked Then
             GvDatos.Columns(7).Visible = True
         Else
             GvDatos.Columns(7).Visible = False
         End If
 
-        If ChkMinSub.Checked Then
+        If ChkAVGSub.Checked Then
             GvDatos.Columns(8).Visible = True
         Else
             GvDatos.Columns(8).Visible = False
         End If
 
-        If ChkMaxTot.Checked Then
+        If ChkMinSub.Checked Then
             GvDatos.Columns(9).Visible = True
         Else
             GvDatos.Columns(9).Visible = False
         End If
 
-        If ChkAvgTot.Checked Then
+        If ChkMaxTot.Checked Then
             GvDatos.Columns(10).Visible = True
         Else
             GvDatos.Columns(10).Visible = False
         End If
 
-        If ChkMinTot.Checked Then
+        If ChkAvgTot.Checked Then
             GvDatos.Columns(11).Visible = True
         Else
             GvDatos.Columns(11).Visible = False
         End If
 
+        If ChkMinTot.Checked Then
+            GvDatos.Columns(12).Visible = True
+        Else
+            GvDatos.Columns(12).Visible = False
+        End If
+
         UPDatos.Update()
     End Sub
 #End Region