modExtenciones hoja exrta

App_Code/modExtensiones.vb

@@ -2086,7 +2086,7 @@ Namespace Extensiones
         End Sub
 
         <Runtime.CompilerServices.Extension()>
-        Public Sub ExportToExcelGembox(GridView As GridView, NombreArchivoXLSx As String, Usuario As Usuario, Titulo As String, Optional DatoTituloExtra As String = "", Optional DatosFiltros As String = "", Optional AnchoImagen As Integer = 100, Optional AlturaImagen As Integer = 100)
+        Public Sub ExportToExcelGembox(GridView As GridView, NombreArchivoXLSx As String, Usuario As Usuario, Titulo As String, Optional DatoTituloExtra As String = "", Optional DatosFiltros As String = "", Optional AnchoImagen As Integer = 100, Optional AlturaImagen As Integer = 100, Optional DTExtra As DataTable = Nothing)
 
             Dim sw1 As New StringWriter()
             Dim htw1 As New HtmlTextWriter(sw1)
@@ -2229,6 +2229,50 @@ Namespace Extensiones
                     End If
                 Next
 
+
+
+                If DTExtra IsNot Nothing Then
+
+                    Dim NombreTabla As String = ""
+
+                    If DTExtra.TableName IsNot Nothing Then
+                        NombreTabla = DTExtra.TableName
+                    End If
+
+                    If NombreTabla.Trim = "" Then
+                        NombreTabla = "hoja2"
+                    End If
+
+                    'excel.Worksheets.Add(NombreTabla)
+
+                    Dim workbookDTExtra = New ExcelFile
+                    Dim worksheetDTExtra = workbookDTExtra.Worksheets.Add(NombreTabla)
+
+
+                    worksheetDTExtra.InsertDataTable(DTExtra,
+                   New InsertDataTableOptions() With
+                   {
+                       .ColumnHeaders = True,
+                       .StartRow = 0
+                   })
+
+
+
+                    Dim columnCount = worksheetDTExtra.CalculateMaxUsedColumns()
+                    For i As Integer = 0 To columnCount - 1
+                        worksheetDTExtra.Columns(i).AutoFit(1, worksheetDTExtra.Rows(1), worksheetDTExtra.Rows(worksheetDTExtra.Rows.Count - 1))
+                        worksheetDTExtra.Cells(0, i).Style.FillPattern.SetSolid(Drawing.ColorTranslator.FromHtml("#4b77be"))
+
+                    Next
+
+
+                    excel.Worksheets.AddCopy(NombreTabla, worksheetDTExtra)
+
+
+
+
+                End If
+
             End If
 
             excel.Save(HttpContext.Current.Response, $"{NombreArchivoXLSx}.xlsx")

Inventarios/RepAnomalias.aspx.vb

@@ -601,7 +601,9 @@ Partial Class Inventarios_RepAnomalias
         End If
         ObjInventarios.Dispose()
 
-        ExportarExcelGembox(GvGrupos, "Reporte de Inventario Fisico" & Now.ToShortDateString, UsuarioActual, "Reporte de Inventario Fisico", DatosFiltros:=SbFiltros.ToString(), DTExtra:=DTExtra)
+        'ExportToExcelGembox
+        GvGrupos.ExportToExcelGembox("Reporte de Inventario Fisico" & Now.ToShortDateString, UsuarioActual, "Reporte de Inventario Fisico", DatosFiltros:=SbFiltros.ToString(), DTExtra:=DTExtra)
+        'ExportarExcelGembox(GvGrupos, "Reporte de Inventario Fisico" & Now.ToShortDateString, UsuarioActual, "Reporte de Inventario Fisico", DatosFiltros:=SbFiltros.ToString(), DTExtra:=DTExtra)
 
     End Sub