diff --git a/Inventarios/EntradasSalidas.aspx.vb b/Inventarios/EntradasSalidas.aspx.vb
index 746e42d4f..81100bbc3 100644
--- a/Inventarios/EntradasSalidas.aspx.vb
+++ b/Inventarios/EntradasSalidas.aspx.vb
@@ -4468,6 +4468,15 @@ Partial Class Inventarios_EntradasSalidas
             End If
         End If
 
+        Dim RetornoVirtual As MMovimientoVirtual = Nothing
+        If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
+            RetornoVirtual = GenerarMovimientoVirtual(CveMovimiento, ObjInventario)
+        End If
+
+        If RetornoVirtual IsNot Nothing Then
+            ErrorMovInv = RetornoVirtual.TieneError
+        End If
+
         If Not ErrorMovInv Then
             ObjInventario.Commit() ' aplica los movimientos insertados