diff --git a/AF/AF.aspx b/AF/AF.aspx
index 93728a570..9c9d4f745 100644
--- a/AF/AF.aspx
+++ b/AF/AF.aspx
@@ -610,9 +610,9 @@
                                                                         <label class="  control-label">AF Padre:</label>
 
                                                                     </div>
-                                                                    <div class="col-md-7">
+                                                                    <div class="col-md-8">
                                                                         <div class="form-group">
-                                                                            <asp:DropDownList ID="DdlAFPadres" runat="server" AppendDataBoundItems="true" DataTextField="Codigo" DataValueField="CveActivoFijo" Class="table-group-action-input form-control input-inline input-sm select2me" Width="200px"></asp:DropDownList>
+                                                                            <asp:DropDownList ID="DdlAFPadres" runat="server" AppendDataBoundItems="true" DataTextField="CodigoDescripcion" DataValueField="CveActivoFijo" Class="table-group-action-input form-control input-inline input-sm select2me" Width="100%"></asp:DropDownList>
                                                                         </div>
                                                                     </div>
                                                                 </div>
diff --git a/AF/CatAF.aspx b/AF/CatAF.aspx
index 840217e53..7b11dbbb3 100644
--- a/AF/CatAF.aspx
+++ b/AF/CatAF.aspx
@@ -151,6 +151,10 @@
                                 <asp:ListItem Text="Sin Responsable" Value="-3"></asp:ListItem>
                             </asp:DropDownList>
                         </div>
+                        <div class="col-md-1">AF Padre:</div>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlAFPadres" runat="server" AppendDataBoundItems="true" DataTextField="CodigoDescripcion" DataValueField="CveActivoFijo" Class="table-group-action-input form-control input-inline input-sm select2me" Width="200px"></asp:DropDownList>
+                        </div>
                     </div>
                 </div>
             </div>
diff --git a/AF/CatAF.aspx.vb b/AF/CatAF.aspx.vb
index 728bba33b..6feb748f4 100644
--- a/AF/CatAF.aspx.vb
+++ b/AF/CatAF.aspx.vb
@@ -49,7 +49,7 @@ Partial Class AF_CatAF
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not Page.IsPostBack Then
-
+            ViewState("CveActivoFijo") = -1
             CargaCombos()
             CargaCaracteristicas()
 
@@ -129,7 +129,24 @@ Partial Class AF_CatAF
         CargarTipoActivoFijo()
         CargaGrupos()
         CargaResponsable()
+        CargaAFPadres()
     End Sub
+    Public Sub CargaAFPadres()
+        Dim ObjAF As New ClsAF()
+
+        If ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, "-1", "-1", -1, -1, "-1", -1, -1, -1, -1, 1, "-1", -1, -1, -1) Then
+
+            DdlAFPadres.DataSource = ObjAF.DtResultados
+            DdlAFPadres.DataBind()
+
+            DdlAFPadres.Items.Remove(DdlAFPadres.Items.FindByValue(CveActivoFijo.ToString))
+            DdlAFPadres.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        End If
+
+        ObjAF.Dispose()
+    End Sub
+
 
     Private Sub CargaGrupos()
         Dim ObjAF As New ClsAF
@@ -262,7 +279,8 @@ Partial Class AF_CatAF
         If intContador > 0 Then strSQL1.AppendFormat(" group by CveActivoFijo having count(*)={0}", intContador)
 
         Dim Cvecliente As Integer = If(DdlClientes.SelectedValue.ToEntero > 0, DdlClientes.SelectedValue.ToEntero, -1)
-        If ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, Codigo, Descripcion, DdlTipoActivo.SelectedValue.ToEntero, DdlSubTipoActivo.SelectedValue.ToEntero, NoSerie, Año, CvePersonaResponsable, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, strSQL1.ToString, CveCliente:=CveCliente, CveGrupo:=DdlGrupo.SelectedValue.ToEntero) Then
+        If ObjAF.GetActivosFijos(-1, UsuarioActual.CveEmpresa, Codigo, Descripcion, DdlTipoActivo.SelectedValue.ToEntero, DdlSubTipoActivo.SelectedValue.ToEntero, NoSerie, Año, CvePersonaResponsable, DdlProyecto.SelectedValue.ToEntero,
+                                 DdlSubProyecto.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, strSQL1.ToString, CveCliente:=Cvecliente, CveGrupo:=DdlGrupo.SelectedValue.ToEntero, BuscaPorAFPadre:=DdlAFPadres.SelectedValue.ToEntero) Then
             If ObjAF.DtResultados.Rows.Count > 0 Then
                 DtActivosFijos = ObjAF.DtResultados
                 'GvDatos.DataSource = ObjAF.DtResultados
diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx
index 15f91eb0a..decbb8933 100644
--- a/Inventarios/Kardex.aspx
+++ b/Inventarios/Kardex.aspx
@@ -498,7 +498,7 @@
                                 <div class="form-group form-md-line-input input-iconright">
                                     <asp:TextBox runat="server" ID="TxtCantidad" Width="70px" CssClass="form-control"></asp:TextBox>
                                     <label for="<%= TxtCantidad.ClientID.ToString()%>">Cantidad:</label>
-                                    <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtCantidad" FilterType="Custom" ValidChars="1234567890." />
+                                    <ajax:FilteredTextBoxExtender runat="server" TargetControlID="TxtCantidad" FilterType="Custom" ValidChars="1234567890.-" />
                                 </div>
 
                             </td>
diff --git a/Inventarios/Kardex.aspx.vb b/Inventarios/Kardex.aspx.vb
index 6e4303c84..6a9b0c2d3 100644
--- a/Inventarios/Kardex.aspx.vb
+++ b/Inventarios/Kardex.aspx.vb
@@ -987,12 +987,12 @@ Partial Class Inventarios_Kardex
         Dim PorcentajeRetIVA As Decimal = 0
 
 
-        If Not Cantidad > 0 Then
-            Alert("Debe indicar una cantidad.", TipoMensaje.MsgAdvertencia)
-            Return False
-        End If
+        'If Not Cantidad > 0 Then
+        '    Alert("Debe indicar una cantidad.", TipoMensaje.MsgAdvertencia)
+        '    Return False
+        'End If
 
-        If almacenStr.Length > 0 Then
+        If almacenStr.Length <> 0 Then
             CveAlmacen = almacenStr(0).ToEntero
         End If