diff --git a/Inventarios/RecepcionAlmacen.aspx.vb b/Inventarios/RecepcionAlmacen.aspx.vb
index 3c2820087..c1ebce941 100644
--- a/Inventarios/RecepcionAlmacen.aspx.vb
+++ b/Inventarios/RecepcionAlmacen.aspx.vb
@@ -1010,7 +1010,12 @@ 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()