diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb
index d5480858d..c01c47982 100644
--- a/Transportes/RepContratosCalendario.aspx.vb
+++ b/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)