Presupuesto Excel

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