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

This commit is contained in:
AbrahamCastilloV
2024-01-23 15:59:00 -07:00
parent a0ff3c9e9b
commit dc3af49e75
2 changed files with 71 additions and 71 deletions

View File

@@ -34,21 +34,12 @@
</asp:Content>
<asp:Content ID="Content1" ContentPlaceHolderID="HB" runat="Server">
<asp:UpdatePanel runat="server">
<ContentTemplate>
<li>
<asp:LinkButton ID="LBAgregarContrato" runat="server"><i class='fa fa-plus'></i>Agregar Contrato</asp:LinkButton>
</li>
<%-- <li>
<asp:HyperLink ID="LBListadoContratos" runat="server" NavigateUrl="RepContratos.aspx"
Target="_blank"><i class='fa fa-file'></i>Contratos</asp:HyperLink>
</li>
<li>
<asp:HyperLink ID="LBListadoViajes" runat="server" NavigateUrl="RepViajes.aspx"
Target="_blank"><i class='fa fa-road'></i>Viajes</asp:HyperLink>
</li>--%>
</ContentTemplate>
</asp:UpdatePanel>
<asp:LinkButton ID="LBExcel" runat="server"><i class="fa fa-file-excel-o"></i>Generar Excel</asp:LinkButton>
</li>
</asp:Content>
<asp:Content ID="Content7" ContentPlaceHolderID="C" runat="Server">
@@ -61,7 +52,8 @@
</i></a>
</div>
<contenttemplate>
<asp:UpdatePanel ID="UpTitulos" runat="server" UpdateMode="Conditional">
<ContentTemplate>
<asp:GridView ID="GvContratos" runat="server" AutoGenerateColumns="false" EmptyDataText="No se Encontró Contrato Registrado"
CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" GridLines="None"
data-sort="true" DataKeyNames="CveContrato, DescripcionContrato, Ubicacion, FechaInicial, FechaFinal, CveCliente, CveTipoAF, Importe, ImporteMin, ImporteMax ">
@@ -124,7 +116,8 @@
</asp:TemplateField>
</Columns>
</asp:GridView>
</ContentTemplate>
</asp:UpdatePanel>
<asp:UpdatePanel runat="server" ID="UpModal">
<ContentTemplate>
<div id="ModalAgregar" class="modal ADS fade" role="dialog">

View File

@@ -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