-- visualziar el personal

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