Commit inicial Ventas Productivo

RH/RepPersonalNecesidades.aspx.vb

@@ -0,0 +1,86 @@
+Option Strict On
+Option Explicit On
+Imports Extensiones
+Imports System.Data
+Partial Class RH_RepPersonalNecesidades
+    Inherits ClsPaginas
+
+#Region "Propiedades"
+    Private Property DTNecesidades As DataTable
+        Get
+            Return CType(ViewState("DTProyectos"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DTProyectos") = value
+        End Set
+    End Property
+
+#End Region
+
+    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        If Not IsPostBack Then
+            CargaProyecto()
+            CargaTurnos()
+            CargaDatos()
+        End If
+    End Sub
+
+    Private Sub CargaTurnos()
+        DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlTurno.DataBind()
+        DdlTurno.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+
+    Private Sub CargaProyecto()
+        DdlProyecto.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa)
+        DdlProyecto.DataBind()
+        DdlProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+
+    Private Sub CargaSubProyecto()
+        DdlSubProyecto.Items.Clear()
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(DdlProyecto.SelectedValue.ToEntero)
+        DdlSubProyecto.DataBind()
+        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
+    End Sub
+
+    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 EventArgs)
+        CargaDatos()
+    End Sub
+
+    Private Sub CargaDatos()
+        Dim objpersonal As New ClsRH
+        If objpersonal.GetReportePersonalNecesidades(DdlTurno.SelectedValue.ToEntero, DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, DdlEstatus.SelectedValue.ToEntero, UsuarioActual.Empresa.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 Not (e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5) Then
+                e.Row.FCLabel("LblEstatus").Font.Bold = True
+                Select Case e.Row.DBCampo("Estatus").Trim
+                    Case "Sobrante de personal"
+                        With e.Row.FCLabel("LblEstatus")
+                            .CssClass = "label label-sm"
+                            .BackColor = Drawing.Color.DarkSalmon
+                        End With
+                    Case "Faltante de personal"
+                        e.Row.FCLabel("LblEstatus").CssClass = "label label-sm label-danger" 'Rojo
+                    Case "Sin necesidades de personal"
+                        e.Row.FCLabel("LblEstatus").CssClass = "label label-sm label-success" 'Verde
+                End Select
+            End If
+        End If
+    End Sub
+
+End Class