Commit inicial Ventas Productivo

RH/CatPersonalRequerido.aspx.vb

@@ -0,0 +1,213 @@
+
+Imports Extensiones
+
+Partial Class RH_CatPersonalRequerido
+    Inherits ClsPaginas
+
+    Private Property CveRequerimiento As Integer
+        Get
+            If Not ViewState("CveRequerimiento") Is Nothing Then
+                Return ViewState("CveRequerimiento").ToString.ToEntero
+            Else
+                Return -1
+            End If
+
+        End Get
+        Set(value As Integer)
+            ViewState("CveRequerimiento") = value
+        End Set
+
+    End Property
+
+    Private Property Actualizar As Boolean
+        Get
+            If Not ViewState("Actualizar") Is Nothing Then
+                Return DirectCast(ViewState("Actualizar"), Boolean)
+            Else
+                Return False
+            End If
+        End Get
+        Set(value As Boolean)
+            ViewState("Actualizar") = value
+        End Set
+    End Property
+
+
+    Private Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
+
+        If Not Page.IsPostBack Then
+            CargadatosGvPersonalReq()
+        End If
+
+    End Sub
+
+    Private Sub CargadatosGvPersonalReq()
+        Dim ObjRH As New ClsRH
+        If ObjRH.GetPersonalRequerido(UsuarioActual.CveEmpresa) Then
+            GVDatos.DataSource = ObjRH.DtResultados
+
+        Else
+            GVDatos.DataSource = Nothing
+        End If
+        ObjRH.Dispose()
+        GVDatos.DataBind()
+
+        UPGVDatos.DataBind()
+        UpGral.Update()
+
+    End Sub
+
+    Protected Sub BtnAgregarPersonalReq_Click(sender As Object, e As EventArgs) Handles BtnAgregarPersonalReq.Click
+        LtlTituloModalPersonalReq.Text = "Agregar Personal Requerido"
+        BtnAgregarPersonalReqModal.Text = "Agregar"
+
+        CargaProyectos()
+        CargaTurno()
+
+        ReqProyectoDdl.SelectedValueExist(-1)
+        ReqSubProyectoDdl.SelectedValueExist(-1)
+        ReqTurnoDdl.SelectedValueExist(-1)
+        TxtCantidad.Text = ""
+
+        Actualizar = False
+        UpGral.Update()
+        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarPersonalReq"))
+
+    End Sub
+
+    Private Sub CargaProyectos()
+        ReqProyectoDdl.DataSource = GlobalDTProyectos(UsuarioActual.Empresa.CveEmpresa, 1)
+        ReqProyectoDdl.DataBind()
+        ReqProyectoDdl.Items.Insert(0, New ListItem("Seleccione el Proyecto", "-1"))
+    End Sub
+
+    Private Sub CargaSubProyectos(CveProyecto As Integer, SubProyectoDdl As DropDownList)
+        SubProyectoDdl.Items.Clear()
+        SubProyectoDdl.SelectedValue = Nothing
+        If CveProyecto > 0 Then
+            SubProyectoDdl.DataSource = GlobalDTSubProyectos(CveProyecto)
+        End If
+        SubProyectoDdl.DataBind()
+        SubProyectoDdl.Items.Insert(0, New ListItem("Seleccione el SubProyecto", "-1"))
+    End Sub
+
+    Private Sub CargaTurno()
+        ReqTurnoDdl.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        ReqTurnoDdl.DataBind()
+    End Sub
+
+    Protected Sub BtnAgregarPersonalReqModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarPersonalReqModal.Click
+
+        Dim RHRequerido As New Modelos.RH_PersonalRequerido
+        Dim ObjRH As New ClsRH
+
+        If Not Actualizar Then
+
+            RHRequerido.CveSubProyecto = ReqSubProyectoDdl.SelectedValue.ToEntero
+            RHRequerido.CveTurno = ReqTurnoDdl.SelectedValue.ToEntero
+            RHRequerido.Cantidad = TxtCantidad.Text.ToEntero
+            RHRequerido.CveUsuario = UsuarioActual.CveUsuario
+            RHRequerido.CveEmpresa = UsuarioActual.CveEmpresa
+
+            If ObjRH.AddPersonalRequerido(RHRequerido) Then
+
+                ReqProyectoDdl.SelectedValueExist(-1)
+                ReqSubProyectoDdl.SelectedValueExist(-1)
+                ReqTurnoDdl.SelectedValueExist(-1)
+                TxtCantidad.Text = ""
+
+                CargadatosGvPersonalReq()
+
+                RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarPersonalReq"), "jsHideModalPersonalReq")
+                UpGral.Update()
+
+                Alert("Personal Requerido Agregado Correctamente", TipoMensaje.MsgInformacion)
+            Else
+                Alert("Ocurrió un error al guardar el Personal Requerido", TipoMensaje.MsgError)
+            End If
+        Else
+
+            RHRequerido.CveSubProyecto = ReqSubProyectoDdl.SelectedValue.ToEntero
+            RHRequerido.CveTurno = ReqTurnoDdl.SelectedValue.ToEntero
+            RHRequerido.Cantidad = TxtCantidad.Text.ToEntero
+            RHRequerido.CveRequerimiento = CveRequerimiento
+
+            If ObjRH.UpdatePersonalRequerido(RHRequerido) Then
+
+                ReqProyectoDdl.SelectedValueExist(-1)
+                ReqSubProyectoDdl.SelectedValueExist(-1)
+                ReqTurnoDdl.SelectedValueExist(-1)
+                TxtCantidad.Text = ""
+
+                CargadatosGvPersonalReq()
+                UpModalPersonalReq.Update()
+
+                RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarPersonalReq"), "jsHideModalPersonalReq")
+
+                UpGral.Update()
+                Alert("Personal Requerido Actualizado Correctamente", TipoMensaje.MsgInformacion)
+            Else
+                Alert("Ocurrió un error al Actualizar el Personal Requerido", TipoMensaje.MsgError)
+            End If
+        End If
+        ObjRH.Dispose()
+
+        CveRequerimiento = -1
+        Actualizar = False
+
+    End Sub
+
+    Public Sub Remove_ClickPersonalReq(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+
+        Dim CveReq As Integer = GvRow.DataKey("CveRequerimiento")
+
+        Dim ObjRH As New ClsRH
+        If ObjRH.RemovePersonalRequerido(CveReq) Then
+            CargadatosGvPersonalReq()
+
+            Alert("El personal requerido se eliminó correctamente ", TipoMensaje.MsgInformacion)
+        Else
+            Alert("Ocurrió un error al Eliminar el Personal Requerido", TipoMensaje.MsgError)
+        End If
+        ObjRH.Dispose()
+        CargadatosGvPersonalReq()
+
+        CveRequerimiento = -1
+
+    End Sub
+
+    Public Sub Edit_ClickPersonalReq(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
+        Dim activo As Boolean = 0
+
+        LtlTituloModalPersonalReq.Text = "Editar Personal Requerido"
+        Actualizar = True
+
+        CveRequerimiento = GvRow.DataKey("CveRequerimiento")
+
+        CargaProyectos()
+        ReqProyectoDdl.SelectedValueExist(GvRow.DataKey("CveProyecto").ToEntero)
+        CargaSubProyectos(GvRow.DataKey("CveProyecto").ToEntero, ReqSubProyectoDdl)
+        ReqSubProyectoDdl.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
+        CargaTurno()
+        ReqTurnoDdl.SelectedValueExist(GvRow.DataKey("CveTurno").ToEntero)
+        TxtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero
+
+        BtnAgregarPersonalReqModal.Text = "Actualizar"
+
+        UpModalPersonalReq.Update()
+
+        RegistraScript(String.Format("$('#{0}').modal();", "DivAgregarPersonalReq"))
+
+    End Sub
+    Protected Sub ReqProyectoDdl_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ReqProyectoDdl.SelectedIndexChanged
+        CargaSubProyectos(ReqProyectoDdl.SelectedValue.ToEntero, ReqSubProyectoDdl)
+    End Sub
+End Class
+
+
+
+