diff --git a/AF/CatAF.aspx.vb b/AF/CatAF.aspx.vb
index c74216334..b5e500e31 100644
--- a/AF/CatAF.aspx.vb
+++ b/AF/CatAF.aspx.vb
@@ -87,8 +87,8 @@ Partial Class AF_CatAF
DdlEstatus.DataSource = GlobalDTEstadoActivoFijo
DdlEstatus.DataBind()
DdlEstatus.Items.Insert(0, New ListItem("Todos", "-1"))
-
CargarCentrosDeCosto(DdlProyecto, DdlSubProyecto, LblProyecto, LblSubProyecto)
+ GvDatos.Columns(7).HeaderText = LblSubProyecto.Text
DivProyecto.Visible = LblProyecto.Visible
DivProyectoDdl.Visible = LblProyecto.Visible
'DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.CveEmpresa)
diff --git a/RH/CatPersonal.aspx b/RH/CatPersonal.aspx
index 4da8a219d..7f100829f 100644
--- a/RH/CatPersonal.aspx
+++ b/RH/CatPersonal.aspx
@@ -57,14 +57,10 @@
- Imprimir
-
-
-
- Imprimir
+ Descargar PDF
- Excel
+ Descargar Excel
Personalizar
@@ -389,7 +385,6 @@
-
Puesto
@@ -434,7 +429,7 @@
- SubProyecto
+ <%--SubProyecto--%>
diff --git a/RH/CatPersonal.aspx.vb b/RH/CatPersonal.aspx.vb
index 7bfcaf70e..c915c826e 100644
--- a/RH/CatPersonal.aspx.vb
+++ b/RH/CatPersonal.aspx.vb
@@ -190,12 +190,12 @@ Partial Class RH_CatPersonal
DdlEstatusPersonal.DataBind()
End Sub
Private Sub CargaProyecto()
- DdlProyectoAsignado.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
- DdlProyectoAsignado.DataBind()
+ 'DdlProyectoAsignado.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
+ 'DdlProyectoAsignado.DataBind()
CargaTipoCentroCosto()
- If DivProyecto.Visible Then
- CargaSubProyectos()
- End If
+ 'If DivProyecto.Visible Then
+ ' CargaSubProyectos()
+ 'End If
End Sub
Private Sub CargaSubProyectos()
@@ -214,34 +214,10 @@ Partial Class RH_CatPersonal
End Sub
Private Sub CargaTipoCentroCosto()
- If UsuarioActual.Empresa.Tipo_CentroCosto = 1 Then
- DdlSubProyectoAsignado.Items.Clear()
- DivProyecto.Visible = False
- LblProyecto.Visible = False
- LblSubProyecto.Text = "Sucursal:"
-
- DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
- DdlSubProyectoAsignado.Items.Insert(0, New ListItem("Todos", "-1"))
- DdlSubProyectoAsignado.DataBind()
-
- ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 2 Then
- DdlSubProyectoAsignado.Items.Clear()
- DivProyecto.Visible = False
- LblProyecto.Visible = False
- LblSubProyecto.Text = "Proyecto:"
-
- DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1)
- DdlSubProyectoAsignado.Items.Insert(0, New ListItem("Todos", "-1"))
- DdlSubProyectoAsignado.DataBind()
-
- ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 4 Then
- LblProyecto.Text = "Sucursal:"
- LblSubProyecto.Text = "Proyecto:"
-
- ElseIf UsuarioActual.Empresa.Tipo_CentroCosto = 5 Then
- LblProyecto.Text = "Proyecto:"
- LblSubProyecto.Text = "Sucursal:"
- End If
+ CargarCentrosDeCosto(DdlProyectoAsignado, DdlSubProyectoAsignado, LblProyecto, LblSubProyecto)
+ DivProyecto.Visible = LblProyecto.Visible
+ ChkSubProyecto.Text = LblSubProyecto.Text
+ GvDatos.Columns(12).HeaderText = LblSubProyecto.Text
End Sub
Private Sub CargaSupervisores()