diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index a35765415..db965ef7c 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -644,15 +644,6 @@ Partial Class Inventarios_TraspasoAlmacen
 
                     Dim tSerie As String = If(TxtnSerie.Visible, TxtnSerie.Text, "-1")
 
-                    'If UsuarioActual.CveEmpresa = 140 Then
-                    '    Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").ToEntero
-
-                    '    If Not CveSubProyecto.Contiene(11791, 11793, 11993, 11994, 11794, 11797, 11795, 12010, 12011) Then
-                    '        tSerie = "-1"
-                    '    End If
-
-                    'End If
-
                     Dim Valido = ValidaExistencia(Cantidad, CveProducto, DdlUnidad.SelectedValue.ToEntero, DdlSeccionAlmacen.SelectedValue.ToEntero, tSerie, tLote, tCaducidad)
 
                     If Valido Then
@@ -1476,16 +1467,6 @@ Partial Class Inventarios_TraspasoAlmacen
 
                 Dim AplicaSerie As Boolean = CBool(drP("AplicaSerie"))
 
-                ''codigo temporal
-                'If UsuarioActual.CveEmpresa = 140 Then
-                '    Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen = {DdlAlmacenOrigen.SelectedValue}").ToEntero
-
-                '    If Not CveSubProyecto.Contiene(11793, 11993, 11794, 11795, 12010, 12011) Then
-                '        AplicaSerie = False
-                '    End If
-
-                'End If
-
                 ThSerie.Visible = AplicaSerie
                 TdSerie.Visible = AplicaSerie
                 TxtnSerie.Visible = AplicaSerie