CatAutorizacionLimites exporta Excel

Ventas/CatAutorizacionLimites.aspx.vb

@@ -336,4 +336,33 @@ Partial Class Ventas_CatAutorizacionLimites
         End Select
         UpModal.Update()
     End Sub
+
+#Region "  EXPORTA EXCEL  "
+    Protected Sub LnkExportarExcel_Click(sender As Object, e As EventArgs) Handles LnkExportarExcel.Click
+        If GvDatos.Rows.Count <= 0 Then
+            Alert("No hay registros para exportar. Por favor modifique su consulta.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
+        Dim StrFiltro As New StringBuilder
+        StrFiltro.AppendFormat("Filtro:  ")
+        StrFiltro.AppendFormat("Estatus: {0},  ", DdlEstatus.SelectedItem)
+        StrFiltro.AppendFormat("Cliente: {0},  ", IIf(DdlClienteFiltro.SelectedText <> "", DdlClienteFiltro.SelectedText, "Todos"))
+        StrFiltro.AppendFormat("Vendedor: {0},  ", DdlVendedorFiltro.SelectedItem)
+        StrFiltro.AppendFormat("Fecha Inicio: {0}", txtFechaI.Text.ToDate.ToString("dd/MM/yyyy"))
+        'If txtFechaF.Text <> "" Then StrFiltro.AppendFormat(",  Fecha Fin: {0}", txtFechaF.Text.ToDate.ToString("dd/MM/yyyy"))
+        Dim fechaFin As String = IIf(txtFechaF.Text <> "", txtFechaF.Text.ToDate.ToString("dd/MM/yyyy"), Now.ToString("dd/MM/yyyy"))
+        StrFiltro.AppendFormat(",  Fecha Fin: {0}", fechaFin)
+
+        'Oculta columnas en export sin afectar GridView en página
+        Dim tcols = GvDatos.Columns.Count
+        GvDatos.HeaderRow.Cells(tcols - 2).Visible = False 'Autorizar/Rechazar
+        GvDatos.HeaderRow.Cells(tcols - 1).Visible = False 'Eliminar
+
+        GvDatos.ExportToExcelGembox("CatAutorizacionLimites " & txtFechaI.Text.ToDate.ToString("dd-MM-yyyy") + " a " & fechaFin.ToDate.ToString("dd-MM-yyyy"), UsuarioActual, "Catálogo de autorizaciones de límite de crédito", DatosFiltros:=StrFiltro.ToString())
+    End Sub
+
+    Public Overrides Sub VerifyRenderingInServerForm(control As Control)
+    End Sub
+#End Region
 End Class