From 41feda0f9e58568b57e90d394cd98dfcbea2a8db Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 9 Mar 2022 15:18:15 -0700
Subject: [PATCH] =?UTF-8?q?prepoliza=20de=20garant=C3=ADa?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 Inventarios/EntregaAlmacen.aspx.vb | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index 4a3ee3bdf..db6535764 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -1805,6 +1805,7 @@ Partial Class Inventarios_EntregaAlmacen
             ObjConta.Dispose()
             ObjVentas.Dispose()
             ObjEventos.Dispose()
+            '' identificar que productos no están completos.
             CargaVentaPorSurtir(CveVentaSurtir)
             CargaPendientes()
             Alert("Ha sido cambiada la informacion de existencias de la venta actual, se han recargado la información.", TipoMensaje.MsgAdvertencia)
@@ -2331,6 +2332,11 @@ Partial Class Inventarios_EntregaAlmacen
                         End If
                         TotalGarantia += (RowGarantia("Cantidad").ToString().ToDecimal() * PU)
                     Next
+
+                    'se registra 
+                    If ContabilizaMovimientoAlmacen(ObjConta, TxtFecha.Text.ToDate, HLFolio.Text, "EntregaAlmacen", CveMovimiento, CveMovimientoEntrada, TotalGarantia, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, True) <= 0 Then
+                        ErrorMovInv = True
+                    End If
                 End If
             End If
             ' TERMINA: GARANTIAS