From c35883fdc882b8bdf5ba3704cc93e3a14cde5dbe Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 19 Jun 2023 10:09:34 -0700
Subject: [PATCH] =?UTF-8?q?--=20cambios=20-=20ocultar=20columna=20de=20amo?=
 =?UTF-8?q?rtizac=C3=B3n=20-=20columna=20de=20descuentos,=20sale=20solo=20?=
 =?UTF-8?q?si=20tiene=20datos=20-=20columna=20de=20ieps,=20se=20visualiza?=
 =?UTF-8?q?=20si=20la=20empresa=20la=20deduce=20--=20repventasetalle,=20re?=
 =?UTF-8?q?acomodo=20a=20modal=20de=20perosnalizar?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/RepVentaDetalle.aspx    |  36 ++++-------
 Ventas/RepVentaDetalle.aspx.vb |  16 ++---
 Ventas/RepVentas.aspx          |   4 +-
 Ventas/RepVentas.aspx.vb       | 106 ++++++++-------------------------
 4 files changed, 44 insertions(+), 118 deletions(-)

diff --git a/Ventas/RepVentaDetalle.aspx b/Ventas/RepVentaDetalle.aspx
index 670edb5c3..91ec23517 100644
--- a/Ventas/RepVentaDetalle.aspx
+++ b/Ventas/RepVentaDetalle.aspx
@@ -379,7 +379,7 @@
                             <asp:Literal ID="LtlIVA" runat="server" Text='<%# Eval("IVA", "{0:N2}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
-                    <asp:TemplateField HeaderText="IEPS" ItemStyle-HorizontalAlign="Right">
+                    <asp:TemplateField HeaderText="IEPS"  Visible="false" ItemStyle-HorizontalAlign="Right" >
                         <ItemTemplate>
                             <asp:Literal ID="LtlIEPS" runat="server" Text='<%# Eval("IEPS", "{0:N2}") %>'></asp:Literal>
                         </ItemTemplate>
@@ -580,8 +580,7 @@
                                             <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="ChkDescuento" runat="server" Text="Descuento" Checked="true" /></td>
                                         <td style="text-align: left;">
@@ -592,8 +591,7 @@
                                             <asp:CheckBox ID="ChkAmortizacion" runat="server" Text="Amortización" 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="ChkRetIVA" runat="server" Text="Ret. IVA" /></td>
                                         <td style="text-align: left;">
@@ -605,8 +603,7 @@
                                             <asp:CheckBox ID="ChkTotal" runat="server" Text="Total" Checked="true" /></td>
                                         <td style="text-align: left;">
                                             <asp:CheckBox ID="ChkFecha" runat="server" Text="Fecha" Checked="true" /></td>
-                                    </tr>
-                                    <tr>
+                                   
                                         <td style="text-align: left;">
                                             <asp:CheckBox ID="ChkSucursal" runat="server" Text="Sucursal" Checked="true" /></td>
                                         <td style="text-align: left;">
@@ -618,8 +615,7 @@
 
                                         <td style="text-align: left;">
                                             <asp:CheckBox ID="ChkSucursalCliente" runat="server" Text="Sucursal Cliente" /></td>
-                                    </tr>
-                                    <tr>
+                                   
                                         <td style="text-align: left;">
                                             <asp:CheckBox ID="ChkVendedor" runat="server" Text="Vendedor" /></td>
                                         <td style="text-align: left;">
@@ -630,8 +626,7 @@
                                             <asp:CheckBox ID="ChkMotivoCancelacion" runat="server" Text="Motivo Cancelacion" /></td>
                                         <td style="text-align: left;">
                                             <asp:CheckBox ID="ChkSeTimbro" runat="server" Text="Se Timbró" /></td>
-                                    </tr>
-                                    <tr>
+                                   
                                         <td style="text-align: left;">
                                             <asp:CheckBox ID="ChkSeEnvioMail" runat="server" Text="Se envió Mail" /></td>
                                         <td style="text-align: left;">
@@ -642,8 +637,7 @@
                                             <asp:CheckBox ID="ChkUsuario" runat="server" Text="Usuario" /></td>
                                         <td style="text-align: left;">
                                             <asp:CheckBox ID="ChkObservaciones" runat="server" Text="Observaciones" /></td>
-                                    </tr>
-                                    <tr>
+                                   
                                         <td style="text-align: left;">
                                             <asp:CheckBox ID="ChkFolioFiscal" runat="server" Text="Folio Fiscal (UUID)" /></td>
                                         <td style="text-align: left;">
@@ -654,8 +648,7 @@
                                             <asp:CheckBox ID="ChkEstatusFacturacion" runat="server" Text="Estatus Facturación" /></td>
                                         <td style="text-align: left;">
                                             <asp:CheckBox ID="ChkFolioFacturacion" runat="server" Text="Factura Cotización" /></td>
-                                    </tr>
-                                    <tr>
+                                   
                                         <td style="text-align: left;">
                                             <asp:CheckBox ID="ChkCliente" runat="server" Text="Cliente" Checked="true" /></td>
                                         <td style="text-align: left;">
@@ -665,23 +658,16 @@
                                         <td style="text-align: left;">
                                             <asp:CheckBox ID="ChkTotalImpuestos" runat="server" Text="Impuestos Locales" /></td>
                                         <td style="text-align: left;">
-                                            <asp:CheckBox ID="ChkIEPS" runat="server" Text="IEPS" Checked="true" /></td>
-                                    </tr>
-                                    <tr>
+                                            <asp:CheckBox ID="ChkIEPS" runat="server" Text="IEPS"  /></td>
+                                   
                                         <td style="text-align: left;">
                                             <asp:CheckBox ID="ChkMoneda" runat="server" Text="Moneda" Checked="true" /></td>
                                         <td style="text-align: left;">
                                             <asp:CheckBox ID="ChkSaldo" runat="server" Text="Saldo" Checked="false" /></td>
-                                        </td>
-                                   
+                                        </td>                                   
                                     </tr>
-
-
-
                                 </tbody>
-
                             </table>
-
                         </div>
                         <div class="modal-footer">
                             <button type="button" class="btn btn-success" data-dismiss="modal" onclick="$('#BtnPersonalizar').click();">Personalizar</button>
diff --git a/Ventas/RepVentaDetalle.aspx.vb b/Ventas/RepVentaDetalle.aspx.vb
index 5eb5470d5..188b6390e 100644
--- a/Ventas/RepVentaDetalle.aspx.vb
+++ b/Ventas/RepVentaDetalle.aspx.vb
@@ -56,7 +56,6 @@ Partial Class RepVentaDetalle
         End Set
     End Property
 
-
     Private Property TipoCliente As Integer
         Get
             If ViewState("TipoCliente") Is Nothing Then
@@ -64,16 +63,12 @@ Partial Class RepVentaDetalle
             Else
                 Return ViewState("TipoCliente").ToString.ToEntero
             End If
-
         End Get
-
         Set(value As Integer)
             ViewState("TipoCliente") = value
         End Set
     End Property
 
-
-
     Private Property TCEspecifico As Decimal
         Get
             Return ViewState("TCEspecifico").ToString.ToDecimal
@@ -110,6 +105,7 @@ Partial Class RepVentaDetalle
             Personalizo = 0
             CargaCombos()
             InicializaValores()
+            ConfiguraEmpresa()
             CargaDatos()
 
             If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
@@ -370,7 +366,6 @@ Partial Class RepVentaDetalle
 #Region "CONSULTAR"
     Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
         CargaDatos()
-        ConfiguraEmpresa()
         UPDatos.Update()
     End Sub
     Private Sub CargaDatos()
@@ -423,6 +418,7 @@ Partial Class RepVentaDetalle
         End If
         ObjVentas.Dispose()
 
+        If DtVentas.SUMD("Descuento") <= 0 Then GvDatos.Columns(5).Visible = False ' se oculta descuentos, si está vac+io
         Agrupador = DdlGrupo.SelectedItem.Text
 
         GvDatos.DataBind()
@@ -451,12 +447,12 @@ Partial Class RepVentaDetalle
     End Function
 
     Private Sub ConfiguraEmpresa()
-        'Dim ObjEmpresa As New ClsEmpresas()
-        'If ObjEmpresa.GetEmpresas(UsuarioActual.CveEmpresa, "-1", "-1", "-1", "-1") Then
+
         If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(10).Visible = False
         If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(11).Visible = False
-        'End If
-        'ObjEmpresa.Dispose()
+
+        ChkIEPS.Checked = UsuarioActual.Empresa.Funcionalidad(713) = "1" 'empresa deduce IEPS
+
     End Sub
     Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
diff --git a/Ventas/RepVentas.aspx b/Ventas/RepVentas.aspx
index b9eee6313..4335aa294 100644
--- a/Ventas/RepVentas.aspx
+++ b/Ventas/RepVentas.aspx
@@ -356,12 +356,12 @@
                     </asp:TemplateField>
                     <asp:BoundField HeaderText="Sub Total" DataField="SubTotal" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="Descuento" DataField="Descuento" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="Amortización" DataField="Amortizacion" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="Amortización" DataField="Amortizacion" Visible="false" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
 
                     <asp:BoundField HeaderText="Sub Total 2" DataField="SubTotal2" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
 
                     <asp:BoundField HeaderText="IVA" DataField="IVA" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
-                    <asp:BoundField HeaderText="IEPS" DataField="IEPS" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
+                    <asp:BoundField HeaderText="IEPS" DataField="IEPS" ItemStyle-Width="7.5%"  DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="Ret. IVA" DataField="RetIVA" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="Ret. ISR" DataField="RetISR" ItemStyle-Width="7.5%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
                     <asp:BoundField HeaderText="Imp. Locales" DataField="TotalImpuestos" ItemStyle-Width="10%" DataFormatString="{0:###,###,###,###.##}" ItemStyle-HorizontalAlign="Right" />
diff --git a/Ventas/RepVentas.aspx.vb b/Ventas/RepVentas.aspx.vb
index 5fd05be8a..0ae957414 100644
--- a/Ventas/RepVentas.aspx.vb
+++ b/Ventas/RepVentas.aspx.vb
@@ -78,8 +78,9 @@ Partial Class Ventas_RepVentas
             TipoCambio = 1
             TCEspecifico = -1
             CargaCombos()
-
-            'MODALIDADES
+            ConfiguraEmpresa()
+
+            'MODALIDADES
             If Request("Op") IsNot Nothing AndAlso Request("Op").ToString <> "" Then
                 Opcion = Request("Op").ToString
             Else
@@ -155,6 +156,7 @@ Partial Class Ventas_RepVentas
     Private Sub ConfiguraEmpresa()
         '  If Not UsuarioActual.Empresa.MostrarRetIVA Then GvDatos.Columns(8).Visible = False
         If Not UsuarioActual.Empresa.MostrarRetISR Then GvDatos.Columns(9).Visible = False
+        ChkIEPS.Checked = UsuarioActual.Empresa.Funcionalidad(713) = "1" 'empresa deduce IEPS
     End Sub
 
     Private Sub CargaCombos()
@@ -210,9 +212,9 @@ Partial Class Ventas_RepVentas
 #End Region
 
 #Region "  CARGA DATOS  "
-    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
-        CargaDatos()
-        ConfiguraEmpresa()
+    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
+
+        CargaDatos()
         Personaliza()
         UPDatos.Update()
         'XmlConf(UsuarioActual.CveUsuario, 9)
@@ -252,6 +254,8 @@ Partial Class Ventas_RepVentas
             GvDatos.DataSource = Nothing
         End If
 
+        If DtVentas.SUMD("Descuento") <= 0 Then GvDatos.Columns(3).Visible = False ' se oculta descuentos, si está vac+io
+
         Agrupador = DdlGrupo.SelectedItem.Text
         CveProyecto = DdlProyecto.SelectedValue.ToEntero
         ObjVentas.Dispose()
@@ -474,82 +478,22 @@ Partial Class Ventas_RepVentas
         Personaliza()
     End Sub
 
-    Private Sub Personaliza()
-
-        If ChkSubTotal2.Checked Then
-            GvDatos.Columns(5).Visible = True
-        Else
-            GvDatos.Columns(5).Visible = False
-        End If
-
-        If ChkIEPS.Checked Then
-            GvDatos.Columns(7).Visible = True
-        Else
-            GvDatos.Columns(7).Visible = False
-        End If
-
-        If ChkRetIVA.Checked Then
-            GvDatos.Columns(8).Visible = True
-        Else
-            GvDatos.Columns(8).Visible = False
-        End If
-
-        If ChkRetISR.Checked Then
-            GvDatos.Columns(9).Visible = True
-        Else
-            GvDatos.Columns(9).Visible = False
-        End If
-
-        If ChkImpLoc.Checked Then
-            GvDatos.Columns(10).Visible = True
-        Else
-            GvDatos.Columns(10).Visible = False
-        End If
-
-        If ChkMinSub.Checked Then
-            GvDatos.Columns(12).Visible = True
-        Else
-            GvDatos.Columns(12).Visible = False
-        End If
-
-        If ChkAVGSub.Checked Then
-            GvDatos.Columns(13).Visible = True
-        Else
-            GvDatos.Columns(13).Visible = False
-        End If
-
-        If ChkMaxSub.Checked Then
-            GvDatos.Columns(14).Visible = True
-        Else
-            GvDatos.Columns(14).Visible = False
-        End If
-
-        If ChkMinTot.Checked Then
-            GvDatos.Columns(17).Visible = True
-        Else
-            GvDatos.Columns(17).Visible = False
-        End If
-
-        If ChkAvgTot.Checked Then
-            GvDatos.Columns(16).Visible = True
-        Else
-            GvDatos.Columns(16).Visible = False
-        End If
-
-        If ChkMaxTot.Checked Then
-            GvDatos.Columns(15).Visible = True
-        Else
-            GvDatos.Columns(15).Visible = False
-        End If
-
-        If CheckRefacturado.Checked Then
-            GvDatos.Columns(18).Visible = True
-        Else
-            GvDatos.Columns(18).Visible = False
-        End If
-
-
-
+    Private Sub Personaliza()
+
+        GvDatos.Columns(5).Visible = ChkSubTotal2.Checked
+        GvDatos.Columns(7).Visible = ChkIEPS.Checked
+        GvDatos.Columns(8).Visible = ChkRetIVA.Checked
+        GvDatos.Columns(9).Visible = ChkRetISR.Checked
+        GvDatos.Columns(10).Visible = ChkImpLoc.Checked
+        GvDatos.Columns(12).Visible = ChkMinSub.Checked
+        GvDatos.Columns(13).Visible = ChkAVGSub.Checked
+        GvDatos.Columns(14).Visible = ChkMaxSub.Checked
+        GvDatos.Columns(15).Visible = ChkMaxTot.Checked
+        GvDatos.Columns(16).Visible = ChkAvgTot.Checked
+        GvDatos.Columns(17).Visible = ChkMinTot.Checked
+        GvDatos.Columns(18).Visible = CheckRefacturado.Checked
+
+
         UPDatos.Update()
     End Sub
 #End Region