diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 26f34bc5a..c02d7b5e2 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -1563,7 +1563,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo CveDepartamento As Integer, CveRuta As Integer, CveEscolaridad As Integer, CveEstadoCivil As Integer, CveGenero As Integer, CveEstatusPersonal As Integer, CveSubProyecto As Integer, CveClienteAsignado As Integer, HorarioTrabajo As String, CveSupervisor As Integer, CveTipoPeriodo As Integer, CveMetodoPago As Integer, CveTipoContrato As Integer, CveMotivoBaja As Integer, CveProyecto As Integer, - FechaIFinContrato As String, FechaFFinContrato As String, FechaIIngreso As String, FechaFIngreso As String, CveEmpresa As Integer) As Boolean + FechaIFinContrato As String, FechaFFinContrato As String, FechaIIngreso As String, FechaFIngreso As String, CveEmpresa As Integer, Optional EsReserva As Integer = -1) As Boolean Dim Retorno As Boolean = False SqlDataAdapter("PA_RH_PersonalGet") @@ -1597,7 +1597,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@FechaFIngreso", SqlDbType.VarChar).Value = FechaFIngreso .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@ISSIG", SqlDbType.Int).Value = 1 - + .Add("@EsReserva", SqlDbType.Int).Value = EsReserva End With diff --git a/RH/CatPersonal.aspx b/RH/CatPersonal.aspx index a044177ee..e95bc4d97 100644 --- a/RH/CatPersonal.aspx +++ b/RH/CatPersonal.aspx @@ -313,6 +313,17 @@ + + +
+ +
+ + + + + +
<%--
@@ -738,22 +749,30 @@
- +
-
- -
+
+
+
+ +
+
+ +
+
+ +
@@ -804,12 +823,6 @@
-
- -
-
- -
+
+ + + +
@@ -615,6 +621,13 @@
+ +
+
+ + +
+
SubProyecto: - + diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 318790f3d..9f88e5b69 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -1684,6 +1684,9 @@ Partial Class RH_Personal DdlProyectoAsignado.SelectedValue = ObjPersonal.CveProyecto.ToString() If ObjPersonal.CveProyecto <> -1 Then DdlProyectoAsignado_SelectedIndexChanged(Me, New System.EventArgs()) DdlSubProyectoAsignado.SelectedValue = ObjPersonal.CveSubProyecto.ToString() + DdlSubProyectoAsignado_SelectedIndexChanged1(Nothing, Nothing) + DdlMedioTransporte.SelectedValueExist(drow("CveMedioTransporte").ToString()) + chkEsReserva.Checked = (drow("CharolaForanea").ToString().ToUpper().Contiene("1", "TRUE")) cargatipoTrabajador() DdlTipoTrabajador.SelectedValueExist(drow("CveTipoTrabajador").ToString()) cargaagrodeptos() @@ -7038,5 +7041,39 @@ Partial Class RH_Personal + + Protected Sub DdlSubProyectoAsignado_SelectedIndexChanged1(sender As Object, e As EventArgs) + + Using objrh As New ClsRH() + + + If DdlSubProyectoAsignado.SelectedValue.ToEntero().Contiene(11954, 11884, 11883) Then + Dim objgenerales As New ClsGenerales() + objgenerales.GetMediosTransporte(-1, True, UsuarioActual.CveEmpresa, 1, -1, -1, -1) + DdlMedioTransporte.Items.Clear() + + Dim drow As DataRow = objgenerales.DtResultados.NewRow + drow("CveOrigen") = -1 + drow("Nombre") = "Seleccione" + objgenerales.DtResultados.Rows.InsertAt(drow, 0) + + DdlMedioTransporte.DataSource = objgenerales.DtResultados + DdlMedioTransporte.DataBind() + Else + Dim objgenerales As New ClsGenerales() + objgenerales.GetMediosTransporte(-1, True, UsuarioActual.CveEmpresa, -1, DdlSubProyectoAsignado.SelectedValue.ToEntero(), -1, -1) + + DdlMedioTransporte.Items.Clear() + Dim drow As DataRow = objgenerales.DtResultados.NewRow + drow("CveOrigen") = -1 + drow("Nombre") = "Seleccione" + objgenerales.DtResultados.Rows.InsertAt(drow, 0) + DdlMedioTransporte.DataSource = objgenerales.DtResultados + DdlMedioTransporte.DataBind() + End If + + + End Using + End Sub End Class