diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 8c0308a63..304ebc135 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -1138,8 +1138,9 @@ Partial Class PopUpVerFactura
     Private Sub CargaMovimientosAlmacen(CveMovimiento As Integer)
         Dim ObjInventarios As New ClsInventarios
 
-        ObjInventarios.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa)
-        Dim CveConcepto = ObjInventarios.CveConcepto
+        ObjInventarios.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa)
+
+        Dim CveConcepto As Integer = ObjInventarios.CveConcepto
         Dim Folio As String = ObjInventarios.Folio.ToString
         Dim CveCompra = ObjInventarios.CveCompra
         Dim Fecha As String = ObjInventarios.Fecha.ToShortDateString
@@ -1201,6 +1202,11 @@ Partial Class PopUpVerFactura
         Dim DepartamentoEntrega As String = ObjInventarios.DepartamentoEntrega
         Dim FechaMovimiento As Date = ObjInventarios.FechaRegistro
 
+        Dim CveMovimientoRelacionado As Integer = -1
+        If UsuarioActual.CveEmpresa = 140 AndAlso ObjInventarios.DtResultados.Rows.Count > 0 Then
+            CveMovimientoRelacionado = ObjInventarios.DtResultados.Rows(0)("CveMtoRel").ToString().ToEntero()
+        End If
+
         If CveConcepto = 3 Or CveConcepto = 18 Or CveConcepto = 30 Or CveConcepto = 34 Or CveConcepto = 35 Or CveConcepto = 16 Or CveConcepto = 7 Then 'SALIDA Y DEVOLUCION DEL CLIENTE
             If ObjInventarios.GetMovimientosDetalleImpresion(CveMovimiento, UsuarioActual.CveEmpresa) Then
                 DtMovimientos = ObjInventarios.DtResultados
@@ -1214,7 +1220,29 @@ Partial Class PopUpVerFactura
             End If
         Else
             If ObjInventarios.GetMovimientosDetalle(CveMovimiento, UsuarioActual.CveEmpresa) Then
-                DtMovimientos = ObjInventarios.DtResultados
+                DtMovimientos = ObjInventarios.DtResultados.Copy()
+
+                If UsuarioActual.CveEmpresa = 140 AndAlso CveMovimientoRelacionado > 0 Then
+                    If ObjInventarios.GetMovimientos(CveMovimientoRelacionado, -1, -1, UsuarioActual.CveEmpresa) Then
+                        Dim CveAlmacenRelacionado As Integer = ObjInventarios.CveAlmacen
+                        Dim CveTipoAlmacenRelacionado As Integer = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveTipoAlmacen", $"CveAlmacen = {CveAlmacenRelacionado}").ToString.ToEntero
+
+                        'SI TIENE RELACIONADO UN MOVIMIENTO VIRTUAL DEBE AGREGAR ESTE MOVIMIENTO A LA IMPRESION
+                        If CveTipoAlmacenRelacionado = 24 Then
+                            If ObjInventarios.GetMovimientosDetalle(CveMovimientoRelacionado, UsuarioActual.CveEmpresa) Then
+                                Dim DtUsados As DataTable = ObjInventarios.DtResultados.Copy()
+                                Dim IndexInicialUsados As Integer = DtMovimientos.Rows.Count + 1
+
+                                For Each Dr As DataRow In DtUsados.Rows
+                                    Dr("No") = IndexInicialUsados
+                                    IndexInicialUsados += 1
+                                Next
+
+                                DtMovimientos.Merge(DtUsados)
+                            End If
+                        End If
+                    End If
+                End If
 
                 DtMovimientos.Columns("No").AutoIncrement = True
                 DtMovimientos.Columns("No").AutoIncrementSeed = DtMovimientos.Rows.Count + 1
@@ -1996,7 +2024,6 @@ Partial Class PopUpVerFactura
                 End If
 
 
-
                 Dim Archivo As New System.IO.FileInfo(String.Format(RutaFormato, UsuarioActual.Empresa.Ruta))
                 If Archivo.Exists Then
                     params.Add(New ReportParameter("Observaciones", Observaciones)) 'TxtObservaciones.Text