AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

ajustes al reporte

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-05-15 12:30:39 -07:00
parent f2ea971f91
commit ff4a9372c1
3 changed files with 31 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Bancos/RepSaldosDetalle.aspx
View File

@@ -6,14 +6,14 @@
</asp:Content>
<asp:Content ID="Content3" ContentPlaceHolderID="HB" runat="Server">
<li>
<asp:LinkButton ID="ImgExcel" runat="server" ><img src="/Imagenes/IconoExcel.gif" /> Generar</asp:LinkButton></li>
<asp:LinkButton ID="ImgExcel" runat="server" ><img src="/Imagenes/IconoExcel.gif" /> Excel</asp:LinkButton></li>
</asp:Content>
<asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
Reporte de Saldos Bancarios Detalle
</asp:Content>
<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
<li>
<asp:LinkButton ID="LinkPDF" runat="server"> <i class="fa fa-ad-pdf"></i> Imprimir</asp:LinkButton>
<asp:LinkButton ID="LinkPDF" runat="server"> <i class="fa fa-ad-pdf"></i> PDF</asp:LinkButton>
</li>
</asp:Content>
<asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">

10
Bancos/RepSaldosDetalle.aspx.vb
View File

@@ -177,13 +177,15 @@ Partial Class Bancos_RepSaldosDetalle
End Sub
Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click
GvS.ExportToExcel("ReporteSaldos" & Now.ToShortDateString)
ImprimirReporte("Excel")
End Sub
#Region "P D F"
Private Sub LinkPDF_Click(sender As Object, e As EventArgs) Handles LinkPDF.Click
ImprimirReporte("PDF")
End Sub
Private Sub ImprimirReporte(formato As String)
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
@@ -218,7 +220,7 @@ Partial Class Bancos_RepSaldosDetalle
params.Add(New ReportParameter("LogoPath", ""))
End If
ImprimirPDF("Empresas/Grales/Formatos/RepSaldosDetalle.rdlc", dt, params, "RepSaldosDetalle")
ImprimirPDF("Empresas/Grales/Formatos/RepSaldosDetalle.rdlc", dt, params, "RepSaldosDetalle", Formato:=formato)
Ban.Dispose()
End Sub