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

-

Browse Source
This commit is contained in:
rrene
2023-12-23 08:41:32 -07:00
parent 4d62e4e57f
commit 2648c7b53f
2 changed files with 4 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Sistemas/UsuarioDetalle.aspx.vb
View File

@@ -1556,16 +1556,12 @@ Partial Class Sistemas_UsuarioDetalle
If UsuarioControlado Then
DdlProyecto.DataSource = GetProyectosSinGV(DtSubProyectosControlado.FiltraParametros($"CveEmpresa = {DdlEmpresaAsignaciones.SelectedValue}"))
Else
DdlProyecto.DataSource = GetProyectosSinGV(GlobalDTSubProyectos(-1, -1, DdlEmpresaAsignaciones.SelectedValue.ToEntero).FiltraParametros("", DistinctColumns:={"CveProyecto", "Proyecto"}))
DdlProyecto.DataSource = GetProyectosSinGV(GlobalDTSubProyectos(-1, -1, DdlEmpresaAsignaciones.SelectedValue.ToEntero))
End If
End If
DdlProyecto.DataBind()
DdlProyecto.Items.Insert(0, New ListItem("Seleccione el Proyecto", "-1"))
'CARGA SOLO PROYECTO (SUBRPOYECTOS)
If DdlEmpresaAsignaciones.SelectedValue.ToEntero = 66 Then
SoloSubProyectos()
End If
DdlProyecto.Items.Insert(0, New ListItem("Seleccione el Proyecto", "-1"))
End Sub
Private Function GetSubProyectosSinGV() As String
Dim SB As New StringBuilder