--Se quitan negritas en CatRutas. Se hacen ajustes en el modal de contratos para unificar y se agregan detalles. Se redondean los valores de los costos. Se cambia el inicio de cargaEventos, se simplifica los textbox para las fechas y se despliegan 1 mes antes para FI y 7 después para FF y se modifican ciertos campos de sólo lectura.

Transportes/RepContratosCalendario.aspx.vb

@@ -11,6 +11,9 @@ Partial Class RepContratosCalendario
 #End Region
 
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
+        txtFechaI.Text = DateTime.Now.AddMonths(-1).ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T")
+        txtFechaF.Text = DateTime.Now.AddDays(7).ToString("yyyy-MM-dd HH:mm:ss").Replace(" ", "T")
+
         If Not IsPostBack Then
             CargaCombos()
             InicializaCalendar()
@@ -21,6 +24,8 @@ Partial Class RepContratosCalendario
 
     End Sub
     Private Sub CargaDatos()
+
+
         Dim ObjContratos As New ClsContratos
         If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, TipoContrato:=2) Then
             GvContratos.DataSource = ObjContratos.DtResultados
@@ -36,21 +41,23 @@ Partial Class RepContratosCalendario
     End Sub
 
     Private Sub CargaCombos()
+        'Lista de Tipos de activo fijos
         DdlTipoAF.DataSource = GlobalDTTipoActivoFijo(UsuarioActual.CveEmpresa)
-        DdlTipoAF.DataBind()
         DdlTipoAF.Items.Insert(0, New ListItem("-", ""))
         DdlTipoAF.DataBind()
 
+        'Lista de Activos fijos
         DdlAF.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
         DdlAF.DataBind()
         DdlAF.Items.Insert(0, New ListItem("-", ""))
-        DdlTipoAF.DataBind()
 
         'Lista Chofer'
         DdlChofer.DataSource = GlobalDTRHPersonal(185)
         DdlChofer.DataBind()
         DdlChofer.Items.Insert(0, New ListItem("-", ""))
 
+        'Lista de Estatus
+
     End Sub
 
     Private Sub OnRowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvContratos.RowDataBound
@@ -102,11 +109,6 @@ Partial Class RepContratosCalendario
     End Sub
     Protected Sub UpdateContrato(sender As Object, e As EventArgs)
 
-        'If DdlClientes.SelectedValue = "" Then
-        '    Alert("Debe seleccionar al cliente", TipoMensaje.MsgAdvertencia)
-        '    Exit Sub
-        'End If
-
         Dim ObjContratos As New ClsContratos
         ObjContratos.IniciaTransacSQL()