Imports Extensiones

Partial Class Nomina_ListaAsistencias
    Inherits ClsPaginas

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            DdlCliente.Attributes.Add("onclick", "CargaClientes();")
            CargaProyecto()
            CargaTurnos()
        End If
    End Sub


#Region "CargaCombos"

    Private Sub CargaClientes()
        Dim ObjClientes As New ClsClientes
        If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, UsuarioActual.CveEmpresa) Then
            DdlCliente.DataSource = ObjClientes.DtResultados
        Else
            DdlCliente.DataSource = Nothing
        End If
        ObjClientes.Dispose()
        'Application("GlobalDTResponsable")

        DdlCliente.DataBind()
    End Sub

    Protected Sub BtnCargarClientes_Click(sender As Object, e As System.EventArgs) Handles BtnCargarClientes.Click
        CargaClientes()
        DdlCliente.Attributes.Remove("onclick")
    End Sub

    Private Sub CargaProyecto()
        DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.CveEmpresa)
        DdlProyecto.DataBind()
    End Sub

    Private Sub CargaSubProyecto()
        DdlSubProyecto.Items.Clear()
        DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero)
        DdlSubProyecto.DataBind()
        DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))
    End Sub

    Private Sub CargaTurnos()
        DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
        DdlTurno.DataBind()
    End Sub

#End Region

    Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles DdlProyecto.SelectedIndexChanged
        CargaSubProyecto()
    End Sub

    Protected Sub BtnConsultar_Click(sender As Object, e As System.EventArgs) Handles BtnConsultar.Click
        Dim ObjPersonal As New ClsRH
        If ObjPersonal.GetListaAsistencias(DdlSubProyecto.SelectedValue.ToEntero, DdlTurno.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
            GvDatos.DataSource = ObjPersonal.DtResultados
        Else
            GvDatos.DataSource = Nothing
        End If

        ObjPersonal.Dispose()

        GvDatos.DataBind()
        UPDatos.Update()
    End Sub

    Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then

            If e.Row.DBCampo("Turno") = "" AndAlso e.Row.DBCampo("Nombre") = "" Then
                e.Row.FCLiteral("LtlNombre").Text = "Sub Proyecto: " & e.Row.DBCampo("SubProyecto")
                e.Row.Cells(0).ColumnSpan = 8
                For i As Integer = 1 To 7
                    e.Row.Cells(i).Visible = False
                Next
                e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
            ElseIf e.Row.DBCampo("Turno") <> "" AndAlso e.Row.DBCampo("Nombre") = "" Then
                e.Row.FCLiteral("LtlNombre").Text = "Turno: " & e.Row.DBCampo("Turno")
                e.Row.Cells(0).ColumnSpan = 8
                For i As Integer = 1 To 7
                    e.Row.Cells(i).Visible = False
                Next
                e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
            End If
        End If
    End Sub

End Class