diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index d44ee8d3a..15a4aaa3e 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -2845,6 +2845,19 @@ Partial Class Inventarios_TraspasoAlmacen
             DdlSeccionAlmacen.DataBind()
             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
+
+                DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen  IN (26) AND Estatus = 'Activo'")
+                DdlAlmacenDestino.DataBind()
+                DdlAlmacenDestino.Items.Insert(0, New ListItem("Seleccione", "-1"))
+            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"))
+            End If
         End If
     End Sub