diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 216ace50e..4a05f83af 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -1028,6 +1028,8 @@ Partial Class Inventarios_RecepcionAlmacen
                     CargaAlmacenes(-1, CveTipoCompra:=CveTipoCompra)
                 ElseIf TipoMovimiento = 3 Then 'devolucion al proveedor
                     CargaAlmacenes(-1, "1,21,2,27", CveTipoCompra)
+                ElseIf CveTipoCompra = 16 Then ' apoyo sin virtual y virtual aparte
+                    CargaAlmacenes(-1, "1", CveTipoCompra)
                 Else
                     CargaAlmacenes(-1)
                 End If
@@ -1076,7 +1078,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
@@ -2842,6 +2846,16 @@ Partial Class Inventarios_RecepcionAlmacen
                     'Next
 
                 End If
+
+                If Not ErrorMovInv Then
+                    'REPLICAR MOVTO GENERADO
+                    If UsuarioActual.CveEmpresa = 199 AndAlso CveMovimiento > 0 Then
+                        If Not ObjInventario.ReplicarMovtoEmpresa(UsuarioActual.CveEmpresa, CveMovimiento) Then
+                            ErrorMovInv = True
+                        End If
+                    End If
+                End If
+
             Else
                 ErrorMovInv = True
             End If