From ef9166fdbb6a98327b7431f538816a4dad222083 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 6 Dec 2021 16:06:21 -0700 Subject: [PATCH 1/3] HojaExtra en anomalias --- App_Code/ClsInventarios.vb | 23 +++++++++++++ Inventarios/RepAnomalias.aspx.vb | 59 ++++++++++++++++++++++++++++++-- 2 files changed, 80 insertions(+), 2 deletions(-) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index e253a0892..64bb9cb20 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -2377,6 +2377,29 @@ Public Class ClsInventarios Return Retorno End Function + + Public Function GetInventarioFisicoProductosExcluidos(CveInventarioFisico As Integer, CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Inv_InventarioFisicoProductosExcluidosGet") + With SqlAdapter.SelectCommand.Parameters + .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + + + Catch ex As Exception + OnError("Ocurrió un error al consultar los productos excluidos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo) + End Try + + Return Retorno + End Function + Public Function RemoveInventarioFisicoAlamacen(CveInventarioFisico As Integer) As Boolean Dim Retorno As Boolean = False diff --git a/Inventarios/RepAnomalias.aspx.vb b/Inventarios/RepAnomalias.aspx.vb index bb20e4c8d..d2854e192 100644 --- a/Inventarios/RepAnomalias.aspx.vb +++ b/Inventarios/RepAnomalias.aspx.vb @@ -509,6 +509,8 @@ Partial Class Inventarios_RepAnomalias 'GvF.ExportToExcel("Reporte de Inventario Fisico - Productos que Faltan " & Now.ToShortDateString) + + ExportarExcelGembox(GvTemp, "Reporte de Inventario Fisico - Productos que Faltan " & Now.ToShortDateString, UsuarioActual, "Reporte de Inventario Fisico - Productos que Faltan", DatosFiltros:=SbFiltros.ToString()) End Sub @@ -589,7 +591,17 @@ Partial Class Inventarios_RepAnomalias SbFiltros.AppendFormat("Estatus: {0}|", lbEstatus.Text) - ExportarExcelGembox(GvGrupos, "Reporte de Inventario Fisico" & Now.ToShortDateString, UsuarioActual, "Reporte de Inventario Fisico", DatosFiltros:=SbFiltros.ToString()) + + Dim ObjInventarios As New ClsInventarios + Dim DTExtra As New DataTable + + If ObjInventarios.GetInventarioFisicoProductosExcluidos(CveInventarioFisico, UsuarioActual.CveEmpresa) Then + DTExtra = ObjInventarios.DtResultados + DTExtra.TableName = "ProductosExcluidos" + End If + ObjInventarios.Dispose() + + ExportarExcelGembox(GvGrupos, "Reporte de Inventario Fisico" & Now.ToShortDateString, UsuarioActual, "Reporte de Inventario Fisico", DatosFiltros:=SbFiltros.ToString(), DTExtra:=DTExtra) End Sub @@ -808,7 +820,7 @@ Partial Class Inventarios_RepAnomalias End Sub - Public Sub ExportarExcelGembox(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 ExportarExcelGembox(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) @@ -955,6 +967,49 @@ Partial Class Inventarios_RepAnomalias 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") From d86b2fb3fbbc127b90fc728c46204cafa98d6fae Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 6 Dec 2021 16:51:11 -0700 Subject: [PATCH 2/3] modExtenciones hoja exrta --- App_Code/modExtensiones.vb | 46 +++++++++++++++++++++++++++++++- Inventarios/RepAnomalias.aspx.vb | 4 ++- 2 files changed, 48 insertions(+), 2 deletions(-) diff --git a/App_Code/modExtensiones.vb b/App_Code/modExtensiones.vb index cfc0baf62..0575a2abc 100644 --- a/App_Code/modExtensiones.vb +++ b/App_Code/modExtensiones.vb @@ -2086,7 +2086,7 @@ Namespace Extensiones End Sub - 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") diff --git a/Inventarios/RepAnomalias.aspx.vb b/Inventarios/RepAnomalias.aspx.vb index d2854e192..800812d59 100644 --- a/Inventarios/RepAnomalias.aspx.vb +++ b/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 From c10574e773a294b8b30e078768fbd9b882dbe1fd Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 6 Dec 2021 16:55:21 -0700 Subject: [PATCH 3/3] Actualizar --- App_Code/ClsInventarios.vb | 1 + 1 file changed, 1 insertion(+) diff --git a/App_Code/ClsInventarios.vb b/App_Code/ClsInventarios.vb index 64bb9cb20..02b791de4 100644 --- a/App_Code/ClsInventarios.vb +++ b/App_Code/ClsInventarios.vb @@ -2383,6 +2383,7 @@ Public Class ClsInventarios Dim Retorno As Boolean = False DataAdapter("PA_Inv_InventarioFisicoProductosExcluidosGet") With SqlAdapter.SelectCommand.Parameters + .Add("@CveInventarioFisico", SqlDbType.Int).Value = CveInventarioFisico .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa