diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index b79f29538..b02bf0718 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -186,7 +186,7 @@ Partial Class Inventarios_TraspasoAlmacen
             If UsuarioActual.CveEmpresa = 119 Then
                 divGastoIndirecto.Visible = False
                 LblGastoIndirecto.Visible = False
-                divResponsable.Visible = False
+                DivResponsable.Visible = False
             End If
 
             CargaCombos()
@@ -238,7 +238,7 @@ Partial Class Inventarios_TraspasoAlmacen
             End If
 
         Else
-                If ChkTransitorio.Checked Then
+            If ChkTransitorio.Checked Then
                 RegistraScript(" $('#DivGastoIndirecto').show(0); ")
                 DivResponsable.Visible = True
                 DivTransitorio2.Visible = True
@@ -437,11 +437,15 @@ Partial Class Inventarios_TraspasoAlmacen
         'dtAlm.Merge(GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 2))
 
         'Llena Almacen Destino, todos los almacenes destino,
+        'Dim CveSubP As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero).FiltroPrimeroValor("CveSubProyecto", "").ToEntero
 
-        DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11,24) AND Estatus = 'Activo'")
-        'DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 4")
-        DdlAlmacenDestino.DataBind()
-        DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+        'DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("CveTipoAlmacen NOT IN (3,4,9,10,11,24) AND Estatus = 'Activo' AND CveSubProyecto = {0}", CveSubP))
+        ''DdlAlmacenDestino.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen <> 4")
+        'DdlAlmacenDestino.DataBind()
+        'DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
+        CargaAlmacenDestino()
 
         'Llena Almacen Transitorio
         DdlAlmacenTransitorio.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, 3)