Exel anexos horizontales, AF

Contabilidad2/RepAnexoCatalogoAnual.aspx.vb

@@ -133,12 +133,24 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
 
         'RegistraScript($"LimpiaCeros({DdlDivisor.SelectedValue});")
         RegistraScript($"LimpiaCeros();")
-        Conta.Dispose()
-    End Sub
-
+        Conta.Dispose()
+
+
+
+        If GvAnual.Rows.Count > 0 Then
+
+            LnkExportar.Visible = True
+            UpAcciones.Update()
+
+        End If
+
+
+
+    End Sub
+
 #End Region
-
-
+
+
 #Region "  GV ROW DATABOUND  "
     Protected Sub GvAnual_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvAnual.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
@@ -150,9 +162,25 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
             e.Row.Style.Add("text-indent", $"{e.Row.DBCampo("Level").ToString.ToEntero * 2}em")
 
         End If
-    End Sub
+    End Sub
+
+    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
+
+        GvAnual.ExportToExcelGembox("AnexoCatálogoAnual", UsuarioActual, $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio2.SelectedValue}", "Anexo del Catálogo - Anual", SubProyecto, DdlDivisor.SelectedValue.ToEntero, DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}")
+
+    End Sub
+
+    Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
+    End Sub
+
 #End Region
-
-
-
+
+
+
 End Class