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

Seleccionar todos los estatus de REQ/OC al asignar

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2021-08-18 11:38:40 -07:00
parent 08dae1d863
commit 5f3c483f6d
2 changed files with 391 additions and 118 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
Sistemas/UsuarioDetalle.aspx.vb
View File

@@ -2473,7 +2473,17 @@ Partial Class Sistemas_UsuarioDetalle
End Sub
#Region "GRIDVIEW"
Protected Sub GvEstatusUsuariosREQ_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEstatusUsuariosREQ.RowDataBound
Protected Sub GvEstatusUsuariosREQ_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEstatusUsuariosREQ.RowDataBound
If e.Row.RowType = DataControlRowType.Header Then
For i As Integer = 2 To GvEstatusUsuariosREQ.Columns.Count - 1
Dim CveEstatus As Integer = GvEstatusUsuariosREQ.Columns(i).FooterText.ToEntero
Dim idIndex As Integer = i - 1
If CveEstatus > -1 Then
e.Row.FCLabel($"LblTituloEstatusREQ{idIndex}").Text = GvEstatusUsuariosREQ.Columns(i).HeaderText
End If
Next
End If
If e.Row.RowType = DataControlRowType.DataRow Then
Dim tmpT As DataTable = DTEstatusSubProyectos.FiltraParametros(String.Format("CveSubProyecto = {0}", e.Row.DBCampo("CveSubProyecto").ToString))
@@ -2487,6 +2497,7 @@ Partial Class Sistemas_UsuarioDetalle
Dim hdnCveEstatusUsuarios As HiddenField = e.Row.FCHiddenField($"hdnCveEstatusUsuarios{idIndex}")
Dim lblSuperior As Label = e.Row.FCLabel($"lblSuperior{idIndex}")
Dim lblLimites As Label = e.Row.FCLabel($"lblLimites{idIndex}")
chkEstatus.CssClass = $"chkEstatusREQ{idIndex}"
Dim dtTemp As New DataTable
Dim existenPermisosActuales As Boolean
@@ -2599,7 +2610,18 @@ Partial Class Sistemas_UsuarioDetalle
Next
End If
End Sub
Protected Sub GvEstatusUsuariosOC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEstatusUsuariosOC.RowDataBound
Protected Sub GvEstatusUsuariosOC_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvEstatusUsuariosOC.RowDataBound
If e.Row.RowType = DataControlRowType.Header Then
For i As Integer = 2 To GvEstatusUsuariosOC.Columns.Count - 1
Dim CveEstatus As Integer = GvEstatusUsuariosOC.Columns(i).FooterText.ToEntero
Dim idIndex As Integer = i - 1
If CveEstatus > -1 Then
e.Row.FCLabel($"LblTituloEstatus{idIndex}").Text = GvEstatusUsuariosOC.Columns(i).HeaderText
End If
Next
End If
If e.Row.RowType = DataControlRowType.DataRow Then
Dim tmpT As DataTable = DTEstatusSubProyectos.FiltraParametros(String.Format("CveSubProyecto = {0}", e.Row.DBCampo("CveSubProyecto").ToString))
@@ -2612,8 +2634,8 @@ Partial Class Sistemas_UsuarioDetalle
Dim ImgClasificaciones As LinkButton = e.Row.FCLinkButton($"ImgClasificaciones{idIndex}")
Dim hdnCveEstatusUsuarios As HiddenField = e.Row.FCHiddenField($"hdnCveEstatusUsuarios{idIndex}")
Dim lblSuperior As Label = e.Row.FCLabel($"lblSuperior{idIndex}")
Dim lblLimites As Label = e.Row.FCLabel($"lblLimites{idIndex}")
Dim lblLimites As Label = e.Row.FCLabel($"lblLimites{idIndex}")
chkEstatus.CssClass = $"chkEstatus{idIndex}"
Dim dtTemp As New DataTable
Dim existenPermisosActuales As Boolean