-- columna de descuento, sino está vacío

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>

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()