Cat Proveedores: Fix Rep Proveedores sin cuentas bancarias
Mostraba una imagen rota en el encabezado Solución: - Usar ExportExcelG de modExtensiones
This commit is contained in:
MLopez
@@ -271,7 +271,7 @@ Partial Class Compras_CatProveedores
|
|||||||
|
|
||||||
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
|
params.Add(New ReportParameter("LogoPath", If(Imagen.Exists, $"file://{Imagen.FullName}", "")))
|
||||||
|
|
||||||
ImprimirPDF("Empresas/Grales/Formatos/RepCuentasBancarias.rdlc", DtDatos, params, "RepCuentasBancarias", "Excel")
|
ImprimirPDF("Empresas/Grales/Formatos/RepClientesCuentasBancarias.rdlc", DtDatos, params, "RepClientesCuentasBancarias", "Excel")
|
||||||
Else
|
Else
|
||||||
Alert("No se encontraron datos con los filtros especificados", TipoMensaje.MsgAdvertencia)
|
Alert("No se encontraron datos con los filtros especificados", TipoMensaje.MsgAdvertencia)
|
||||||
End If
|
End If
|
||||||
@@ -280,114 +280,21 @@ Partial Class Compras_CatProveedores
|
|||||||
Protected Sub LnkCtasBancSinProveedor_Click(sender As Object, e As EventArgs)
|
Protected Sub LnkCtasBancSinProveedor_Click(sender As Object, e As EventArgs)
|
||||||
|
|
||||||
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
|
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
|
||||||
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
||||||
|
|
||||||
Dim DtDatos As DataTable = Nothing
|
Dim DtDatos As DataTable = Nothing
|
||||||
|
'Dim GvDatosSC As New GridView With { .AutoGenerateColumns = True }
|
||||||
|
|
||||||
Dim ObjComp As New ClsCompProveedores
|
Dim ObjComp As New ClsCompProveedores
|
||||||
If ObjComp.GetProveedoresSinCuentas(UsuarioActual.CveEmpresa) Then
|
If ObjComp.GetProveedoresSinCuentas(UsuarioActual.CveEmpresa) Then
|
||||||
DtDatos = ObjComp.DtResultados.Copy()
|
DtDatos = ObjComp.DtResultados
|
||||||
|
'GvDatosSC.DataBind()
|
||||||
End If
|
End If
|
||||||
ObjComp.Dispose()
|
ObjComp.Dispose()
|
||||||
|
|
||||||
If DtDatos IsNot Nothing Then
|
If DtDatos IsNot Nothing Then
|
||||||
DtDatos.TableName = "Proveedores"
|
DtDatos.TableName = "Proveedores"
|
||||||
GenerarReporteProveedoresSinCuentaExcel("Proveedores sin Cuentas Bancarias", DtDatos)
|
DtDatos.ExportToExcelG("Proveedores Sin Cuentas", "Proveedores sin Cuentas Bancarias", UsuarioActual)
|
||||||
End If
|
End If
|
||||||
|
|
||||||
End Sub
|
End Sub
|
||||||
Private Sub GenerarReporteProveedoresSinCuentaExcel(Titulo As String, DtDatos As DataTable)
|
|
||||||
Dim Retorno As New MemoryStream()
|
|
||||||
SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet)
|
|
||||||
|
|
||||||
Dim excel As ExcelFile = New ExcelFile
|
|
||||||
|
|
||||||
Dim item = excel.Worksheets.Add(DtDatos.TableName)
|
|
||||||
item.InsertDataTable(DtDatos, New InsertDataTableOptions() With
|
|
||||||
{
|
|
||||||
.ColumnHeaders = True,
|
|
||||||
.StartRow = 0,
|
|
||||||
.StartColumn = 0
|
|
||||||
})
|
|
||||||
item.Rows(0).Style.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(75, 119, 190), SpreadsheetColor.FromArgb(255, 255, 255))
|
|
||||||
item.Rows(0).Style.Font.Color = SpreadsheetColor.FromArgb(255, 255, 255)
|
|
||||||
|
|
||||||
Dim columnCount = item.CalculateMaxUsedColumns()
|
|
||||||
For i = 0 To columnCount
|
|
||||||
item.Columns(i).AutoFit(1, item.Rows(i), item.Rows(item.Rows.Count - 1))
|
|
||||||
Next
|
|
||||||
|
|
||||||
Dim TotalRowHeader As Integer = 8
|
|
||||||
Dim TotalRowFooter As Integer = 2
|
|
||||||
|
|
||||||
Dim worksheet = excel.Worksheets(0)
|
|
||||||
worksheet.Rows.InsertEmpty(0, TotalRowHeader)
|
|
||||||
Dim celdasConTexto = worksheet.GetUsedCellRange(True)
|
|
||||||
celdasConTexto.Style.Font.Name = "Calibri Light"
|
|
||||||
|
|
||||||
Dim RangoNombreEmpresa = worksheet.Cells.GetSubrangeAbsolute(1, celdasConTexto.FirstColumnIndex, 1, celdasConTexto.LastColumnIndex)
|
|
||||||
RangoNombreEmpresa.Merged = True
|
|
||||||
RangoNombreEmpresa.Value = UsuarioActual.Empresa.Empresa
|
|
||||||
RangoNombreEmpresa.Style.Font.Size = 18 * 20
|
|
||||||
RangoNombreEmpresa.Style.Font.Name = "Calibri Light"
|
|
||||||
RangoNombreEmpresa.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
|
|
||||||
RangoNombreEmpresa.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
|
|
||||||
|
|
||||||
|
|
||||||
'Dim RangoFiltros = worksheet.Cells.GetSubrangeAbsolute(6, celdasConTexto.FirstColumnIndex, 6, celdasConTexto.LastColumnIndex)
|
|
||||||
'RangoFiltros.Merged = True
|
|
||||||
'RangoFiltros.Value = Filtros
|
|
||||||
'RangoFiltros.Style.Font.Size = 15 * 20
|
|
||||||
'RangoFiltros.Style.Font.Name = "Calibri Light"
|
|
||||||
'RangoFiltros.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left
|
|
||||||
'RangoFiltros.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
|
|
||||||
|
|
||||||
|
|
||||||
Dim RangoTitulo = worksheet.Cells.GetSubrangeAbsolute(3, celdasConTexto.FirstColumnIndex, 3, celdasConTexto.LastColumnIndex)
|
|
||||||
RangoTitulo.Merged = True
|
|
||||||
RangoTitulo.Value = Titulo
|
|
||||||
RangoTitulo.Style.Font.Size = 20 * 20
|
|
||||||
RangoTitulo.Style.Font.Name = "Calibri Light"
|
|
||||||
RangoTitulo.Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
|
|
||||||
RangoTitulo.Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
|
|
||||||
|
|
||||||
For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex
|
|
||||||
worksheet.Rows(8).Cells(i).Style.Font.Size = 12 * 20
|
|
||||||
worksheet.Rows(8).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
|
|
||||||
worksheet.Rows(8).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
|
|
||||||
worksheet.Rows(8).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
|
|
||||||
worksheet.Rows(8).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)
|
|
||||||
If i > 0 Then
|
|
||||||
Try
|
|
||||||
worksheet.Columns(i).AutoFit(1)
|
|
||||||
Catch ex As Exception
|
|
||||||
End Try
|
|
||||||
End If
|
|
||||||
Next
|
|
||||||
|
|
||||||
Dim IndexEndTable As Integer = DtDatos.Rows.Count + TotalRowHeader + TotalRowFooter
|
|
||||||
|
|
||||||
worksheet.Rows(IndexEndTable).Cells(2).Value = "Usuario Imprimió"
|
|
||||||
worksheet.Rows(IndexEndTable + 1).Cells(2).Value = UsuarioActual.Nombre
|
|
||||||
|
|
||||||
worksheet.Rows(IndexEndTable).Cells(6).Value = "Fecha Impresión"
|
|
||||||
worksheet.Rows(IndexEndTable + 1).Cells(6).Value = DateTime.Now.ToString("dd/MM/yyyy")
|
|
||||||
|
|
||||||
Dim Imagen As New System.IO.FileInfo($"{UsuarioActual.Empresa.Ruta}/Logo.png")
|
|
||||||
|
|
||||||
If Imagen.Exists Then
|
|
||||||
Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", HttpContext.Current.Request.Url.Scheme, HttpContext.Current.Request.Url.Host, HttpContext.Current.Request.Url.Port, UsuarioActual.CveEmpresa)
|
|
||||||
Using webClient As New Net.WebClient()
|
|
||||||
Dim imageBytes = webClient.DownloadData(logouri)
|
|
||||||
Dim stream As New MemoryStream(imageBytes)
|
|
||||||
worksheet.Pictures.Add(stream, ExcelPictureFormat.Png, "A1", 100, 100, LengthUnit.Pixel)
|
|
||||||
'worksheet.Pictures.Add(stream, GemBox.Spreadsheet.ExcelPictureFormat.Png, "A1", AnchoImagen, AlturaImagen, GemBox.Document.LengthUnit.Pixel)
|
|
||||||
End Using
|
|
||||||
End If
|
|
||||||
|
|
||||||
|
|
||||||
excel.Save(Response, "Proveedores Sin Cuentas.xlsx", SaveOptions.XlsxDefault)
|
|
||||||
|
|
||||||
End Sub
|
|
||||||
|
|
||||||
End Class
|
End Class
|
||||||
|
|||||||
Reference in New Issue
Block a user