que restringa los almacenes. para la E119

Inventarios/PopUpExistenciasAlmacen.aspx.vb

@@ -98,9 +98,15 @@ Partial Class Inventarios_Default
     Private Sub CargaDatos(CvePS As Integer, Tipo As Integer)
 
         If ValidarFiltrosSeleccionados() OrElse CvePS > 0 Then
+            Dim RestringirAlmacenes As Integer = -1
+            If UsuarioActual.CveEmpresa = 119 Then
+                RestringirAlmacenes = 1 'restringue los almacenes:Consignación,Productos Financieros Asignados,,roductos Financieros,Consumo Interno,Activo Fijo,Merma,Consignación de Contrato,Devolucion proveedor,
+            End If
+
             Dim ObjInventarios As New ClsInventarios()
             If ObjInventarios.GetExistenciasProducto(CvePS, -1, UsuarioActual.CveEmpresa, -1, FechaMovto:=DateTime.Today.AddDays(1).ToString("yyyy/MM/dd HH:mm"),
-                                                     ExcluyeApartados:=-1, ExcluyeAdelantado:=1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero, ExcluyeTransitorios:=1, TopSelect:=100) Then
+                                                     ExcluyeApartados:=-1, ExcluyeAdelantado:=1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero,
+                                                     ExcluyeTransitorios:=1, RestringirAlmacenes:=RestringirAlmacenes, TopSelect:=100) Then
                 Dim dr As Data.DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=CvePS).FiltroPrimero("")
 
                 If dr IsNot Nothing Then