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

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