From 4f86169b8904b6c6db6eb22754fd430c3523b01d Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Wed, 18 Aug 2021 07:17:30 -0700
Subject: [PATCH] =?UTF-8?q?--=20condici=C3=B3n=20e=20almacenes=20usados?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index d80260672..1508fa1f5 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -1010,7 +1010,11 @@ Partial Class Inventarios_RecepcionAlmacen
                             ValidarRecepcionUsados = True
                             DtRecepcion = ObjInventario.DtResultados.Copy()
 
-                            CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra)
+                            If TipoMovimiento = 3 Then
+                                CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "21", CveTipoCompra)
+                            Else
+                                CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra)
+                            End If
 
                         Else
                             DtRecepcion = ObjInventario.DtResultados.Copy()