diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 5cb82bd97..6c3071161 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -296,6 +296,15 @@ Partial Class Inventarios_EntradasSalidas
         End Set
     End Property
 
+    Public Property CveTipoAlmacenSeleccionado As Integer
+        Get
+            Return IfNull(ViewState("CveTipoAlmacenSeleccionado"), -1).ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveTipoAlmacenSeleccionado") = value
+        End Set
+    End Property
+
 
 #End Region
 
@@ -1393,9 +1402,13 @@ Partial Class Inventarios_EntradasSalidas
         Dim FechaCaducidadVal As Date = If(RowPS("AplicaCaducidad").ToString = "True", FechaCaducidad, MinFecha)
 
 
+
         If RowPS("AplicaSerie").ToString = "True" And (String.IsNullOrEmpty(Serie.Trim()) OrElse Serie = "-1") Then
-            Valido = False
-            Alert("El producto requiere Serie", TipoMensaje.MsgAdvertencia)
+            'SI NO ES USADO O GARANTIA
+            If Not Me.CveTipoAlmacenSeleccionado.Contiene(6, 22) Then
+                Valido = False
+                Alert("El producto requiere Serie", TipoMensaje.MsgAdvertencia)
+            End If
         End If
 
         If RowPS("VentaMinima").ToString.ToDecimal > 0 Then
@@ -1444,6 +1457,10 @@ Partial Class Inventarios_EntradasSalidas
                 Exit Sub
             End If
 
+            If String.IsNullOrEmpty(PS.Trim()) Then
+                PS = RowPS("PS").ToString()
+            End If
+
             Dim registro As DataRow = DtMovimientos.NewRow
             registro.Item("Cantidad") = Cantidad
             registro.Item("CveUM") = CveUM
@@ -2181,6 +2198,8 @@ Partial Class Inventarios_EntradasSalidas
         Dim filtro As String = ""
         Dim CveTipoAlmacen = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacen.SelectedValue}").ToEntero
 
+        Me.CveTipoAlmacenSeleccionado = CveTipoAlmacen
+
         filtro = If(UsuarioActual.TienePermisoProceso(144), "CveConcepto NOT IN (1,4,5,8,9,10,12,26,27)", "CveConcepto NOT IN (1,2,4,5,8,9,10,12,26,27)")
 
         If DdlAlmacen.SelectedValue = "-1" Then