diff --git a/Contabilidad2/CatCuentas.aspx b/Contabilidad2/CatCuentas.aspx
index 8e0b6c729..ad6288165 100644
--- a/Contabilidad2/CatCuentas.aspx
+++ b/Contabilidad2/CatCuentas.aspx
@@ -225,6 +225,15 @@
                             <asp:TextBox ID="TxtPorcentaje" runat="server"></asp:TextBox>(0% - 100% )
                         </div>
                     </asp:Panel>
+                     <asp:Panel runat="server" ID="pnlOpcion8" Visible="false" CssClass="form-line">
+                        <div class="catcuentas left">
+                            <asp:Label runat="server" Text="Personal"></asp:Label></div>
+                        <div class="catcuentas right">
+                            <asp:DropDownList ID="DdlPersonal" CssClass="form-control input-sm select2me" runat="server" AppendDataBoundItems="true"  DataTextField="NombreCompleto" DataValueField="CvePersonal" Width="100%">
+                                <asp:ListItem Selected="True" Text="Seleccione el personal (Todas)" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                    </asp:Panel>
 
 
                     <br />
diff --git a/Contabilidad2/CatCuentas.aspx.vb b/Contabilidad2/CatCuentas.aspx.vb
index d4a8d1ef1..d36ba565b 100644
--- a/Contabilidad2/CatCuentas.aspx.vb
+++ b/Contabilidad2/CatCuentas.aspx.vb
@@ -278,6 +278,7 @@ Partial Class Contabilidad2_CatCuentas
                     CveAlmacen = rowcc("CveAlmacen").ToString().ToEntero()
                     DdlAlmacen.SelectedValue = -1
                     DdlAlmacen.SelectedValueExist(CveAlmacen)
+                    DdlPersonal.SelectedValueExist(rowcc("CvePersonal").ToString().ToEntero())
                 End If
 
             End Using
@@ -686,6 +687,10 @@ Partial Class Contabilidad2_CatCuentas
 
                 Case 6
                     pnlOpcion6.Visible = True
+                Case 8
+                    pnlOpcion8.Visible = True
+                    DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
+                    DdlPersonal.DataBind()
 
             End Select
         End If