AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

correcciones con ddl de proyectos y subproyectos

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-07-22 12:23:14 -07:00
parent 4f1f40afe1
commit 221cff73b0
3 changed files with 13 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
RH/CatPersonal.aspx.vb
View File

@@ -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()