diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx
index 5f7828996..e66c9fddb 100644
--- a/Transportes/RepContratosCalendario.aspx
+++ b/Transportes/RepContratosCalendario.aspx
@@ -50,9 +50,9 @@
                                 <div class="row" style="height: 32px;">
                                     <label class="col-md-1">Tipo Vista: </label>
                                     <div class="col-md-2">
-                                        <asp:RadioButtonList ID="RBTipoVista" runat="server" AutoPostBack="True" RepeatDirection="Horizontal">
-                                            <asp:ListItem Text="Duración" Value="duracion" />
+                                        <asp:RadioButtonList ID="RBTipoVista" runat="server" AutoPostBack="True" RepeatDirection="Horizontal">                                           
                                             <asp:ListItem Text="Fecha de Salida" Value="fecha" Selected="True" />
+                                            <asp:ListItem Text="Duración" Value="duracion" />
                                         </asp:RadioButtonList>
 
                                     </div>
@@ -162,8 +162,8 @@
                                     <%-- Centro de Costos --%>
                                     <label class="col-md-1 truncate ">Centro de Costos</label>
                                     <div class="col-md-2">
-                                        <asp:DropDownList ID="DdlCentroCostos" data-text="Todos" AppendDataBoundItems="true"
-                                            DataTextField="" DataValueField="" CssClass="form-control ddlFiltros input-sm select2me Widthall"
+                                        <asp:DropDownList ID="DdlSubProyectos" data-text="Todos" AppendDataBoundItems="true"
+                                            DataTextField="SubProyecto" DataValueField="CveSubProyecto" CssClass="form-control ddlFiltros input-sm select2me Widthall"
                                             Style="width: 100%;" runat="server">
                                         </asp:DropDownList>
                                     </div>
@@ -193,7 +193,7 @@
                             <asp:GridView ID="GvContratos" runat="server" AutoGenerateColumns="false" EmptyDataText="No se Encontró Contrato Registrado"
                                 CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn miGrid"
                                 GridLines="None"
-                                data-sort="true" DataKeyNames="CveContrato, NumeroContrato, DescripcionContrato, Ubicacion, FechaInicial, FechaFinal, CveCliente,NombreComercial, CveTipoAF, Importe, ImporteMin, ImporteMax, Observaciones, CveAF, CveChofer, CveChofer2, CveContratosEstatus, CantidadPasajeros">
+                                data-sort="true" DataKeyNames="CveContrato, NumeroContrato, DescripcionContrato, Ubicacion, FechaInicial, FechaFinal, CveCliente, NombreComercial, CveTipoAF, Importe, ImporteMin, ImporteMax, Observaciones, CveAF, CveChofer, CveChofer2, CveContratosEstatus, CantidadPasajeros,CveMoneda">
                                 <Columns>
                                     <asp:TemplateField HeaderText="Contrato">
                                         <ItemTemplate>
diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb
index 647f1ec80..56f473f1a 100644
--- a/Transportes/RepContratosCalendario.aspx.vb
+++ b/Transportes/RepContratosCalendario.aspx.vb
@@ -47,7 +47,7 @@ Partial Class RepContratosCalendario
         Dim CveCliente As Integer = DdlCliente.SelectedValue.ToEntero
         If CveCliente = 0 Then CveCliente = -1
 
-        If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlCliente.SelectedValue.ToEntero, CveEstatus:=DdlEstatusConsulta.SelectedValue.ToEntero, CveTipoContrato:=34) Then
+        If ObjContratos.GetContratosReporte(UsuarioActual.CveEmpresa, txtFechaI.Text.ToDate, txtFechaF.Text.ToDate, DdlCliente.SelectedValue.ToEntero, CveSubProyecto:=DdlSubProyectos.SelectedValue.ToEntero, CveEstatus:=DdlEstatusConsulta.SelectedValue.ToEntero, CveTipoContrato:=34) Then
             GvContratos.DataSource = ObjContratos.DtResultados
         End If
         DtAvance = ObjContratos.DtResultados
@@ -97,9 +97,11 @@ Partial Class RepContratosCalendario
 
         DdlEstatusContrato.DataSource = GlobalDTContratosEstatus(UsuarioActual.CveEmpresa)
         DdlEstatusContrato.DataBind()
-        DdlEstatusContrato.Items.Insert(0, New ListItem("-", ""))
-
+        DdlEstatusContrato.Items.Insert(0, New ListItem("Todos", "-1"))
 
+        DdlSubProyectos.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyectos.DataBind()
+        DdlSubProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
 
         'CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, LblSubProyecto)