diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 13e274982..8893506f5 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -3041,7 +3041,6 @@ Partial Class Inventarios_RecepcionAlmacen
 
                             Dim CveTipoAlmacenFiltro As Integer = If(CveTipoCompra = 9, 25, 24)
 
-
                             CveMovimientoVirtual = ObjInventario.AddMovimiento(CveAlmacenVirtual, If(TipoMovimiento > 1, 37, 36), 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveCompraSurtir, -1, -1, -1, CveMovimientoRelacionado:=CveMovimiento, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RA/G4")
                             FolioVirtual = ObjInventario.Folio
 
@@ -3063,11 +3062,27 @@ Partial Class Inventarios_RecepcionAlmacen
                                 End If
                             End If
 
+                            Dim tConcepto As String = String.Format("Entrada Virtual {0}", HLFolio.Text)
+                            Dim tReferencia As String = HLFolio.Text
+                            Dim tCvePrePoliza = ObjConta.AddPrePolizas("Inv_RAlmVirtual", 74, 0, 0, 1, TxtFecha.Text.ToDate, tConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
+
+                            If tCvePrePoliza > 0 Then
+
+                                If ObjConta.AddPrePolizasDetalle(tCvePrePoliza, True, ImporteIngresoAdicional, tReferencia, 205, tConcepto, TxtFecha.Text.ToDate, 0, -1, CveCompra:=CveCompraSurtir, CveMovimientoAlmacen:=CveMovimientoVirtual, ImporteMX:=ImporteIngresoAdicional) Then
+
+                                    If Not ObjConta.AddPrePolizasDetalle(tCvePrePoliza, False, ImporteIngresoAdicional, tReferencia, 68, tConcepto, TxtFecha.Text.ToDate, 0, -1, CveCompra:=CveCompraSurtir, CveMovimientoAlmacen:=CveMovimientoVirtual, ImporteMX:=ImporteIngresoAdicional) Then
+                                        ErrorMovInv = True
+                                    End If
+                                Else
+                                    ErrorMovInv = True
+                                End If
+                            Else
+                                ErrorMovInv = True
+                            End If
                         Else
                             ErrorMovInv = True
                         End If
                     End If
-
                 End If
 
                 'DEVENGAR AC