diff --git a/Contratos/Contrato.aspx b/Contratos/Contrato.aspx
index 7fb92b014..52992ef0a 100644
--- a/Contratos/Contrato.aspx
+++ b/Contratos/Contrato.aspx
@@ -130,7 +130,9 @@
             <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>
             </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>
                 <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>
@@ -170,6 +172,7 @@
             <asp:PostBackTrigger ControlID="LBImprimirInformacionG" />
             <asp:PostBackTrigger ControlID="lbImprimirAvance" />
             <asp:PostBackTrigger ControlID="LbImprimirPresupuesto" />
+            <asp:PostBackTrigger ControlID="LbImprimirPresupuestoExcel" />
             <asp:PostBackTrigger ControlID="LbImprmirAF" />
             <asp:PostBackTrigger ControlID="LbImprmirAFExcel" />
             <asp:PostBackTrigger ControlID="LbImprimirPedDev" />
diff --git a/Contratos/Contrato.aspx.vb b/Contratos/Contrato.aspx.vb
index 02127071e..50bb6f76a 100644
--- a/Contratos/Contrato.aspx.vb
+++ b/Contratos/Contrato.aspx.vb
@@ -2754,7 +2754,7 @@ Partial Class Contratos_Default
 
     Private Sub CargaGVGastos()
         Dim objContrato As New ClsContratos
-        If objContrato.GetContratoGastos(CveContrato) Then
+        If objContrato.GetContratoGastos(CveContrato, UsuarioActual.CveEmpresa) Then
             DtGastos = objContrato.DtResultados
             GvContratosGastos.DataSource = DtGastos
             SumaGasto = objContrato.DtResultados.SUM("Importe", "CveContratoGasto IS NULL")
@@ -3835,6 +3835,9 @@ Partial Class Contratos_Default
 #Region "I M P R E S I O N       D E     P R E S U P U E S T O  "
     Private Sub lLbImprimirPresupuesto_Click(sender As Object, e As EventArgs) Handles LbImprimirPresupuesto.Click
         GenerarPDFPPresupuesto()
+    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")
         Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))