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

Presupuesto Excel

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2021-12-08 16:12:40 -07:00
parent 93fed87fb8
commit eb8de27837
2 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Contratos/Contrato.aspx
View File

@@ -130,7 +130,9 @@
<li> <li>
<asp:LinkButton ID="LbImprimirPresupuesto" Visible="true" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> Presupuesto PDF</asp:LinkButton> <asp:LinkButton ID="LbImprimirPresupuesto" Visible="true" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> Presupuesto PDF</asp:LinkButton>
</li> </li>
<li>
<asp:LinkButton ID="LbImprimirPresupuestoExcel" Visible="true" runat="server"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Presupuesto Excel</asp:LinkButton>
</li>
<li> <li>
<asp:LinkButton ID="LbImprmirAF" Visible="true" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> Activos Fijos PDF</asp:LinkButton> <asp:LinkButton ID="LbImprmirAF" Visible="true" runat="server"> <i class="fa fa-file-pdf-o" style="font-weight:bold;"></i> Activos Fijos PDF</asp:LinkButton>
</li> </li>
@@ -170,6 +172,7 @@
<asp:PostBackTrigger ControlID="LBImprimirInformacionG" /> <asp:PostBackTrigger ControlID="LBImprimirInformacionG" />
<asp:PostBackTrigger ControlID="lbImprimirAvance" /> <asp:PostBackTrigger ControlID="lbImprimirAvance" />
<asp:PostBackTrigger ControlID="LbImprimirPresupuesto" /> <asp:PostBackTrigger ControlID="LbImprimirPresupuesto" />
<asp:PostBackTrigger ControlID="LbImprimirPresupuestoExcel" />
<asp:PostBackTrigger ControlID="LbImprmirAF" /> <asp:PostBackTrigger ControlID="LbImprmirAF" />
<asp:PostBackTrigger ControlID="LbImprmirAFExcel" /> <asp:PostBackTrigger ControlID="LbImprmirAFExcel" />
<asp:PostBackTrigger ControlID="LbImprimirPedDev" /> <asp:PostBackTrigger ControlID="LbImprimirPedDev" />

5
Contratos/Contrato.aspx.vb
View File

@@ -2754,7 +2754,7 @@ Partial Class Contratos_Default
Private Sub CargaGVGastos() Private Sub CargaGVGastos()
Dim objContrato As New ClsContratos Dim objContrato As New ClsContratos
If objContrato.GetContratoGastos(CveContrato) Then If objContrato.GetContratoGastos(CveContrato, UsuarioActual.CveEmpresa) Then
DtGastos = objContrato.DtResultados DtGastos = objContrato.DtResultados
GvContratosGastos.DataSource = DtGastos GvContratosGastos.DataSource = DtGastos
SumaGasto = objContrato.DtResultados.SUM("Importe", "CveContratoGasto IS NULL") SumaGasto = objContrato.DtResultados.SUM("Importe", "CveContratoGasto IS NULL")
@@ -3836,6 +3836,9 @@ Partial Class Contratos_Default
Private Sub lLbImprimirPresupuesto_Click(sender As Object, e As EventArgs) Handles LbImprimirPresupuesto.Click Private Sub lLbImprimirPresupuesto_Click(sender As Object, e As EventArgs) Handles LbImprimirPresupuesto.Click
GenerarPDFPPresupuesto() GenerarPDFPPresupuesto()
End Sub End Sub
Private Sub lLbImprimirPresupuestoEXCEL_Click(sender As Object, e As EventArgs) Handles LbImprimirPresupuestoExcel.Click
GenerarPDFPPresupuesto(Formato:="EXCEL")
End Sub
Private Sub GenerarPDFPPresupuesto(Optional Formato As String = "PDF") Private Sub GenerarPDFPPresupuesto(Optional Formato As String = "PDF")
Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta)) 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) Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)