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

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