diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx
index 52aee0ada..028bcf371 100644
--- a/Transportes/RepContratosCalendario.aspx
+++ b/Transportes/RepContratosCalendario.aspx
@@ -516,8 +516,9 @@
         <asp:UpdatePanel ID="UpCommando" runat="server" UpdateMode="Conditional">
             <ContentTemplate>
                 <asp:Button runat="server" ID="BtnModal" OnClick="MostrarModal"></asp:Button>
-                <asp:HiddenField runat="server" ID="HdnCveContrato" Value="-1" ClientIDMode="Static" />                
-                <asp:Button runat="server" ID="BtnDdlTipoAF" OnClick="BtnDdlTipoAF_Click" ClientIDMode="Static"></asp:Button>
+                <asp:HiddenField runat="server" ID="HdnCveContrato" Value="-1" ClientIDMode="Static" />          
+                
+                <%--<asp:Button runat="server" ID="BtnDdlTipoAF" OnClick="BtnDdlTipoAF_Click" ClientIDMode="Static"></asp:Button>--%>
 
             </ContentTemplate>
         </asp:UpdatePanel>
@@ -531,6 +532,7 @@
     <asp:HiddenField runat="server" ID="HidRemisionSerieFolio" Value="-1" ClientIDMode="Static" />
     <asp:HiddenField runat="server" ID="HidCveVentaRemision" Value="-1" ClientIDMode="Static" />
     <asp:HiddenField runat="server" ID="HidRemisionSaldo" Value="-1" ClientIDMode="Static" />
+    <asp:HiddenField runat="server" ID="HidCveAF" Value="-1" ClientIDMode="Static" />
 
 </asp:Content>
 
@@ -784,7 +786,7 @@
             }           
             $('#<%=TxtFechaRegreso.ClientID%>').val(formatearFechaISO(event.FechaFinal));
             $('#<%=DdlClientes.ClientID%>').val(event.CveCliente);
-            $('#<%=DdlAF.ClientID%>').val(event.CveActivoFijo);
+            
             $('#<%=DdlChofer.ClientID%>').val(event.CvePersonal);
             $('#<%=DdlChofer2.ClientID%>').val(event.CvePersonal2);
             $('#<%=DdlEstatusContrato.ClientID%>').val(event.CveEventoEstatus);
@@ -800,13 +802,17 @@
             $('#<%=DdlSubProyectoModal.ClientID%>').val(event.CveSubProyecto);
 
             $('#<%= HidCveTipoAF.ClientID%>').val( $('#<%=DdlTipoAF.ClientID%>').val() );
-            $('#<%=BtnDdlTipoAF.ClientID%>').click();
+
+            <%--$('#<%=BtnDdlTipoAF.ClientID%>').click();--%>
+            <%--$('#<%=DdlAF.ClientID%>').val(event.CveActivoFijo);--%>
 
             $('#HidNumChoferes').val(event.NumChoferes);
 
             $('#HidRemisionSerieFolio').val(event.RemisionSerieFolio);
             $('#HidCveVentaRemision').val(event.CveVentaRemision);
             $('#HidRemisionSaldo').val(event.RemisionSaldo);
+            $('#HidCveAF').val(event.CveActivoFijo);
+            
 
           <%--  $('#HidRemision').text(event.RemisionSerieFolio);            
             $('#HypRemision').attr('href', '/Ventas/Ventas.aspx?CveVenta=' + event.CveVentaRemision);            
diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb
index 2deaa563d..860d9b48f 100644
--- a/Transportes/RepContratosCalendario.aspx.vb
+++ b/Transportes/RepContratosCalendario.aspx.vb
@@ -44,8 +44,7 @@ Partial Class RepContratosCalendario
         If Not IsPostBack Then
             txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString()
             txtFechaF.Text = GetLastDayOfMonth(NowADS()).ToShortDateString()
-            InicializaCombos()
-            InicializaCalendar()
+            InicializaCombos()
             CargaDatos()
         End If
         'InicializaCalendar()
@@ -74,7 +73,7 @@ Partial Class RepContratosCalendario
         GvContratos.DataBind()
         UpTitulos.Update()
 
-        RegistraScript("InitCalendar();")
+        InicializaCalendar()
 
     End Sub
 
@@ -347,6 +346,8 @@ Partial Class RepContratosCalendario
             LblSaldo.Text = ""
         End If
 
+        CargaAFDdl(HidCveTipoAF.Value.ToEntero)
+        DdlAF.SelectedValueExist(HidCveAF.Value)
 
 
 
@@ -377,10 +378,11 @@ Partial Class RepContratosCalendario
         CargaAFDdl(DdlTipoAF.SelectedValue.ToEntero)
     End Sub
 
-    Protected Sub BtnDdlTipoAF_Click(sender As Object, e As EventArgs)
+    'Protected Sub BtnDdlTipoAF_Click(sender As Object, e As EventArgs)
 
-        CargaAFDdl(HidCveTipoAF.Value.ToEntero)
-    End Sub
+    '    CargaAFDdl(HidCveTipoAF.Value.ToEntero)
+
+    'End Sub
 
     Private Sub CargaAFDdl(CveTipoAF As Integer)
         'Lista de Activos fijos