mejora

Transportes/RepContratos.aspx.vb

@@ -19,8 +19,8 @@ Partial Class ListadoContratos
     End Property
 #End Region
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
-        txtFechaI.Text = DateTime.Now.AddMonths(-1).ToString("MM/dd/yyyy").Replace(" ", "T")
-        txtFechaF.Text = DateTime.Now.AddDays(7).ToString("MM/dd/yyyy").Replace(" ", "T")
+        txtFechaI.Text = DateTime.Now.AddMonths(-1).ToShortDateString
+        txtFechaF.Text = DateTime.Now.AddDays(7).ToShortDateString
 
         If Not IsPostBack Then
             InicializaCombos()
@@ -56,6 +56,7 @@ Partial Class ListadoContratos
             GvContratos.DataSource = ObjContratos.DtResultados
             GvContratos.DataBind()
         End If
+        ObjContratos.Dispose()
 
         'Generamos Folio - NumeroContrato
         Dim CveSubProyecto As Integer = GlobalDTSubProyectos(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveSubProyecto", "TipoSucursal = 1").ToEntero