diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index d9e7eb460..0f6c0d834 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -2952,15 +2952,22 @@ Partial Class Inventarios_TraspasoAlmacen
                         If CveProducto > 0 Then
 
                             Dim Valido As Boolean = True
+                            Dim ValidarLote As Boolean = True
 
-                            If RowPS("AplicaSerie").ToString() = "True" And (String.IsNullOrEmpty(Serie.Trim()) OrElse Serie = "-1") Then
-                                Valido = False
-                                Alert($"El producto '{RowPS("PS")}' requiere 'Serie'", TipoMensaje.MsgAdvertencia)
-                                ProductosNoCargados.AppendFormat("{0},", RowPS("PS").ToString())
+                            If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").ToEntero = 6 Then
+                                ValidarLote = False
                             End If
 
-                            If RowPS("AplicaSerie").ToString() = "True" AndAlso Not String.IsNullOrEmpty(Serie.Trim()) Then
-                                NoPSConSerie = NoPSConSerie + 1
+                            If ValidarLote Then
+                                If RowPS("AplicaSerie").ToString() = "True" And (String.IsNullOrEmpty(Serie.Trim()) OrElse Serie = "-1") Then
+                                    Valido = False
+                                    Alert($"El producto '{RowPS("PS")}' requiere 'Serie'", TipoMensaje.MsgAdvertencia)
+                                    ProductosNoCargados.AppendFormat("{0},", RowPS("PS").ToString())
+                                End If
+
+                                If RowPS("AplicaSerie").ToString() = "True" AndAlso Not String.IsNullOrEmpty(Serie.Trim()) Then
+                                    NoPSConSerie = NoPSConSerie + 1
+                                End If
                             End If
 
                             If Valido AndAlso (Cantidad > 0 AndAlso RowPS("VentaMinima").ToString.ToDecimal > 0) Then