diff --git a/Acumuladores/CatFoliosGarantia.aspx b/Acumuladores/CatFoliosGarantia.aspx
index 4dd384796..d5595991a 100644
--- a/Acumuladores/CatFoliosGarantia.aspx
+++ b/Acumuladores/CatFoliosGarantia.aspx
@@ -281,6 +281,14 @@
                                     <asp:RequiredFieldValidator ID="RfvLimite" runat="server" ControlToValidate="TxtLimite" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Folio''</b> es necesario, por favor ingréselo." ValidationGroup="GrpFolioGarantia"></asp:RequiredFieldValidator>
                                     <label for="<%= TxtLimite.ClientID.ToString()%>">Limite:</label>
                                     <i></i>
+                                </div>
+                                 <div class="form-group form-md-line-input input-iconright">
+                                    <label for="<%= DdlArea.ClientID.ToString()%>">Area:</label>&nbsp;
+                                    <asp:DropDownList ID="DdlArea" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar">
+                                        <asp:ListItem Value="1" Selected ="True">Piso</asp:ListItem>
+                                        <asp:ListItem Value="2">Almacen</asp:ListItem>
+                                    </asp:DropDownList>
+                                    <i></i>
                                 </div>
                                 <%--                                <div class="form-group form-md-line-input input-iconright" style="width: 170px!important">
                                     <asp:TextBox ID="TxtCargo" CssClass="form-control " Width="150px" runat="server" MaxLength="10" CausesValidation="true" Style="text-align: right!important; margin-right: 10px!important" OnKeyup="FormatoMoneda(this);"></asp:TextBox>
diff --git a/Acumuladores/CatFoliosGarantia.aspx.vb b/Acumuladores/CatFoliosGarantia.aspx.vb
index 1d4de3735..778a6275d 100644
--- a/Acumuladores/CatFoliosGarantia.aspx.vb
+++ b/Acumuladores/CatFoliosGarantia.aspx.vb
@@ -38,7 +38,7 @@ Partial Class Acumuladores_CatFoliosGarantia
 
         If Not Page.IsPostBack Then
             CargaSubProyectos()
-            CargadatosGvFolioGarantia(-1, "-1")
+            CargadatosGvFolioGarantia(DdlEstatus.SelectedValue.ToEntero, DdlTipoFolio.SelectedValue)
         End If
 
     End Sub
@@ -116,7 +116,7 @@ Partial Class Acumuladores_CatFoliosGarantia
 
 
         If Not Actualizar Then
-            If ObjAcum.FoliosGarantiaAdd(TxtFolioGarantia.Text, If(ChkEstatus.Checked = True, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlSubProyectos.SelectedValue.ToEntero, DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero, 2) Then
+            If ObjAcum.FoliosGarantiaAdd(TxtFolioGarantia.Text, If(ChkEstatus.Checked = True, 1, 0), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlSubProyectos.SelectedValue.ToEntero, DdlTipoFolioModal.SelectedValue, TxtLimite.Text.ToEntero, DdlArea.SelectedValue.ToEntero) Then
 
                 TxtFolioGarantia.Text = ""
                 ChkEstatus.Checked = True
diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb
index 9ac0d338f..b5a526673 100644
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -2621,7 +2621,7 @@ Partial Class Inventarios_RecepcionUsados
     Private Sub CargaFolioAjuste()
         DdlFolioGarantia.Items.Clear()
         Dim ObjAcum As New ClsAcumuladores
-        If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, Area:=2) Then
+        If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, Estatus:=1, Area:=2) Then
             DdlFolioGarantia.DataSource = ObjAcum.DtResultados
             DdlFolioGarantia.Items.Insert(0, New ListItem("Seleccione", "-1"))
         End If
diff --git a/Ventas/PV.aspx.vb b/Ventas/PV.aspx.vb
index 0c1cf7a08..a19c6152c 100644
--- a/Ventas/PV.aspx.vb
+++ b/Ventas/PV.aspx.vb
@@ -5772,7 +5772,7 @@ Partial Class PV
 
     Private Sub CargaAjuste()
         Dim ObjAcum As New ClsAcumuladores
-        If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, 1) Then
+        If ObjAcum.FoliosGarantiaGet(-1, UsuarioActual.CveEmpresa, Estatus:=1, Area:=1) Then
             DdlFolioGarantia.DataSource = ObjAcum.DtResultados
             DdlFolioGarantia.Items.Insert(0, New ListItem("Seleccione", "-1"))
         End If