Exel anexos horizontales, AF

Contabilidad2/RepAnexoCatalogoMensual.aspx.vb

@@ -79,7 +79,15 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
             GvMensual2.DataSource = Nothing
         End If
         GvMensual2.DataBind()
-        UpMensual.Update()
+        UpMensual.Update()
+
+        If GvMensual2.Rows.Count > 0 Then
+
+            LnkExportar.Visible = True
+            UpAcciones.Update()
+
+        End If
+
 
         RegistraScript($"LimpiaCeros();")
         Conta.Dispose()
@@ -99,9 +107,22 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
             e.Row.Style.Add("text-indent", $"{e.Row.DBCampo("Level").ToString.ToEntero * 2}em")
 
         End If
-    End Sub
+    End Sub
 #End Region
-
-
+
+    Private Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
+
+        Dim SubProyecto As String = ""
+
+        If DdlSubProyecto.SelectedValue.ToEntero > 0 Then
+            SubProyecto = DdlSubProyecto.SelectedItem.Text
+        End If
+
+        GvMensual2.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}", "Anexo del Catálogo - Mensual", SubProyecto, DdlDivisor.SelectedValue.ToEntero, DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}")
+
+    End Sub
+
+    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
+    End Sub
 
 End Class