SMS.

--Existencias cachadas
--Vista previa de facturacion de remisión

Inventarios/PopUpExistenciasAlmacen.aspx.vb

@@ -131,10 +131,15 @@ Partial Class Inventarios_Default
                 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 BuscarEnTabla As Boolean = False
+            If UsuarioActual.Empresa.Funcionalidad(715) = "1" Then
+                BuscarEnTabla = True
+            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, RestringirAlmacenes:=RestringirAlmacenes, TopSelect:=100) Then
+                                                     ExcluyeTransitorios:=1, RestringirAlmacenes:=RestringirAlmacenes, TopSelect:=100, BuscarEnTabla:=BuscarEnTabla) Then
                 CargaPS(CvePS)
 
                 If ObjInventarios.DtResultados.Rows.Count > 0 Then