diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 15a4aaa3e..7b4646f64 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -1451,6 +1451,7 @@ Partial Class Inventarios_TraspasoAlmacen
         Else
             RegistraScript("$('#DivTransitorio').hide(500);$('#DivGastoIndirecto').hide(500);$('#DivDocChofer').hide(500);")
         End If
+        CargaAlmacenDestino()
 
         SiguienteFolio(If(ChkTransitorio.Checked, 9, 8))
     End Sub
@@ -2846,29 +2847,42 @@ Partial Class Inventarios_TraspasoAlmacen
             DdlSeccionAlmacen.Items.Insert(0, New ListItem("Seleccione", "-1"))
             UpDatos.Update()
 
-            Dim DrAlmO As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero).FiltroPrimero("")
-            If DrAlmO("CveTipoAlmacen").ToString.ToEntero = 26 Then 'costeados
+            CargaAlmacenDestino()
 
-                DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen  IN (26) AND Estatus = 'Activo'")
-                DdlAlmacenDestino.DataBind()
-                DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        End If
+    End Sub
+
+    Private Sub CargaAlmacenDestino()
+
+        Dim DrAlmO As DataRow = GlobalDTAlmacen(UsuarioActual.CveEmpresa, CveAlmacen:=DdlAlmacenOrigen.SelectedValue.ToEntero).FiltroPrimero("")
+        If DrAlmO("CveTipoAlmacen").ToString.ToEntero = 26 Then 'costeados
+
+            DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen  IN (26) AND Estatus = 'Activo'")
+            DdlAlmacenDestino.DataBind()
+            DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        Else
+
+            Dim Str As String
+            If ChkTransitorio.Checked Then
+                Str = "" ' String.Format(" AND CveSubProyecto <> {0}  ", DrAlmO("CveSubProyecto")) 'RMF. pueden haber almacen que esten dentro de lamisma sucursal, pero que requeiren transitorio
             Else
-
-                DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11,24) AND Estatus = 'Activo'")
-                DdlAlmacenDestino.DataBind()
-                DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
+                Str = String.Format(" AND CveSubProyecto = {0}  ", DrAlmO("CveSubProyecto"))
             End If
+            DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros(String.Format("  CveTipoAlmacen NOT IN (3,4,9,10,11,24) AND Estatus = 'Activo' {0}   ", Str))
+            DdlAlmacenDestino.DataBind()
+            DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
+
         End If
     End Sub
 
     Protected Sub DdlAlmacenDestino_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlAlmacenDestino.SelectedIndexChanged
 
-        If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenDestino.SelectedValue.ToEntero}").ToString.ToEntero = 21 Then
-            ChkTransitorio.Checked = False
-            ChkTransitorio.Enabled = False
-        Else
-            ChkTransitorio.Enabled = True
-        End If
+        'If GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {DdlAlmacenDestino.SelectedValue.ToEntero}").ToString.ToEntero = 21 Then
+        '    ChkTransitorio.Checked = False
+        '    ChkTransitorio.Enabled = False
+        'Else
+        '    ChkTransitorio.Enabled = True
+        'End If
         If DdlAlmacenDestino.SelectedValue.ToEntero > 0 Then
             DdlSeccionAlmacenDestino.DataSource = GlobalDTSeccionAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenDestino.SelectedValue.ToEntero)
             DdlSeccionAlmacenDestino.DataBind()