VyA - calendario pierde las fechas, la regresa al mes actual al hacer postback

Transportes/RepContratosCalendario.aspx.vb

@@ -107,7 +107,8 @@ Partial Class RepContratosCalendario
             UPPGantt.Update()
         End If
     End Sub
-    Private Sub InicializaCalendar()
+    Private Sub InicializaCalendar()
+
         RegistraScript("InitCalendar();")
         DirectCast(Master.FindControl("TSM"), ScriptManager).EnablePageMethods = True
     End Sub
@@ -200,11 +201,12 @@ Partial Class RepContratosCalendario
             Alert("Actualizado Correctamente.")
         Else
             ObjContratos.RollBack()
-        End If
-
+        End If
+
         ObjContratos.Dispose()
         UpTitulos.Update()
         CargaDatos()
+        InicializaCalendar()
     End Sub
     Protected Sub UpdateModal(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)