-

Transportes/RepContratosCalendario.aspx.vb

@@ -1,7 +1,6 @@
 Option Explicit On
 Option Strict On
 Imports System.Data
-Imports System.Data.SqlClient
 Imports ADSNetLibrary.SIGAPI.Helpers
 Imports Extensiones.ModExtensiones
 Imports GemBox.Spreadsheet
@@ -34,7 +33,7 @@ Partial Class RepContratosCalendario
         txtFechaF.Text = DateTime.Now.AddDays(7).ToShortDateString
 
         If Not IsPostBack Then
-            CargaCombos()
+            InicializaCombos()
             InicializaCalendar()
             CargaDatos()
         End If
@@ -62,23 +61,25 @@ Partial Class RepContratosCalendario
         DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
     End Sub
 
-    Private Sub CargaCombos()
+    Private Sub InicializaCombos()
         'Lista de Tipos de activo fijos
         DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
         DdlTipoAF.Items.Insert(0, New ListItem("-", ""))
         DdlTipoAF.DataBind()
 
+        DdlTipoUnidad.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
+        DdlTipoUnidad.DataBind()
+        DdlTipoUnidad.Items.Insert(0, New ListItem("-", ""))
         'Lista de Activos fijos
         DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
         DdlAF.DataBind()
         DdlAF.Items.Insert(0, New ListItem("-", ""))
 
         'Lista Chofer'
-        DdlChofer.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto")
+        DdlChofer.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
         DdlChofer.DataBind()
         DdlChofer.Items.Insert(0, New ListItem("-", ""))
-
-        DdlChofer2.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa).FiltraParametros("", "NombreCompleto")
+        DdlChofer2.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
         DdlChofer2.DataBind()
         DdlChofer2.Items.Insert(0, New ListItem("-", ""))
 
@@ -114,6 +115,7 @@ Partial Class RepContratosCalendario
         RegistraScript("$('#ModalActualizar').modal('show');")
     End Sub
 
+
     Protected Sub UpdateContrato(sender As Object, e As EventArgs)
         Dim ObjContratos As New ClsContratos
         ObjContratos.IniciaTransacSQL()
@@ -177,8 +179,4 @@ Partial Class RepContratosCalendario
         End If
     End Sub
 
-
-    Protected Sub BtnConsultarListado_Click(sender As Object, e As EventArgs)
-        CargaDatos()
-    End Sub
 End Class