diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 397f87575..11ada3319 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -4444,6 +4444,13 @@ Partial Class Inventarios_EntradasSalidas
                 TrSerieEntrada.Visible = AplicaSerie
                 TxtnSerie.Visible = AplicaSerie
 
+                Dim CveSubProyectoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenInventarioFisico.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto").ToString.ToEntero
+
+                If UsuarioActual.CveEmpresa = 119 AndAlso Not CveSubProyectoAlmacen.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
+                    AplicaLote = False
+                    AplicaCaducidad = False
+                End If
+
                 'activa seccion
                 ThSeccionEntrada.Visible = AplicaSeccion
                 TrSeccionEntrada.Visible = AplicaSeccion
@@ -4468,6 +4475,7 @@ Partial Class Inventarios_EntradasSalidas
         If DdlPSSalida.SelectedValue.ToEntero > 0 Then
             Dim drp As DataRow = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPSSalida.SelectedValue.ToEntero).FiltroPrimero("")
 
+
             If drp IsNot Nothing Then
                 Dim AplicaSerie As Boolean = CBool(drp("AplicaSerie"))
                 Dim AplicaSeccion As Boolean = CBool(drp("AplicaSeccion"))
@@ -4478,6 +4486,12 @@ Partial Class Inventarios_EntradasSalidas
                 TrSerieSalida.Visible = AplicaSerie
                 TxtnSerie.Visible = AplicaSerie
 
+                Dim CveSubProyectoAlmacen As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenInventarioFisico.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto").ToString.ToEntero
+
+                If UsuarioActual.CveEmpresa = 119 AndAlso Not CveSubProyectoAlmacen.ToString.Contiene(UsuarioActual.Empresa.Funcionalidad(347)) Then
+                    AplicaLote = False
+                    AplicaCaducidad = False
+                End If
                 'activa seccion
                 ThSeccionSalida.Visible = AplicaSeccion
                 TrSeccionSalida.Visible = AplicaSeccion