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