Vya Calendario no carga unidad correctamente

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