-- para ver importes, se activó un chk, para que sea a petición, y no en automático

Ventas/RepRemisiones.aspx

@@ -190,6 +190,11 @@
                                 <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="CVOFechaVencimiento" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
                         </div>
+                        
+                            <div class="col-md-2" runat="server" id="divVerInv">
+                                <asp:CheckBox ID="chkInv"  Checked="false" runat="server" Text="Ver Inventario"></asp:CheckBox>
+                                <%--<asp:DropDownList CssClass="table-group-action-input form-control input-inline input-small input-sm select2me" ID="DdlSubProyectos" DataTextField="SubProyecto" DataValueField="CveSubProyecto" runat="server"></asp:DropDownList>--%>
+                            </div>
 
                         <label class="col-md-1">Contrato: </label>
                             <div class="col-md-2">

Ventas/RepRemisiones.aspx.vb

@@ -91,7 +91,7 @@ Partial Class RepRemisiones
         Dim Vendedores As String = IIf(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM).ToString
 
         Dim ObjVentas As New ClsVentas
-        If ObjVentas.GetRepRemisionesSinFacturar(FechaI, FechaF, FechaV, Sucursales, CveCliente, CveContrato, Vendedores, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, ConsultaInventario:=UsuarioActual.TienePermisoProceso(201)) Then
+        If ObjVentas.GetRepRemisionesSinFacturar(FechaI, FechaF, FechaV, Sucursales, CveCliente, CveContrato, Vendedores, UsuarioActual.CveEmpresa, CveUsuarioConsulta:=UsuarioActual.CveUsuario, ConsultaInventario:=chkInv.Checked) Then
             DtVentas = ObjVentas.DtResultados.Copy()
             GvDatos.DataSource = DtVentas
         End If
@@ -100,7 +100,7 @@ Partial Class RepRemisiones
             GvDatos.Columns(7).Visible = DtVentas.SUMD("Descuento") > 0
         End If
 
-        GvDatos.Columns(10).Visible = UsuarioActual.TienePermisoProceso(201)
+        GvDatos.Columns(10).Visible = chkInv.Checked 'solo se visualiza si está selccionada
         ObjVentas.Dispose()
 
         GvDatos.DataBind()
@@ -148,6 +148,11 @@ Partial Class RepRemisiones
         'DdlClientes.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
         'End If
 
+        If UsuarioActual.TienePermisoProceso(201) Then
+            divVerInv.Visible = True
+        End If
+
+
     End Sub
     Private Sub CargaSucursales()
 

Ventas/RepRemisionesDetalle.aspx

@@ -130,11 +130,11 @@
                                 <ADS:Dropdownlost CssClassDdl="select2me" ID="DdlClientes" Width="100%" data-metodo="getcliente" runat="server" DataTextField="NombreComercial" DataValueField="CveCliente" CssStyle="width: 100%;" selectedindexchange="DdlClientes_SelectedIndexChanged"></ADS:Dropdownlost>
                             </div>
 
-                            <label class="col-md-1">Contrato: </label>
+                           <%-- <label class="col-md-1">Contrato: </label>
                             <div class="col-md-2">
                                 <asp:DropDownList CssClass="table-group-action-input form-control input-inline input-small input-sm select2me" ID="DdlContrato" DataTextField="ContratoCompleto" DataValueField="CveContrato" runat="server">
                                 </asp:DropDownList>
-                            </div>
+                            </div>--%>
 
                         </div>
                     </div>
@@ -187,6 +187,10 @@
                                 <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="CVOFechaVencimiento" Width="350px"></ajax:ValidatorCalloutExtender>
                             </div>
                         </div>
+                        <div class="col-md-2" runat="server" id="divVerInv">
+                                <asp:CheckBox ID="chkInv"  Checked="false" runat="server" Text="Ver Inventario"></asp:CheckBox>
+                                <%--<asp:DropDownList CssClass="table-group-action-input form-control input-inline input-small input-sm select2me" ID="DdlSubProyectos" DataTextField="SubProyecto" DataValueField="CveSubProyecto" runat="server"></asp:DropDownList>--%>
+                            </div>
 
 <%--                        <label class="col-md-1 ">Vendedor:</label>
                         <div class="col-md-2">

Ventas/RepRemisionesDetalle.aspx.vb

@@ -114,7 +114,7 @@ Partial Class RepRemisionesDetalle
             If Request("CveCliente") IsNot Nothing AndAlso IsNumeric(Request("CveCliente")) AndAlso Request("CveCliente").ToEntero > 0 Then
                 CveCliente = Request("CveCliente").ToEntero
 
-                Dim Cliente = GlobalDTCliente(UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("NombreComercial", $"CveCliente ={CveCliente}")
+                Dim Cliente = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("NombreComercial", "")
                 If Cliente <> "" Then
                     DdlClientes.SelectedValue = CveCliente.ToString
                     DdlClientes.SelectedText = Cliente
@@ -122,14 +122,14 @@ Partial Class RepRemisionesDetalle
 
             Else
                 CveCliente = -1
-            End If
-
-            If Request("CveContrato") IsNot Nothing AndAlso IsNumeric(Request("CveContrato")) AndAlso Request("CveContrato").ToEntero > 0 Then
-                CveContrato = Request("CveContrato").ToEntero
-                DdlContrato.SelectedValueExist(CveContrato)
-            Else
-                CveContrato = -1
-            End If
+            End If
+
+            'If Request("CveContrato") IsNot Nothing AndAlso IsNumeric(Request("CveContrato")) AndAlso Request("CveContrato").ToEntero > 0 Then
+            '    CveContrato = Request("CveContrato").ToEntero
+            '    DdlContrato.SelectedValueExist(CveContrato)
+            'Else
+            CveContrato = -1
+            'End If
             If Request("CveSubProyecto") IsNot Nothing Then
                 CveSubProyecto = Request("CveSubProyecto").ToString
                 DdlSubProyectos.SelectedValuesIfExistM(CveSubProyecto)
@@ -155,10 +155,10 @@ Partial Class RepRemisionesDetalle
         FechaF = If(IsDate(txtFechaF.Text.Trim()), txtFechaF.Text.Trim(), "-1")
         FechaV = If(IsDate(TxtFechaVencimiento.Text.Trim()), TxtFechaVencimiento.Text.Trim(), "-1")
         CveCliente = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)
-        CveContrato = If(DdlContrato.SelectedValue.ToEntero > 0, DdlContrato.SelectedValue.ToEntero, -1)
+        'CveContrato = If(DdlContrato.SelectedValue.ToEntero > 0, DdlContrato.SelectedValue.ToEntero, -1)
         CveSubProyecto = IIf(DdlSubProyectos.GetSelectedValuesM = "", "-1", DdlSubProyectos.GetSelectedValuesM).ToString
 
-        If ObjVentas.GetRepRemisionesSinFacturarDetalle(FechaI, FechaF, FechaV, CveCliente, CveContrato, CveVenta, UsuarioActual.CveEmpresa, CveSubProyecto, CveUsuarioConsulta:=UsuarioActual.CveUsuario, ConsultaInventario:=UsuarioActual.TienePermisoProceso(201)) Then
+        If ObjVentas.GetRepRemisionesSinFacturarDetalle(FechaI, FechaF, FechaV, CveCliente, CveContrato, CveVenta, UsuarioActual.CveEmpresa, CveSubProyecto, CveUsuarioConsulta:=UsuarioActual.CveUsuario, ConsultaInventario:=chkInv.Checked) Then
             If CveMoneda = 1 Or CveMoneda = 2 Then
                 DtVentas = ObjVentas.DtResultados.FiltraParametros($"CveMoneda = {CveMoneda}")
             Else
@@ -169,13 +169,13 @@ Partial Class RepRemisionesDetalle
         ObjVentas.Dispose()
 
         GvDatos.DataBind()
-        GvDatos.Columns(8).Visible = UsuarioActual.TienePermisoProceso(201)
+        GvDatos.Columns(8).Visible = chkInv.Checked
 
         UPDatos.Update()
     End Sub
     Public Sub CargaCombos()
         CargaCliente()
-        CargaContrato()
+        'CargaContrato()
         CargaSucursales()
     End Sub
     Private Sub CargaCliente()
@@ -191,20 +191,20 @@ Partial Class RepRemisionesDetalle
         End If
 
     End Sub
-    Private Sub CargaContrato()
-        Dim ObjContratos As New ClsContratos
-        DdlContrato.Items.Clear()
-        If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, DdlClientes.SelectedValue.ToEntero, -1, -1) Then
-            If ObjContratos.DtResultados.Rows.Count > 0 Then
-                DdlContrato.DataSource = ObjContratos.DtResultados
-                DdlContrato.DataBind()
-            End If
+    'Private Sub CargaContrato()
+    '    Dim ObjContratos As New ClsContratos
+    '    DdlContrato.Items.Clear()
+    '    If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, DdlClientes.SelectedValue.ToEntero, -1, -1) Then
+    '        If ObjContratos.DtResultados.Rows.Count > 0 Then
+    '            DdlContrato.DataSource = ObjContratos.DtResultados
+    '            DdlContrato.DataBind()
+    '        End If
 
-        End If
+    '    End If
 
-        ObjContratos.Dispose()
-        DdlContrato.Items.Insert(0, New ListItem("Todos", "-1"))
-    End Sub
+    '    ObjContratos.Dispose()
+    '    DdlContrato.Items.Insert(0, New ListItem("Todos", "-1"))
+    'End Sub
     Private Sub CargaSucursales()
         DdlSubProyectos.DataSource() = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
         DdlSubProyectos.DataBind()
@@ -233,7 +233,7 @@ Partial Class RepRemisionesDetalle
 
             If DdlSubProyectos.GetSelectedText <> "" Then StrFiltro.AppendFormat("&emsp;<b>Sucursal</b>: {0}", DdlSubProyectos.GetSelectedText)
             If DdlClientes.SelectedValue.ToEntero > 0 Then StrFiltro.AppendFormat("&emsp;<b>Cliente</b>: {0}", DdlClientes.SelectedText)
-            If DdlContrato.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Contrato</b>: {0}", DdlContrato.SelectedItem.Text)
+            'If DdlContrato.SelectedValue <> "-1" Then StrFiltro.AppendFormat("&emsp;<b>Contrato</b>: {0}", DdlContrato.SelectedItem.Text)
 
             If txtFechaI.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Inicio </b>: {0}", txtFechaI.Text.ToDate.ToShortDateString)
             If txtFechaF.Text <> "" Then StrFiltro.AppendFormat("&emsp;<b>Fecha Fin </b>: {0}", txtFechaF.Text.ToDate.ToShortDateString)