94 lines
3.3 KiB
VB.net
94 lines
3.3 KiB
VB.net
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(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
|