RH/CatPersonal.aspx.vb

@@ -1261,6 +1261,22 @@ Partial Class RH_CatPersonal
                 DdlTipoTrabajador.DataSource = dt
                 DdlTipoTrabajador.DataBind()
             End If
+
+            If DdlSubProyectoAsignadoAdd.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()
+                DdlMedioTransporte.DataSource = objgenerales.DtResultados
+                DdlMedioTransporte.DataBind()
+            Else
+                Dim objgenerales As New ClsGenerales()
+                objgenerales.GetMediosTransporte(-1, True, UsuarioActual.CveEmpresa, -1, DdlSubProyectoAsignadoAdd.SelectedValue.ToEntero(), -1, -1)
+                DdlMedioTransporte.Items.Clear()
+                DdlMedioTransporte.DataSource = objgenerales.DtResultados
+                DdlMedioTransporte.DataBind()
+            End If
+
+
         End Using
     End Sub