From 85d71fdf7577c7520c324460e6eb61c3ddeebbdc Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 14 Dec 2021 13:07:01 -0700
Subject: [PATCH] =?UTF-8?q?--=20columna=20de=20descuento,=20sino=20est?=
 =?UTF-8?q?=C3=A1=20vac=C3=ADo?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Ventas/RepRemisiones.aspx    |  8 ++++++++
 Ventas/RepRemisiones.aspx.vb | 28 ++++++++++++++--------------
 2 files changed, 22 insertions(+), 14 deletions(-)

diff --git a/Ventas/RepRemisiones.aspx b/Ventas/RepRemisiones.aspx
index 02dddae68..ab2a17b23 100644
--- a/Ventas/RepRemisiones.aspx
+++ b/Ventas/RepRemisiones.aspx
@@ -271,6 +271,14 @@
                             <asp:Literal ID="LtlSubTotal" runat="server" Text='<%# Eval("SubTotal", "{0:N2}") %>'></asp:Literal>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <asp:TemplateField ItemStyle-HorizontalAlign="Right" Visible="false">
+                        <HeaderTemplate>
+                            <asp:Label Text="Descuento" runat="server" CausesValidation="false"> </asp:Label>
+                        </HeaderTemplate>
+                        <ItemTemplate>
+                            <asp:Literal ID="LtlDescuento" runat="server" Text='<%# Eval("Descuento", "{0:N2}") %>'></asp:Literal>
+                        </ItemTemplate>
+                    </asp:TemplateField>
                     <asp:TemplateField ItemStyle-HorizontalAlign="Right">
                         <HeaderTemplate>
                             <asp:Label Text="IVA" runat="server" CausesValidation="false"> </asp:Label>
diff --git a/Ventas/RepRemisiones.aspx.vb b/Ventas/RepRemisiones.aspx.vb
index 009ba5416..6325b7acc 100644
--- a/Ventas/RepRemisiones.aspx.vb
+++ b/Ventas/RepRemisiones.aspx.vb
@@ -5,9 +5,8 @@ Imports System.Data
 Imports Microsoft.Reporting.WebForms
 Imports Extensiones
 Partial Class RepRemisiones
-    Inherits ClsPaginas
-    Private Shared missing As Object = System.Reflection.Missing.Value
-
+    Inherits ClsPaginas
+
 #Region "PROPIEDADES"
     Private Property FechaI As String
         Get
@@ -96,6 +95,7 @@ Partial Class RepRemisiones
             GvDatos.DataSource = ObjVentas.DtResultados
             DtVentas = ObjVentas.DtResultados
         End If
+        GvDatos.Columns(7).Visible = ObjVentas.DtResultados.SUMD("Descuento") > 0
         ObjVentas.Dispose()
 
         GvDatos.DataBind()
@@ -131,17 +131,17 @@ Partial Class RepRemisiones
 #End Region
 
 #Region "CARGA COMBOS FILTRO"
-    Private Sub CargaCliente()
-        'CargaClientes
-        Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
-        If EsWS Then
-            DdlClientes.setEsWebService(True)
-        Else
-            DdlClientes.setEsWebService(False)
-            DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
-            DdlClientes.DataBind()
-            DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
-        End If
+    Private Sub CargaCliente()
+        'CargaClientes
+        'Dim EsWS = If(UsuarioActual.Empresa.Funcionalidad(105) = "1" Or UsuarioActual.Empresa.Funcionalidad(141) = "1", True, False)
+        'If EsWS Then
+        DdlClientes.setEsWebService(True)
+        ' Else
+        'DdlClientes.setEsWebService(False)
+        'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa, -1)
+        'DdlClientes.DataBind()
+        'DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
+        'End If
 
     End Sub
     Private Sub CargaSucursales()