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

cambio a globaldtRHPersonal

Browse Source
This commit is contained in:
rrene
2023-02-28 17:18:06 -07:00
parent 77a7e42ccd
commit fb27659904
1 changed files with 11 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
Sistemas/UsuarioDetalle.aspx.vb
View File

@@ -716,14 +716,17 @@ Partial Class Sistemas_UsuarioDetalle
'DdlSubProyectos.SelectedValueExist(CveSubProyecto) 'DdlSubProyectos.SelectedValueExist(CveSubProyecto)
End Sub End Sub
Private Sub CargaPersonal() Private Sub CargaPersonal()
Dim dt As DataTable = Nothing Dim dt As DataTable = Nothing
Dim RH As New ClsRH 'Dim RH As New ClsRH
If RH.GetPersonal(-1, DdlEmpresaAsignaciones.SelectedValue.ToEntero) Then 'If RH.GetPersonal(-1, DdlEmpresaAsignaciones.SelectedValue.ToEntero) Then
dt = RH.DtResultados ' dt = RH.DtResultados
End If 'End If
RH.Dispose() 'RH.Dispose()
If DdlEmpresaAsignaciones.SelectedValue.ToEntero > 0 Then
dt = GlobalDTRHPersonal(DdlEmpresaAsignaciones.SelectedValue.ToEntero)
End If
DdlPersonal.Items.Clear() DdlPersonal.Items.Clear()
DdlPersonal.DataSource = dt DdlPersonal.DataSource = dt
DdlPersonal.DataBind() DdlPersonal.DataBind()