diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb
index fcd8bcd3f..e0cc7a960 100644
--- a/App_Code/ClsInventarios.vb
+++ b/App_Code/ClsInventarios.vb
@@ -1241,7 +1241,7 @@ Public Class ClsInventarios
         Return Retorno
     End Function
 
-    Public Function GetMovimientosDetalleVirtual(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveCompra As Integer = -1) As Boolean
+    Public Function GetMovimientosDetalleVirtual(CveMovimiento As Integer, CveEmpresa As Integer, Optional CveCompra As Integer = -1, Optional CveMovimientoRelacionado As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Inv_MovimientosDetalleVirtualGet")
 
@@ -1249,6 +1249,7 @@ Public Class ClsInventarios
             .Add("@CveMovimiento", SqlDbType.Int).Value = CveMovimiento
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveCompra", SqlDbType.Int).Value = CveCompra
+            .Add("@CveMovimientoRelacionado", SqlDbType.Int).Value = CveMovimientoRelacionado
         End With
         Try
             SqlAdapter.Fill(Data)
diff --git a/Inventarios/TraspasoAlmacen.aspx.vb b/Inventarios/TraspasoAlmacen.aspx.vb
index e40e86ff5..0a27020c6 100644
--- a/Inventarios/TraspasoAlmacen.aspx.vb
+++ b/Inventarios/TraspasoAlmacen.aspx.vb
@@ -369,7 +369,7 @@ Partial Class Inventarios_TraspasoAlmacen
 
         'Llena Almacen Destino, todos los almacenes destino,
 
-        DdlAlmacenDestino.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11) AND Estatus = 'Activo'")
+        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"))
@@ -380,7 +380,7 @@ Partial Class Inventarios_TraspasoAlmacen
         DdlAlmacenTransitorio.Items.Insert(0, New ListItem("Seleccione", "-1"))
 
         'Llena Almacen Recepcion
-        DdlAlmacenRecepcion.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11)")
+        DdlAlmacenRecepcion.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11,24)")
         DdlAlmacenRecepcion.DataBind()
         DdlAlmacenRecepcion.Items.Insert(0, New ListItem("Todos", "-1"))
 
@@ -440,7 +440,7 @@ Partial Class Inventarios_TraspasoAlmacen
     Private Sub CargaAlmacenOrigen()
         DdlAlmacenOrigen.Enabled = True
         DdlAlmacenOrigen.Items.Clear()
-        DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11)")
+        DdlAlmacenOrigen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1).FiltraParametros("CveTipoAlmacen NOT IN (3,4,9,10,11,24)")
         DdlAlmacenOrigen.Items.Insert(0, New ListItem(" Seleccione ", "-1"))
         DdlAlmacenOrigen.SelectedValue = "-1"
         DdlAlmacenOrigen.DataBind()
@@ -1517,6 +1517,8 @@ Partial Class Inventarios_TraspasoAlmacen
         Dim ErrorMovInv As Boolean = False
         Dim TextoError As String = ""
         Dim Fecha As Date = TxtFechaRecepcion.Text.ToDate
+        Dim CveMovimientoVirtualEntrada As Integer = 0
+        Dim FolioVirtualEntrada As Integer = 0
 
         Dim ObjInventario As New ClsInventarios
         Dim ObjConta As New ClsContabilidad(ObjInventario.IniciaTransacSQL())
@@ -1599,28 +1601,28 @@ Partial Class Inventarios_TraspasoAlmacen
                 'End If
 
                 'VIRTUAL ENTRADA
-                Dim CveMovimientoVirtualEntrada As Integer = 0
-                Dim FolioVirtualEntrada As Integer = 0
+
                 If UsuarioActual.Empresa.Funcionalidad(573) = "1" Then
-                    Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {DdlAlmacenRecepcion.SelectedValue}").ToEntero()
+                    Dim CveSubProyecto As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", $"CveAlmacen= {GvDatosRecepcion.Rows(0).DataKey("CveAlmacenSalida").ToEntero}").ToEntero()
 
                     Dim CveAlmacenVirtual As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveTipoAlmacen =24 AND CveSubProyecto={CveSubProyecto}").ToEntero()
 
                     If CveAlmacenVirtual > 0 Then
 
-                        CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="TA/S2")
+                        CveMovimientoVirtualEntrada = ObjInventario.AddMovimiento(CveAlmacenVirtual, 36, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, Observaciones:=TxtObservacionesRecepcion.Text.Trim, CveMovimientoRelacionado:=CveMovimientoEntrada, Modulo:="TA/C2")
                         FolioVirtualEntrada = ObjInventario.Folio
                         Dim dtvirtual As DataTable = Nothing
 
-                        If CveMovimientoVirtualEntrada > 0 AndAlso ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoSalida, UsuarioActual.CveEmpresa) Then
+                        If CveMovimientoVirtualEntrada > 0 AndAlso ObjInventario.GetMovimientosDetalleVirtual(CveMovimientoEntrada, UsuarioActual.CveEmpresa, CveMovimientoRelacionado:=CveMovimientoSalida) Then
                             dtvirtual = ObjInventario.DtResultados
                             For Each RowVirtual As DataRow In dtvirtual.Rows
                                 Dim CvePS = RowVirtual("CvePS").ToString().ToEntero()
                                 Dim CantidadUsado As Decimal = RowVirtual("Cantidad").ToString().ToDecimal()
-                                Dim PU As Decimal = RowVirtual("PU").ToString().ToDecimal()
+                                Dim PU As Decimal = RowVirtual("PUOriginal").ToString().ToDecimal()
                                 Dim CveUM As Integer = RowVirtual("CveUM").ToString().ToEntero()
+                                Dim CostoIndirecto As Decimal = RowVirtual("CostoIndirecto").ToString().ToDecimal()
 
-                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualEntrada, CantidadUsado, CveUM, CvePS, PU, -1, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
+                                If Not ObjInventario.AddMovimientoDetalle(CveMovimientoVirtualEntrada, CantidadUsado, CveUM, CvePS, PU, -1, CostoIndirecto:=CostoIndirecto, CveUsuarioModifico:=UsuarioActual.CveUsuario) Then
                                     ErrorMovInv = True
                                     Exit For
                                 End If
@@ -1670,6 +1672,7 @@ Partial Class Inventarios_TraspasoAlmacen
             Dim Mensaje As StringBuilder = New StringBuilder
             Mensaje.AppendFormat("Se realizo correctamente la cancelación. <br/> Folio de Entrada: <b><a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{0}</a></b>", Folio, CveMovimientoEntrada)
             Mensaje.AppendFormat("<br/><a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Reporte</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoEntrada))) 'onclick='ImprimirTraslado()'
+            If CveMovimientoVirtualEntrada > 0 Then Mensaje.AppendFormat("<br/>Folio: <a href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={1}"" target=""_blank"">{2}</a>&nbsp;<a target='_blank' href='/Compras/PopUpVerFactura.aspx?P={0}'>Imprimir Entrada Virtual</a>", Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoVirtualEntrada)), CveMovimientoVirtualEntrada, FolioVirtualEntrada)
 
             Alert(Mensaje.ToString, TipoMensaje.MsgInformacion)