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

2
Sistemas/UsuarioDetalle.aspx
View File

@@ -1453,7 +1453,7 @@
</tr> </tr>
</table> </table>
<div style="max-height: 300px; overflow-y: auto;"> <div style="max-height: 300px; overflow-y: auto;">
<asp:GridView ID="GvClasificacion" DataKeyNames="CveClasificacion" runat="server" ShowHeader="false" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de clasificaciones del Usuario" CssClass="table table-striped table-hover Widthall" GridLines="None"> <asp:GridView ID="GvClasificacion" DataKeyNames="CveClasificacion" runat="server" ShowHeader="false" AutoGenerateColumns="False" EmptyDataText="" ToolTip="Listado de clasificaciones del Usuario" CssClass="table table-striped table-hover Widthall mysmallbtn" GridLines="None">
<Columns> <Columns>
<asp:TemplateField> <asp:TemplateField>
<ItemTemplate> <ItemTemplate>

6
Sistemas/UsuarioDetalle.aspx.vb
View File

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