AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

RH Familiares grid y personal requeriemientos

Browse Source
This commit is contained in:
Rakcsle Supertramp
2019-10-02 13:43:33 -07:00
parent f3ac473598
commit d20e22d49d
8 changed files with 647 additions and 55 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
RH/CatPersonalRequerido.aspx.vb
View File

@@ -94,6 +94,11 @@ Partial Class RH_CatPersonalRequerido
Private Sub CargaTurno()
ReqTurnoDdl.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
ReqTurnoDdl.DataBind()
End Sub
Private Sub CargaDepartamento()
DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
DdlDepartamento.DataBind()
End Sub
Protected Sub BtnAgregarPersonalReqModal_Click(sender As Object, e As EventArgs) Handles BtnAgregarPersonalReqModal.Click
@@ -108,12 +113,14 @@ Partial Class RH_CatPersonalRequerido
RHRequerido.Cantidad = TxtCantidad.Text.ToEntero
RHRequerido.CveUsuario = UsuarioActual.CveUsuario
RHRequerido.CveEmpresa = UsuarioActual.CveEmpresa
RHRequerido.CveDepartamento = DdlDepartamento.SelectedValue.ToEntero
If ObjRH.AddPersonalRequerido(RHRequerido) Then
ReqProyectoDdl.SelectedValueExist(-1)
ReqSubProyectoDdl.SelectedValueExist(-1)
ReqTurnoDdl.SelectedValueExist(-1)
ReqTurnoDdl.SelectedValueExist(-1)
DdlDepartamento.SelectedValueExist(-1)
TxtCantidad.Text = ""
CargadatosGvPersonalReq()
@@ -131,12 +138,16 @@ Partial Class RH_CatPersonalRequerido
RHRequerido.CveTurno = ReqTurnoDdl.SelectedValue.ToEntero
RHRequerido.Cantidad = TxtCantidad.Text.ToEntero
RHRequerido.CveRequerimiento = CveRequerimiento
RHRequerido.CveDepartamento = DdlDepartamento.SelectedValue.ToEntero
If ObjRH.UpdatePersonalRequerido(RHRequerido) Then
ReqProyectoDdl.SelectedValueExist(-1)
ReqSubProyectoDdl.SelectedValueExist(-1)
ReqTurnoDdl.SelectedValueExist(-1)
ReqTurnoDdl.SelectedValueExist(-1)
DdlDepartamento.SelectedValueExist(-1)
DdlDepartamento.SelectedValueExist(-1)
TxtCantidad.Text = ""
CargadatosGvPersonalReq()
@@ -164,7 +175,8 @@ Partial Class RH_CatPersonalRequerido
Dim CveReq As Integer = GvRow.DataKey("CveRequerimiento")
Dim ObjRH As New ClsRH
If ObjRH.RemovePersonalRequerido(CveReq) Then
If ObjRH.RemovePersonalRequerido(CveReq, UsuarioActual.CveEmpresa) Then
CargadatosGvPersonalReq()
Alert("El personal requerido se eliminó correctamente ", TipoMensaje.MsgInformacion)
@@ -189,13 +201,19 @@ Partial Class RH_CatPersonalRequerido
CveRequerimiento = GvRow.DataKey("CveRequerimiento")
CargaProyectos()
CargaTurno()
CargaDepartamento()
ReqProyectoDdl.SelectedValueExist(GvRow.DataKey("CveProyecto").ToEntero)
CargaSubProyectos(GvRow.DataKey("CveProyecto").ToEntero, ReqSubProyectoDdl)
ReqSubProyectoDdl.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
CargaTurno()
ReqSubProyectoDdl.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
ReqTurnoDdl.SelectedValueExist(GvRow.DataKey("CveTurno").ToEntero)
TxtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero
TxtCantidad.Text = GvRow.DataKey("Cantidad").ToEntero
DdlDepartamento.SelectedValueExist(GvRow.DataKey("CveDepartamento").ToEntero)
BtnAgregarPersonalReqModal.Text = "Actualizar"
UpModalPersonalReq.Update()