diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index 4187a209a..69d81ca6f 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -1610,10 +1610,12 @@ Partial Class Inventarios_TraspasoAlmacen
 
             If TxtFolioRecepcion.Text.Trim <> "" Then
                 CveMovimientoSalida = Dtt.FiltroPrimeroValor("CveMovimiento", "").ToEntero
-
+                CveAlmacenTransitorio = Dtt.FiltroPrimeroValor("CveAlmacenTransitorio", "").ToEntero
+            Else
+                CveAlmacenTransitorio = DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero
             End If
             CveAlmacenDestino = DdlAlmacenRecepcion.SelectedValue.ToEntero
-            CveAlmacenTransitorio = DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero
+
             'CveUsuarioResponsable = DdlResponsableRecepcion.SelectedValue.ToEntero
 
             GvDatosRecepcion.DataSource = Dtt
@@ -1899,6 +1901,13 @@ Partial Class Inventarios_TraspasoAlmacen
                 Exit Sub
             End If
 
+            Dim CveAlmacenSalida As Integer = DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero
+
+            If CveAlmacenTransitorio <> CveAlmacenSalida Then
+                Alert("El almacen transitorio debe coincidir con el del movimiento.", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
 
             Dim ObjInventario As New ClsInventarios
             Dim Dtt As DataTable = Nothing
@@ -1925,7 +1934,7 @@ Partial Class Inventarios_TraspasoAlmacen
             Dim Fecha As Date = TxtFechaRecepcion.Text.ToDate
 
             Dim CveAlmacenEntrada As Integer = GvDatosRecepcion.Rows(0).DataKey("CveAlmacenDestino").ToEntero
-            Dim CveAlmacenSalida As Integer = DdlAlmacenTransitorioRecepcion.SelectedValue.ToEntero
+
 
             Dim TipoAlmacenDestino As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenEntrada}").ToEntero()
             Dim TipoAlmacenOrigen As Integer = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenSalida}").ToEntero()