Compras Impresion de pedf de poliza, clases de compras para subproyectos, RepEstadoResultados

AC/RepPresupuestoEgresosMensual.aspx

@@ -10,9 +10,24 @@
 <asp:Content ID="Content4" ContentPlaceHolderID="E" runat="Server">
     Estado del Ejercicio del Presupuesto de Egresos - Mensual
 </asp:Content>
-<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server"> 
-    <asp:ImageButton ID="ImgExcel" runat="server" ImageUrl="/Imagenes/IconoExcel.gif" Width="17px" Height="17px" />&nbsp; 
-    <asp:ImageButton ID="BtnImprimir" OnClick="BtnImprimir_Click" runat="server" alt="Imprimir" src="/Imagenes/btnImprimir.gif" Style="cursor: pointer; height: 20px" />&nbsp;
+<asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">    
+
+    <asp:UpdatePanel runat="server" ID="UpAcciones" >
+        <ContentTemplate>
+             <li>
+                <asp:LinkButton ID="ImgExcel" OnClick="ImgExcel_Click" Visible="false" runat="server"><i class="fa fa-file-excel-o"></i> Exporta Excel</asp:LinkButton>
+            </li>
+            <li>
+                <asp:LinkButton ID="BtnImprimir" OnClick="BtnImprimir_Click" Visible="false"  runat="server"><i class="fa fa-file-pdf-o"></i> Imprimir</asp:LinkButton>
+            </li>
+        </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="ImgExcel" />
+            <asp:PostBackTrigger ControlID="BtnImprimir" />
+        </Triggers>
+    </asp:UpdatePanel>
+
+    
 </asp:Content>
 <asp:Content ID="Content6" ContentPlaceHolderID="C" runat="Server">
  

AC/RepPresupuestoEgresosMensual.aspx.vb

@@ -18,6 +18,8 @@ Partial Class AC_RepPresupuestoEgresosMensual
         If Not Page.IsPostBack Then
             CargaEjercicios()
             CargaCombos()
+
+
         End If
     End Sub
 
@@ -68,6 +70,10 @@ Partial Class AC_RepPresupuestoEgresosMensual
 
 
     Private Sub CargaDatos()
+
+        ImgExcel.Visible = False
+        BtnImprimir.Visible = False
+
         Dim objAC As New ClsContPAQi(UsuarioActual.Empresa)
         Dim Capitulo As String = If(DdlCapituloClasificaciones.SelectedValue.ToEntero = -1, "-1", GlobalDTACClasificadorObjetoGasto.FiltraParametros(String.Format("CveClasificacion = {0}", DdlCapituloClasificaciones.SelectedValue.ToEntero)).Rows(0)("Codigo").ToString.Substring(0, 1))
         UPPDatos.Update()
@@ -83,6 +89,11 @@ Partial Class AC_RepPresupuestoEgresosMensual
             End If
 
             Gv.DataSource = DtPresupuestoEgresos
+            If DtPresupuestoEgresos IsNot Nothing AndAlso DtPresupuestoEgresos.Rows.Count > 0 Then
+                ImgExcel.Visible = True
+                BtnImprimir.Visible = True
+            End If
+
         Else
             Gv.DataSource = Nothing
             DtPresupuestoEgresos = Nothing