diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index 3f30dd49c..d87eb3840 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -6185,7 +6185,7 @@ Namespace Modelos
                                     If Not ErrorCancelar Then
                                         If ObjInventario.GetInv_Mov(CveVenta, UsuarioActual.CveEmpresa) Then
                                             DtMovRemision = ObjInventario.DtResultados.FiltraParametros("CveTipoAlmacen = 10")
-                                            CveAlmacenGeneral = ObjInventario.DtResultados.FiltroPrimeroValor("CveAlmacen", "CveTipoAlmacen = 1").ToString().ToEntero()
+                                            CveAlmacenGeneral = ObjInventario.DtResultados.FiltroPrimeroValor("CveAlmacen", "CveTipoAlmacen IN (1,4)").ToString().ToEntero()
                                             'SI ES SERVICIO A DOMICILIO DEBE REGRESAR A ESTE TIPO DE ALMACEN
                                             If Me.ServicioDomicilio Then
                                                 CveAlmacenGeneral = ObjInventario.DtResultados.FiltroPrimeroValor("CveAlmacen", "CveTipoAlmacen = 29").ToString().ToEntero()