--activar sugerir lote/caducidad

Inventarios/EntregaAlmacen.aspx.vb

@@ -4,8 +4,7 @@ Option Explicit On
 Imports System.Data
 Imports System.Data.SqlClient
 Imports System.IO
-Imports Extensiones
-Imports Microsoft.Owin.Security.Provider
+Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 
 Partial Class Inventarios_EntregaAlmacen
@@ -342,7 +341,7 @@ Partial Class Inventarios_EntregaAlmacen
 
             InicializaValores()
             CargaParametrosAD()
-            If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 146, 119) Then DdlAlmacen.AutoPostBack = True
+            If UsuarioActual.CveEmpresa.Contiene(1, 72, 80, 146, 119, 186) Then DdlAlmacen.AutoPostBack = True
 
             If UsuarioActual.Empresa.Funcionalidad(281).ToEntero() = 1 Then
 
@@ -521,9 +520,7 @@ Partial Class Inventarios_EntregaAlmacen
 
         If DtPendientes IsNot Nothing Then
             GVPendientes.DataSource = DtPendientes
-
         End If
-
         LtActualizado.Text = String.Format("Actualizado: {0}", NowADS().ToString("H:mm"))
 
         GVPendientes.DataBind()
@@ -613,8 +610,6 @@ Partial Class Inventarios_EntregaAlmacen
         TipoEntrega = 1
         BtnGuardar.Visible = True
 
-
-
         Dim StrAlmacenes As String = "CveTipoAlmacen IN (1,2,26)"
 
         If UsuarioActual.CveSubProyecto = 8804 Then