--Se redujo el código en la barra de consultas y se eliminaron todos los validadores, se intercambió el código fijo de Ddlestatusconsulta por los reales de la base de datos, se agregó la columna de estatus y el color pertinente y se eliminó la columna de acciones editar y eliminar. Se agregaron FI y FF iniciales para la consulta y se eliminaron los métodos de editar y eliminar. En RepContratosCalendario se agregaron los DdlEstatusContratos . Se cargaron los datos de estatus en ddls y se simplificó el OnRowDataBound ya que se sacan los colores del mismo PA.

Transportes/RepContratosCalendario.aspx.vb

@@ -11,8 +11,8 @@ 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")
+        txtFechaI.Text = DateTime.Now.AddMonths(-1).ToString("yyyy-MM-dd").Replace(" ", "T")
+        txtFechaF.Text = DateTime.Now.AddDays(7).ToString("yyyy-MM-dd").Replace(" ", "T")
 
         If Not IsPostBack Then
             CargaCombos()
@@ -29,10 +29,21 @@ Partial Class RepContratosCalendario
         Dim ObjContratos As New ClsContratos
         If ObjContratos.GetContratos(-1, UsuarioActual.CveEmpresa, TipoContrato:=2) Then
             GvContratos.DataSource = ObjContratos.DtResultados
+            GvContratos.DataBind()
         End If
-        ObjContratos.Dispose()
-        GvContratos.DataBind()
 
+        If ObjContratos.GetContratosEstatus(UsuarioActual.CveEmpresa) Then
+            DdlEstatusConsulta.DataSource = ObjContratos.DtResultados
+            DdlEstatusConsulta.DataBind()
+            DdlEstatusConsulta.Items.Insert(0, New ListItem("-", ""))
+
+            DdlEstatusContrato.DataSource = ObjContratos.DtResultados
+            DdlEstatusContrato.DataBind()
+            DdlEstatusContrato.Items.Insert(0, New ListItem("-", ""))
+
+        End If
+
+        ObjContratos.Dispose()
     End Sub
     Private Sub InicializaCalendar()
 
@@ -56,22 +67,12 @@ Partial Class RepContratosCalendario
         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
         If e.Row.RowType = DataControlRowType.DataRow Then
-            Dim estatusContrato As String = DataBinder.Eval(e.Row.DataItem, "EstatusContrato").ToString()
-
-            Select Case estatusContrato
-                Case "1"
-                    e.Row.BackColor = Drawing.Color.FromArgb(0, 165, 106)
-                Case "2"
-                    e.Row.BackColor = Drawing.Color.FromArgb(43, 79, 214)
-                Case "3"
-                    e.Row.BackColor = Drawing.Color.FromArgb(238, 96, 46)
-            End Select
+            Dim BackgroundColor As String = DataBinder.Eval(e.Row.DataItem, "BackgroundColor").ToString()
+            e.Row.BackColor = Drawing.ColorTranslator.FromHtml(BackgroundColor)
         End If
     End Sub
     Protected Sub MostrarModal(sender As Object, e As System.EventArgs)