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

RH Familiares grid y personal requeriemientos

Browse Source
This commit is contained in:
Rakcsle Supertramp
2019-10-02 13:43:33 -07:00
parent f3ac473598
commit d20e22d49d
8 changed files with 647 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
RH/RepPersonalNecesidades.aspx.vb
View File

@@ -22,6 +22,7 @@ Partial Class RH_RepPersonalNecesidades
CargaProyecto()
CargaTurnos()
CargaDatos()
CargaDepartamento()
End If
End Sub
@@ -32,18 +33,32 @@ Partial Class RH_RepPersonalNecesidades
End Sub
Private Sub CargaProyecto()
DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa)
DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa).FiltraParametros("", "", {"CveProyecto", "Proyecto"})
DdlProyecto.DataBind()
DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
Private Sub CargaSubProyecto()
DdlSubProyecto.Items.Clear()
DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero)
DdlSubProyecto.DataBind()
DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
Private Sub CargaDepartamento()
DdlDepartamento.Items.Clear()
DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlDepartamento.DataBind()
DdlDepartamento.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
CargaSubProyecto()
End Sub
@@ -54,7 +69,7 @@ Partial Class RH_RepPersonalNecesidades
Private Sub CargaDatos()
Dim objpersonal As New ClsRH
If objpersonal.GetReportePersonalNecesidades(DdlTurno.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa) Then
If objpersonal.GetReportePersonalNecesidades(DdlTurno.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.Empresa.CveEmpresa, DdlDepartamento.SelectedValue.ToEntero) Then
GVDatos.DataSource = objpersonal.DtResultados
Else
GVDatos.DataSource = Nothing