Correcion de servicio a domicilio

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