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

-- cambio de GlobalDTSubProyectos

Browse Source 
- cambio en GlobalDTUsuarios
This commit is contained in:
rrene
2024-08-01 05:46:28 -07:00
parent 14f053bc86
commit 1c14bceea9
240 changed files with 692 additions and 689 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
RH/CatPersonal.aspx.vb
View File

@@ -304,7 +304,7 @@ Partial Class RH_CatPersonal
DdlSubProyectoAsignado.Items.Insert(0, New ListItem("Todos", "-1"))
'filtro por usuario subproyecto/sucursal vsh
'If UsuarioActual.CveEmpresa = 7 Then
' DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1).FiltraParametros($"CveSubProyecto = { UsuarioActual.CveSubProyecto }")
' DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectos( UsuarioActual.CveEmpresa ).FiltraParametros($"CveSubProyecto = { UsuarioActual.CveSubProyecto }")
'End If
UpSubProyecto.Update()
End Sub
@@ -316,7 +316,7 @@ Partial Class RH_CatPersonal
DdlMedioTransporte.DataBind()
'filtro por usuario subproyecto/sucursal vsh
'If UsuarioActual.CveEmpresa = 7 Then
' DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1).FiltraParametros($"CveSubProyecto = { UsuarioActual.CveSubProyecto }")
' DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectos( UsuarioActual.CveEmpresa ).FiltraParametros($"CveSubProyecto = { UsuarioActual.CveSubProyecto }")
'End If
'UpSubProyecto.Update()
End Sub
@@ -333,7 +333,7 @@ Partial Class RH_CatPersonal
End Sub
Private Sub CargaSupervisores()
DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
DdlSupervisor.DataSource = GlobalDTUsuarios(-1, UsuarioActual.CveEmpresa).FiltraParametros(" EsSupervisorRH = 1 ")
DdlSupervisor.DataBind()
End Sub
@@ -1039,7 +1039,7 @@ Partial Class RH_CatPersonal
crow = 1
ccol = ccol + 1
Catalogos.Cell(crow, ccol).Value = "subproyecto"
Dim dtsubproyecto = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1))
Dim dtsubproyecto = If(Not UsuarioActual.TienePermisoProceso(110), GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1), GlobalDTSubProyectos(UsuarioActual.CveEmpresa))
For Each row As DataRow In dtsubproyecto.Rows
crow = crow + 1
Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveSubProyecto"), row("SubProyecto"))