From 48ea8500007d0bab354b32a7da89fec7e7a13024 Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 13 Feb 2025 11:41:24 -0700 Subject: [PATCH] =?UTF-8?q?--=20=20activaci=C3=B3n=20de=20tipo=20de=20comp?= =?UTF-8?q?ra=20(16)=20apoyo=20sin=20virtuales?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Inventarios/RecepcionAlmacen.aspx.vb | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb index bd1291701..d6dfc008a 100644 --- a/Inventarios/RecepcionAlmacen.aspx.vb +++ b/Inventarios/RecepcionAlmacen.aspx.vb @@ -1076,7 +1076,9 @@ Partial Class Inventarios_RecepcionAlmacen If TipoMovimiento = 3 Then CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "21", CveTipoCompra) Else - CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, "22", CveTipoCompra) + Dim tTipoAlm As String = "22" + If CveTipoCompra = 16 Then tTipoAlm = "22,1,24" ' apoyos, "acumuladores sin virtual" o "virtual solo" + CargaAlmacenes(DtRecepcion.Rows(0)("CveSubProyecto").ToString.ToEntero, tTipoAlm, CveTipoCompra) End If Else @@ -1112,8 +1114,8 @@ Partial Class Inventarios_RecepcionAlmacen DivVirtualAdvertencia.Visible = False End If - 'SI LA COMPRA ES DE TIPO "APOYO LOGISTICO" NO DEBE GENERAR VIRTUAL - If Not SumarImporteUsados AndAlso CveTipoCompra = 9 Then + 'SI LA COMPRA ES DE TIPO "APOYO LOGISTICO" NO DEBE GENERAR VIRTUAL (9) y apoyo sin virtual (16) + If Not SumarImporteUsados AndAlso CveTipoCompra.Contiene(9, 16) Then RealizarMovimientoVirtual = False DivVirtualAdvertencia.Visible = False End If