Medios de transporte

RH/CatPersonal.aspx.vb

@@ -62,7 +62,7 @@ Partial Class RH_CatPersonal
             CargaJornada()
             CargaEstados()
             CargaSatRiesgoPuesto()
-
+            CargaMedioTransporte()
             LoadDefaultValues()
 
 
@@ -288,6 +288,18 @@ Partial Class RH_CatPersonal
         'End If
         UpSubProyecto.Update()
     End Sub
+    Private Sub CargaMedioTransporte()
+        Dim objgenerales As New ClsGenerales()
+        objgenerales.GetMediosTransporte(-1, True, UsuarioActual.CveEmpresa, -1, -1, -1, -1)
+        DdlMedioTransporte.Items.Clear()
+        DdlMedioTransporte.DataSource = objgenerales.DtResultados
+        DdlMedioTransporte.DataBind()
+        'filtro por usuario subproyecto/sucursal vsh
+        'If UsuarioActual.CveEmpresa = 7 Then
+        '    DdlSubProyectoAsignado.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1).FiltraParametros($"CveSubProyecto = { UsuarioActual.CveSubProyecto }")
+        'End If
+        'UpSubProyecto.Update()
+    End Sub
 
     Private Sub CargaTipoCentroCosto()