diff --git a/Transportes/RepContratos.aspx.vb b/Transportes/RepContratos.aspx.vb
index a39ff2de3..712563423 100644
--- a/Transportes/RepContratos.aspx.vb
+++ b/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