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

-- cambios GlobalDTSubPr

Browse Source
This commit is contained in:
rrene
2024-08-01 15:50:25 -07:00
parent 30e0decf3e
commit 934d00e235
14 changed files with 44 additions and 60 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
RH/AsistenciaDetalle.aspx.vb
View File

@@ -200,7 +200,7 @@ Partial Class RH_AsistenciaDetalle
Dim CveProyecto As String = DirectCast(sender, DropDownList).SelectedValue
GvDatos.FCDropDownList("DdlSubProyectoAsignadoEdit").Items.Clear()
GvDatos.FCDropDownList("DdlSubProyectoAsignadoEdit").DataSource = GlobalDTSubProyectos(CveProyecto.ToEntero).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa, "", {"CveSubProyecto", "SubProyecto"})
GvDatos.FCDropDownList("DdlSubProyectoAsignadoEdit").DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto.ToEntero).FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa, "", {"CveSubProyecto", "SubProyecto"})
GvDatos.FCDropDownList("DdlSubProyectoAsignadoEdit").DataBind()
End Sub

2
RH/CatPersonalRequerido.aspx.vb
View File

@@ -87,7 +87,7 @@ Partial Class RH_CatPersonalRequerido
SubProyectoDdl.Items.Clear()
SubProyectoDdl.SelectedValue = Nothing
If CveProyecto > 0 Then
SubProyectoDdl.DataSource = GlobalDTSubProyectos(CveProyecto)
SubProyectoDdl.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa, CveProyecto:=CveProyecto)
End If
SubProyectoDdl.DataBind()
SubProyectoDdl.Items.Insert(0, New ListItem("Seleccione el SubProyecto", "-1"))