diff --git a/Inventarios/RepExistenciasCostos.aspx b/Inventarios/RepExistenciasCostos.aspx
index 865f278ec..5df327151 100644
--- a/Inventarios/RepExistenciasCostos.aspx
+++ b/Inventarios/RepExistenciasCostos.aspx
@@ -132,7 +132,7 @@
                     <Columns>
                         <asp:HyperLinkField HeaderText="Fecha" ItemStyle-Width="75px" DataTextField="FechaMovto" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" />
                         <asp:BoundField HeaderText="Almacen"  DataField="Almacen" />
-                        <asp:HyperLinkField HeaderText="Folio" ItemStyle-Width="100px" DataTextField="Folio" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" />
+                        <asp:HyperLinkField HeaderText="Folio" ItemStyle-Width="100px" DataTextField="Folio" ItemStyle-CssClass="Texto" DataNavigateUrlFields="CveMovimiento" ItemStyle-HorizontalAlign="Right" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" />
                         <asp:BoundField HeaderText="Activo Fijo" DataField="CodigoAF" ItemStyle-HorizontalAlign="Left" Visible="false" />
                         <asp:BoundField HeaderText="SubProyecto" DataField="SubProyecto" ItemStyle-HorizontalAlign="Left" Visible="false" />
                         <asp:BoundField HeaderText="Entradas" ItemStyle-Width="75px" DataField="Entradas" DataFormatString="{0:#,###.##}" ItemStyle-HorizontalAlign="Right"/>
diff --git a/Inventarios/RepExistenciasCostos.aspx.vb b/Inventarios/RepExistenciasCostos.aspx.vb
index ad3a4570a..219b6d67b 100644
--- a/Inventarios/RepExistenciasCostos.aspx.vb
+++ b/Inventarios/RepExistenciasCostos.aspx.vb
@@ -129,6 +129,8 @@ Partial Class Inventarios_RepExistenciasCostos
         DdlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1)
         DdlAlmacen.DataBind()
         DdlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
+        DdlAlmacen.SelectedValueExist(UsuarioActual.CveAlmacen)
+
         If Not IsNothing(Request("CveAlmacen")) Then
             If DdlAlmacen.Items.FindByValue(Request("CveAlmacen").ToString) Is Nothing Then
                 Dim CveAlmacen = Request("CveAlmacen").ToString