Exel anexos horizontales, AF

Contabilidad2/RepAnexoCatalogoCC.aspx.vb

@@ -112,6 +112,14 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
 
         Else
             GvCC.DataSource = Nothing
+        End If
+
+
+        If GvCC.Rows.Count > 0 Then
+
+            LnkExportar.Visible = True
+            UpAcciones.Update()
+
         End If
 
         RegistraScript($"LimpiaCeros({DdlDivisor.SelectedValue});")
@@ -132,9 +140,22 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
             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
+
+        GvCC.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