diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 7a55ed2b4..dcffa0622 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -1727,19 +1727,16 @@ Public Class ClsPaginas
     End Property
     Property GlobalDTAlmacen(CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = -1, Optional CveEstatus As Integer = 1) As DataTable
         Get
-            If CveEmpresa <> -1 Then
 
-                Dim Str As New StringBuilder
-                Str.AppendFormat(" CveEmpresa = {0} ", CveEmpresa)
-                If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen)
-                If CveEstatus > 0 Then Str.AppendFormat("AND CveEstatus = {0}", CveEstatus)
+            Dim Str As New StringBuilder
+            Str.Append("1=1 AND ")
+            If CveEmpresa <> -1 Then Str.AppendFormat(" CveEmpresa = {0} ", CveEmpresa)
+            If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen)
+            If CveEstatus > 0 Then Str.AppendFormat("AND CveEstatus = {0}", CveEstatus)
 
-                Dim Dv As New DataView(DirectCast(Application("GlobalDTAlmacen"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
-                GlobalDTAlmacen = Dv.ToTable
-                Dv.Dispose()
-            Else
-                GlobalDTAlmacen = DirectCast(Application("GlobalDTAlmacen"), DataTable)
-            End If
+            Dim Dv As New DataView(DirectCast(Application("GlobalDTAlmacen"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+            GlobalDTAlmacen = Dv.ToTable
+            Dv.Dispose()
 
         End Get
         Set(value As DataTable)
@@ -1748,18 +1745,16 @@ Public Class ClsPaginas
     End Property
     Property GlobalDTAlmacenUsuarios(CveUsuario As Integer, CveEmpresa As Integer, Optional CveTipoAlmacen As Integer = 1, Optional CveEstatus As Integer = 1) As DataTable
         Get
-            If CveEmpresa <> -1 Then
-                Dim Str As New StringBuilder
-                Str.AppendFormat("CveUsuario = {0} AND CveEmpresa = {1} ", CveUsuario, CveEmpresa)
-                If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen)
-                If CveEstatus > 0 Then Str.AppendFormat("AND CveEstatus = {0}", CveEstatus)
 
-                Dim Dv As New DataView(DirectCast(Application("GlobalDTAlmacenUsuarios"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+            Dim Str As New StringBuilder
+            If CveEmpresa <> -1 Then Str.AppendFormat("CveUsuario = {0} AND CveEmpresa = {1} ", CveUsuario, CveEmpresa)
+            If CveTipoAlmacen > 0 Then Str.AppendFormat("AND CveTipoAlmacen = {0}", CveTipoAlmacen)
+            If CveEstatus > 0 Then Str.AppendFormat("AND CveEstatus = {0}", CveEstatus)
+
+            Dim Dv As New DataView(DirectCast(Application("GlobalDTAlmacenUsuarios"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
                 GlobalDTAlmacenUsuarios = Dv.ToTable
-                Dv.Dispose()
-            Else
-                GlobalDTAlmacenUsuarios = DirectCast(Application("GlobalDTAlmacenUsuarios"), DataTable)
-            End If
+            Dv.Dispose()
+
 
         End Get
         Set(value As DataTable)
diff --git a/vwd.webinfo b/vwd.webinfo
index 8bbca547d..ea9dcacfe 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -30,6 +30,8 @@
     
   
     
+  
+