118 lines
4.4 KiB
VB.net
118 lines
4.4 KiB
VB.net
Option Strict On
|
|
|
|
Imports Extensiones
|
|
Partial Class OI_RepDesarrollo
|
|
Inherits ClsPaginas
|
|
|
|
Private Sub OI_RepDesarrollo_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
If Not Page.IsPostBack Then
|
|
|
|
TxtFechaFin.Text = Now.ToString("dd/MM/yyyy")
|
|
TxtFechaI.Text = Now.AddDays(-30).ToString("dd/MM/yyyy")
|
|
|
|
CargaCombos()
|
|
CargaDatos()
|
|
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub CargaCombos()
|
|
|
|
DdlUsuario.DataSource = GlobalDTUsuarios(-1, 2)
|
|
DdlUsuario.DataBind()
|
|
DdlUsuario.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
DdlUsuario.SelectedValueExist(UsuarioActual.CveUsuario)
|
|
'DdlResponsable.DataSource = GlobalDTUsuarios(-1, 2)
|
|
'DdlResponsable.DataBind()
|
|
'DdlResponsable.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
|
|
DdlModulo.DataSource = GlobalDTModulos(-1)
|
|
DdlModulo.DataBind()
|
|
DdlModulo.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
|
|
End Sub
|
|
|
|
|
|
Private Sub CargaDatos()
|
|
|
|
Dim ObjDesarrollo As New ClsDesarrollo
|
|
Dim Descripcion As String = If(TxtDescripcion.Text.Trim.Length > 0, TxtDescripcion.Text.Trim, "-1")
|
|
If ObjDesarrollo.DesarrolloRepGet(-1, -1, -1, DdlModulo.SelectedValue.ToEntero, Descripcion, DdlUsuario.SelectedValue.ToEntero, -1, -1, TxtFechaI.Text.ToDate, TxtFechaFin.Text.ToDate) Then
|
|
GvDatos.DataSource = ObjDesarrollo.DtResultados
|
|
Else
|
|
GvDatos.DataSource = Nothing
|
|
End If
|
|
|
|
GvDatos.DataBind()
|
|
ObjDesarrollo.Dispose()
|
|
|
|
UPDatos.Update()
|
|
|
|
End Sub
|
|
|
|
Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
|
|
CargaDatos()
|
|
End Sub
|
|
|
|
Private Sub GvDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
|
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
Dim _CveUsaurioResponsable As Integer
|
|
Dim _CveUsaurioAsignado As Integer
|
|
Dim _CveUsaurioPruebas As Integer
|
|
|
|
Dim _CveDesarrollo As Integer = e.Row.DataKey("CveDesarrollo").ToEntero
|
|
Dim _CveDesarrolloEstado As Integer = e.Row.DataKey("CveDesarrolloEstado").ToString.ToEntero
|
|
|
|
Dim LnkEditar As LinkButton = e.Row.FCLinkButton("LnkEditar")
|
|
Dim LnkWizard As LinkButton = e.Row.FCLinkButton("LnkWizard")
|
|
|
|
Select Case e.Row.DataKey("CveDesarrolloEstado").ToString
|
|
Case "1"
|
|
e.Row.FCLabel("LblDesarrolloEstado").ForeColor = System.Drawing.Color.Red
|
|
Case "2"
|
|
e.Row.FCLabel("LblDesarrolloEstado").ForeColor = System.Drawing.Color.Black
|
|
Exit Select
|
|
Case "3"
|
|
e.Row.FCLabel("LblDesarrolloEstado").ForeColor = System.Drawing.Color.Blue
|
|
Exit Select
|
|
Case "5"
|
|
e.Row.FCLabel("LblDesarrolloEstado").ForeColor = System.Drawing.Color.DarkOrange
|
|
Exit Select
|
|
Case "6"
|
|
e.Row.FCLabel("LblDesarrolloEstado").ForeColor = System.Drawing.Color.Green
|
|
Exit Select
|
|
End Select
|
|
|
|
_CveUsaurioResponsable = e.Row.DataKey("CveUsuarioResponsable").ToEntero
|
|
_CveUsaurioAsignado = e.Row.DataKey("CveUsuarioAsignado").ToEntero
|
|
_CveUsaurioPruebas = e.Row.DataKey("CveUsuarioPruebas").ToEntero
|
|
|
|
LnkEditar.PostBackUrl = $"./Desarrollo.aspx?CveDesarrollo={_CveDesarrollo}"
|
|
LnkEditar.Visible = False
|
|
LnkWizard.PostBackUrl = $"./DesarrolloWizard.aspx?CveDesarrollo={_CveDesarrollo}"
|
|
LnkWizard.Visible = False
|
|
|
|
If UsuarioActual.CveUsuario = _CveUsaurioAsignado Then
|
|
If (_CveDesarrolloEstado > 1 And _CveDesarrolloEstado < 3) Then
|
|
LnkWizard.Visible = True
|
|
End If
|
|
End If
|
|
|
|
If UsuarioActual.CveUsuario = _CveUsaurioPruebas Then
|
|
If (_CveDesarrolloEstado > 1 And _CveDesarrolloEstado < 4) Then
|
|
LnkWizard.Visible = True
|
|
End If
|
|
End If
|
|
|
|
If UsuarioActual.CveUsuario = _CveUsaurioResponsable Then
|
|
LnkEditar.Visible = True
|
|
If _CveDesarrolloEstado > 1 Then
|
|
LnkWizard.Visible = True
|
|
End If
|
|
End If
|
|
End If
|
|
End Sub
|
|
End Class
|