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()