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