--Se implementó la acción de exportar a excel en contratos

Transportes/RepContratos.aspx.vb

@@ -39,6 +39,8 @@ Partial Class ListadoContratos
         End If
         ObjContratos.Dispose()
         GvContratos.DataBind()
+        UpTitulos.Update()
+
     End Sub
     Protected Sub MostrarModal()
         TxtDescripcion.Text = ""
@@ -160,4 +162,9 @@ Partial Class ListadoContratos
         ObjContratos.Dispose()
 
     End Sub
+
+    Protected Sub LBExcel_Click(sender As Object, e As EventArgs) Handles LBExcel.Click
+        GvContratos.ExportToExcel("ReporteCompras" & NowADS().ToShortDateString)
+    End Sub
+
 End Class