diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index f26610ca8..2b0692add 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -1906,11 +1906,11 @@ Partial Class Inventarios_TraspasoAlmacen
         Public Property FolioSalidaTransitorio As Integer = 0
     End Class
 
-    Private Function CancelarTraspaso(ByRef ObjInventario As ClsInventarios, ByRef ObjConta As ClsContabilidad, CveAlmacenDestino As Integer, Fecha As DateTime) As MCancelacionTraspaso
+    Private Function CancelarTraspaso(ByRef ObjInventario As ClsInventarios, ByRef ObjConta As ClsContabilidad, CveAlmacenOrigen As Integer, CveAlmacenDestino As Integer, Fecha As DateTime) As MCancelacionTraspaso
         Dim Retorno As New MCancelacionTraspaso()
         Dim ErrorMovInv As Boolean = False
         Try
-            Dim CveMovimientoEntrada As Integer = ObjInventario.AddMovimiento(CveAlmacenDestino, 27, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
+            Dim CveMovimientoEntrada As Integer = ObjInventario.AddMovimiento(CveAlmacenOrigen, 27, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
                                                                Observaciones:=TxtObservacionesRecepcion.Text.Trim, Recibio:=TxtRecibio.Text, CveAlmacenDestino:=CveAlmacenDestino,
                                                                CveMovimientoRelacionado:=CveMovimientoSalida, Modulo:="TA/C")
             If CveMovimientoEntrada <= 0 Then
@@ -2181,7 +2181,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
             'AGREGAMOS LA SALIDA
             CveMovimientoSalidaTransitorio = ObjInventario.AddMovimiento(CveAlmacenSalida, 8, 1, Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1,
-                                                              Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveAlmacenDestino:=GvDatosRecepcion.Rows(0).DataKey("CveAlmacenSalida").ToEntero, CveMovimientoRelacionado:=CveMovimientoEntrada, Modulo:="TA/G11")
+                                                              Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveAlmacenDestino:=CveAlmacenEntrada, CveMovimientoRelacionado:=CveMovimientoEntrada, Modulo:="TA/G11")
 
             If CveMovimientoSalidaTransitorio <= 0 Then
                 TextoError = "No se pudo generar el movimiento de salida correctamente"
@@ -2361,7 +2361,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
             Dim CancelacionTraspaso As MCancelacionTraspaso = Nothing
             If UsuarioActual.Empresa.Funcionalidad(162) = "1" AndAlso ChkRealizarDevolucion.Checked AndAlso Not ErrorMovInv Then
-                CancelacionTraspaso = CancelarTraspaso(ObjInventario, ObjConta, GvDatosRecepcion.Rows(0).DataKey("CveAlmacenSalida").ToEntero, TxtFechaRecepcion.Text.ToDateTime())
+                CancelacionTraspaso = CancelarTraspaso(ObjInventario, ObjConta, GvDatosRecepcion.Rows(0).DataKey("CveAlmacenSalida").ToEntero, GvDatosRecepcion.Rows(0).DataKey("CveAlmacenDestino").ToEntero, TxtFechaRecepcion.Text.ToDateTime())
                 If CancelacionTraspaso IsNot Nothing Then
                     ErrorMovInv = CancelacionTraspaso.TieneError
                 End If