diff --git a/Inventarios/EntregaAlmacen.aspx.vb b/Inventarios/EntregaAlmacen.aspx.vb
index f0ffeda0b..41d6e338c 100644
--- a/Inventarios/EntregaAlmacen.aspx.vb
+++ b/Inventarios/EntregaAlmacen.aspx.vb
@@ -636,9 +636,7 @@ Partial Class Inventarios_EntregaAlmacen
 
                     'filtra los Almacenes de domicilio
                     If DtDatos.Rows(0)("ServicioDomicilio").ToString() = "True" Then
-                        StrAlmacenes = String.Format("{0} AND Almacen like '%Domicilio%' ", StrAlmacenes)
-                    Else
-                        StrAlmacenes = String.Format("{0} AND NOT (Almacen like '%Domicilio%') ", StrAlmacenes)
+                        StrAlmacenes = "CveTipoAlmacen = 29"
                     End If
 
                     trObsGral.Visible = drE("Observaciones").ToString() <> ""