From 5408267ff716e5d65fd2e62cb8f1a0c25de997fd Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 23 Jun 2022 17:08:55 -0700
Subject: [PATCH] -- registro de virtual

---
 Inventarios/EntradasSalidas.aspx.vb | 9 +++++++++
 1 file changed, 9 insertions(+)

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