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