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

Transportes Mejoras

Browse Source
This commit is contained in:
rakcsle
2024-11-05 08:25:18 -07:00
parent d5b93be073
commit f92083edcd
13 changed files with 678 additions and 89 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
RH/Personal.aspx.vb
View File

@@ -1539,8 +1539,18 @@ Partial Class RH_Personal
Private Sub CargaOutSourcing()
Dim DtModulosEmpresa As New DataTable
Dim ObjEmpresas As New ClsSisEmpresas
If ObjEmpresas.GetEmpresas(-1, "-1", "-1", "-1", "-1") Then
DtModulosEmpresa = ObjEmpresas.DtResultados
Else
DtModulosEmpresa = Nothing
End If
ObjEmpresas.Dispose()
If UsuarioActual.CveEmpresa = 7 Then
DdlEmpresaAsignada.DataSource = GlobalDTEmpresas.FiltraParametros("CveEmpresa in (7,11,12,122,145,113)")
DdlEmpresaAsignada.DataSource = DtModulosEmpresa.FiltraParametros("CveEmpresa in (7,11,12,122,145,113)")
DdlEmpresaAsignada.DataBind()
DvOutsourcing.Visible = True
End If