diff --git a/Ventas/RepPS.aspx.vb b/Ventas/RepPS.aspx.vb index 7ff45a9fe..01cb8f2ba 100644 --- a/Ventas/RepPS.aspx.vb +++ b/Ventas/RepPS.aspx.vb @@ -254,644 +254,675 @@ Partial Class Ventas_RepPS ObjVentas.Dispose() If DataSet IsNot Nothing Then - SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) + Try + SpreadsheetInfo.SetLicense(ModExtensiones.SerialGemBoxSpreadsheet) - Dim FileExcel As New ExcelFile() + Dim FileExcel As New ExcelFile() - Dim worksheetName As String = $"{ToShortMonthName(FechaConsulta).ToUpper()}{FechaConsulta.Day}" - Const invalidCharsRegex As String = "[/\\*'?[\]:]+" - Const maxLength As Integer = 31 - Dim safeName As String = Regex.Replace(worksheetName, invalidCharsRegex, " ").Replace(" ", " ").Trim() + Dim worksheetName As String = $"{ToShortMonthName(FechaConsulta).ToUpper()}{FechaConsulta.Day}" + Const invalidCharsRegex As String = "[/\\*'?[\]:]+" + Const maxLength As Integer = 31 + Dim safeName As String = Regex.Replace(worksheetName, invalidCharsRegex, " ").Replace(" ", " ").Trim() - If String.IsNullOrEmpty(safeName) Then - safeName = "RepPSDiario" ' cannot be empty - ElseIf safeName.Length > maxLength Then - safeName = safeName.Substring(0, maxLength) - End If - - Dim worksheet = FileExcel.Worksheets.Add(safeName) - - Dim CellRangeTitulo = worksheet.Cells.GetSubrangeAbsolute(0, 0, 0, 12) - CellRangeTitulo.Merged = True - CellRangeTitulo.Value = $"{UsuarioActual.Empresa.Empresa}. VENTA DEL DIA {FechaConsulta.Day} DE {ToMonthName(FechaConsulta).ToUpper()} DEL {FechaConsulta.Year}." - CellRangeTitulo.Style.VerticalAlignment = VerticalAlignmentStyle.Center - CellRangeTitulo.Style.HorizontalAlignment = HorizontalAlignmentStyle.Center - -#Region "V E N T A S - L L A N T A S, R I N E S, A L I N E A C I O N E S" - Dim CeldaTotalVentaAcumulada As ExcelCell = Nothing - - worksheet.Cells(2, 0).Value = "Sucursal" - 'TITULO DE LLANTAS - worksheet.Cells.GetSubrangeAbsolute(1, 1, 1, 3).Merged = True - worksheet.Cells(1, 3).Value = "LLANTAS" - worksheet.Cells(2, 1).Value = "Ant" - worksheet.Cells(2, 2).Value = "Dia" - worksheet.Cells(2, 3).Value = "Acum" - 'TITULO DE RINES - worksheet.Cells.GetSubrangeAbsolute(1, 4, 1, 6).Merged = True - worksheet.Cells(1, 6).Value = "RINES" - worksheet.Cells(2, 4).Value = "Ant" - worksheet.Cells(2, 5).Value = "Dia" - worksheet.Cells(2, 6).Value = "Acum" - 'TITULO DE ALINEACIONES - worksheet.Cells.GetSubrangeAbsolute(1, 7, 1, 9).Merged = True - worksheet.Cells(1, 9).Value = "ALINEACIONES" - worksheet.Cells(2, 7).Value = "Ant" - worksheet.Cells(2, 8).Value = "Dia" - worksheet.Cells(2, 9).Value = "Acum" - 'TITULO DE VENTAS DEL DIA - worksheet.Cells.GetSubrangeAbsolute(1, 10, 1, 12).Merged = True - worksheet.Cells(1, 12).Value = "VENTA EN PESOS" - worksheet.Cells(2, 10).Value = "Ant" - worksheet.Cells(2, 11).Value = "Dia" - worksheet.Cells(2, 12).Value = "Acum" - - Dim StyleTitleTable1 = worksheet.Cells.GetSubrangeAbsolute(1, 1, 1, 12).Style - StyleTitleTable1.Font.Weight = ExcelFont.BoldWeight - StyleTitleTable1.Font.Name = "Calibri" - StyleTitleTable1.Font.Size = 8 * 20 - StyleTitleTable1.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) - StyleTitleTable1.VerticalAlignment = VerticalAlignmentStyle.Center - StyleTitleTable1.HorizontalAlignment = HorizontalAlignmentStyle.Center - - Dim StyleSubTitleTable1 = worksheet.Cells.GetSubrangeAbsolute(2, 0, 2, 12).Style - StyleSubTitleTable1.Font.Weight = ExcelFont.BoldWeight - StyleSubTitleTable1.Font.Name = "Calibri" - StyleSubTitleTable1.Font.Size = 8 * 20 - StyleSubTitleTable1.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) - StyleSubTitleTable1.VerticalAlignment = VerticalAlignmentStyle.Center - StyleSubTitleTable1.HorizontalAlignment = HorizontalAlignmentStyle.Center - - Dim DtSucursalesLLantasAlin As DataTable = DataSet.Tables(0) - - 'INICIA DESDE LA CUARTA FILA - Dim IdxSucursalesLlantasAlin As Integer = 3 - Dim idxTabla As Integer = 0 - For Each Row As DataRow In DtSucursalesLLantasAlin.Rows - idxTabla += 1 - worksheet.Cells(IdxSucursalesLlantasAlin, 0).Value = Row("SubProyecto") - - worksheet.Cells(IdxSucursalesLlantasAlin, 1).Value = Row("LlantasCantidadAnterior") - worksheet.Cells(IdxSucursalesLlantasAlin, 2).Value = Row("LlantasCantidadDia") - 'worksheet.Cells(IdxSucursalesLlantasAlin, 3).Value = Row("LlantasCantidadAcumulada") - worksheet.Cells(IdxSucursalesLlantasAlin, 3).Formula = $"=SUM({worksheet.Cells(IdxSucursalesLlantasAlin, 1).Name}:{worksheet.Cells(IdxSucursalesLlantasAlin, 2).Name})" - - worksheet.Cells(IdxSucursalesLlantasAlin, 4).Value = Row("RinCantidadAnterior") - worksheet.Cells(IdxSucursalesLlantasAlin, 5).Value = Row("RinCantidadDia") - 'worksheet.Cells(IdxSucursalesLlantasAlin, 6).Value = Row("RinCantidadAcumulada") - worksheet.Cells(IdxSucursalesLlantasAlin, 6).Formula = $"=SUM({worksheet.Cells(IdxSucursalesLlantasAlin, 4).Name}:{worksheet.Cells(IdxSucursalesLlantasAlin, 5).Name})" - - worksheet.Cells(IdxSucursalesLlantasAlin, 7).Value = Row("AlinCantidadAnterior") - worksheet.Cells(IdxSucursalesLlantasAlin, 8).Value = Row("AlinCantidadDia") - 'worksheet.Cells(IdxSucursalesLlantasAlin, 9).Value = Row("AlinCantidadAcumulada") - worksheet.Cells(IdxSucursalesLlantasAlin, 9).Formula = $"=SUM({worksheet.Cells(IdxSucursalesLlantasAlin, 7).Name}:{worksheet.Cells(IdxSucursalesLlantasAlin, 8).Name})" - - worksheet.Cells(IdxSucursalesLlantasAlin, 10).Value = Row("VentaAnterior") - worksheet.Cells(IdxSucursalesLlantasAlin, 11).Value = Row("VentaDia") - 'worksheet.Cells(IdxSucursalesLlantasAlin, 12).Value = Row("VentaAcumulada") - worksheet.Cells(IdxSucursalesLlantasAlin, 12).Formula = $"=SUM({worksheet.Cells(IdxSucursalesLlantasAlin, 10).Name}:{worksheet.Cells(IdxSucursalesLlantasAlin, 11).Name})" - - If idxTabla = DtSucursalesLLantasAlin.Rows.Count Then - CeldaTotalVentaAcumulada = worksheet.Cells(IdxSucursalesLlantasAlin, 12) + If String.IsNullOrEmpty(safeName) Then + safeName = "RepPSDiario" ' cannot be empty + ElseIf safeName.Length > maxLength Then + safeName = safeName.Substring(0, maxLength) End If - Dim StyleData = worksheet.Cells.GetSubrangeAbsolute(IdxSucursalesLlantasAlin, 0, IdxSucursalesLlantasAlin, 12).Style - StyleData.Font.Weight = ExcelFont.BoldWeight - StyleData.Font.Name = "Calibri" - StyleData.Font.Size = 8 * 20 - StyleData.VerticalAlignment = VerticalAlignmentStyle.Center - StyleData.HorizontalAlignment = HorizontalAlignmentStyle.Center - StyleData.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) - StyleData.NumberFormat = "_-* #,##0.00_-;-* #,##0.00_-;_-* ""-""??_-;_-@_-" + Dim worksheet = FileExcel.Worksheets.Add(safeName) - 'LAS VENTAS DEL DIA NO DEBEN ESTAR EN NEGRITAS - worksheet.Cells(IdxSucursalesLlantasAlin, 0).Style.Font.Weight = ExcelFont.NormalWeight - worksheet.Cells(IdxSucursalesLlantasAlin, 0).Style.HorizontalAlignment = HorizontalAlignmentStyle.Left + Dim CellRangeTitulo = worksheet.Cells.GetSubrangeAbsolute(0, 0, 0, 12) + CellRangeTitulo.Merged = True + CellRangeTitulo.Value = $"{UsuarioActual.Empresa.Empresa}. VENTA DEL DIA {FechaConsulta.Day} DE {ToMonthName(FechaConsulta).ToUpper()} DEL {FechaConsulta.Year}." + CellRangeTitulo.Style.VerticalAlignment = VerticalAlignmentStyle.Center + CellRangeTitulo.Style.HorizontalAlignment = HorizontalAlignmentStyle.Center - worksheet.Cells(IdxSucursalesLlantasAlin, 2).Style.Font.Weight = ExcelFont.NormalWeight - worksheet.Cells(IdxSucursalesLlantasAlin, 5).Style.Font.Weight = ExcelFont.NormalWeight - worksheet.Cells(IdxSucursalesLlantasAlin, 8).Style.Font.Weight = ExcelFont.NormalWeight - worksheet.Cells(IdxSucursalesLlantasAlin, 11).Style.Font.Weight = ExcelFont.NormalWeight +#Region "V E N T A S - L L A N T A S, R I N E S, A L I N E A C I O N E S" + Dim CeldaTotalVentaAcumulada As ExcelCell = Nothing - IdxSucursalesLlantasAlin += 1 - Next - 'LA FILA DE LOS TOTALES DEBE ESTAR EN NEGITAS - worksheet.Cells.GetSubrangeAbsolute(IdxSucursalesLlantasAlin - 1, 0, IdxSucursalesLlantasAlin - 1, 12).Style.Font.Weight = ExcelFont.BoldWeight + worksheet.Cells(2, 0).Value = "Sucursal" + 'TITULO DE LLANTAS + worksheet.Cells.GetSubrangeAbsolute(1, 1, 1, 3).Merged = True + worksheet.Cells(1, 3).Value = "LLANTAS" + worksheet.Cells(2, 1).Value = "Ant" + worksheet.Cells(2, 2).Value = "Dia" + worksheet.Cells(2, 3).Value = "Acum" + 'TITULO DE RINES + worksheet.Cells.GetSubrangeAbsolute(1, 4, 1, 6).Merged = True + worksheet.Cells(1, 6).Value = "RINES" + worksheet.Cells(2, 4).Value = "Ant" + worksheet.Cells(2, 5).Value = "Dia" + worksheet.Cells(2, 6).Value = "Acum" + 'TITULO DE ALINEACIONES + worksheet.Cells.GetSubrangeAbsolute(1, 7, 1, 9).Merged = True + worksheet.Cells(1, 9).Value = "ALINEACIONES" + worksheet.Cells(2, 7).Value = "Ant" + worksheet.Cells(2, 8).Value = "Dia" + worksheet.Cells(2, 9).Value = "Acum" + 'TITULO DE VENTAS DEL DIA + worksheet.Cells.GetSubrangeAbsolute(1, 10, 1, 12).Merged = True + worksheet.Cells(1, 12).Value = "VENTA EN PESOS" + worksheet.Cells(2, 10).Value = "Ant" + worksheet.Cells(2, 11).Value = "Dia" + worksheet.Cells(2, 12).Value = "Acum" + + Dim StyleTitleTable1 = worksheet.Cells.GetSubrangeAbsolute(1, 1, 1, 12).Style + StyleTitleTable1.Font.Weight = ExcelFont.BoldWeight + StyleTitleTable1.Font.Name = "Calibri" + StyleTitleTable1.Font.Size = 8 * 20 + StyleTitleTable1.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) + StyleTitleTable1.VerticalAlignment = VerticalAlignmentStyle.Center + StyleTitleTable1.HorizontalAlignment = HorizontalAlignmentStyle.Center + + Dim StyleSubTitleTable1 = worksheet.Cells.GetSubrangeAbsolute(2, 0, 2, 12).Style + StyleSubTitleTable1.Font.Weight = ExcelFont.BoldWeight + StyleSubTitleTable1.Font.Name = "Calibri" + StyleSubTitleTable1.Font.Size = 8 * 20 + StyleSubTitleTable1.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) + StyleSubTitleTable1.VerticalAlignment = VerticalAlignmentStyle.Center + StyleSubTitleTable1.HorizontalAlignment = HorizontalAlignmentStyle.Center + + Dim DtSucursalesLLantasAlin As DataTable = DataSet.Tables(0) + + 'INICIA DESDE LA CUARTA FILA + Dim IdxSucursalesLlantasAlin As Integer = 3 + Dim idxTabla As Integer = 0 + For Each Row As DataRow In DtSucursalesLLantasAlin.Rows + idxTabla += 1 + worksheet.Cells(IdxSucursalesLlantasAlin, 0).Value = Row("SubProyecto") + + worksheet.Cells(IdxSucursalesLlantasAlin, 1).Value = Row("LlantasCantidadAnterior") + worksheet.Cells(IdxSucursalesLlantasAlin, 2).Value = Row("LlantasCantidadDia") + 'worksheet.Cells(IdxSucursalesLlantasAlin, 3).Value = Row("LlantasCantidadAcumulada") + worksheet.Cells(IdxSucursalesLlantasAlin, 3).Formula = $"=SUM({worksheet.Cells(IdxSucursalesLlantasAlin, 1).Name}:{worksheet.Cells(IdxSucursalesLlantasAlin, 2).Name})" + + worksheet.Cells(IdxSucursalesLlantasAlin, 4).Value = Row("RinCantidadAnterior") + worksheet.Cells(IdxSucursalesLlantasAlin, 5).Value = Row("RinCantidadDia") + 'worksheet.Cells(IdxSucursalesLlantasAlin, 6).Value = Row("RinCantidadAcumulada") + worksheet.Cells(IdxSucursalesLlantasAlin, 6).Formula = $"=SUM({worksheet.Cells(IdxSucursalesLlantasAlin, 4).Name}:{worksheet.Cells(IdxSucursalesLlantasAlin, 5).Name})" + + worksheet.Cells(IdxSucursalesLlantasAlin, 7).Value = Row("AlinCantidadAnterior") + worksheet.Cells(IdxSucursalesLlantasAlin, 8).Value = Row("AlinCantidadDia") + 'worksheet.Cells(IdxSucursalesLlantasAlin, 9).Value = Row("AlinCantidadAcumulada") + worksheet.Cells(IdxSucursalesLlantasAlin, 9).Formula = $"=SUM({worksheet.Cells(IdxSucursalesLlantasAlin, 7).Name}:{worksheet.Cells(IdxSucursalesLlantasAlin, 8).Name})" + + worksheet.Cells(IdxSucursalesLlantasAlin, 10).Value = Row("VentaAnterior") + worksheet.Cells(IdxSucursalesLlantasAlin, 11).Value = Row("VentaDia") + 'worksheet.Cells(IdxSucursalesLlantasAlin, 12).Value = Row("VentaAcumulada") + worksheet.Cells(IdxSucursalesLlantasAlin, 12).Formula = $"=SUM({worksheet.Cells(IdxSucursalesLlantasAlin, 10).Name}:{worksheet.Cells(IdxSucursalesLlantasAlin, 11).Name})" + + If idxTabla = DtSucursalesLLantasAlin.Rows.Count Then + CeldaTotalVentaAcumulada = worksheet.Cells(IdxSucursalesLlantasAlin, 12) + End If + + Dim StyleData = worksheet.Cells.GetSubrangeAbsolute(IdxSucursalesLlantasAlin, 0, IdxSucursalesLlantasAlin, 9).Style + StyleData.Font.Weight = ExcelFont.BoldWeight + StyleData.Font.Name = "Calibri" + StyleData.Font.Size = 8 * 20 + StyleData.VerticalAlignment = VerticalAlignmentStyle.Center + StyleData.HorizontalAlignment = HorizontalAlignmentStyle.Center + StyleData.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) + StyleData.NumberFormat = "_-* 0_-;-* 0-;_-* ""-""??_-;_-@_-" + + Dim StyleDataVenta = worksheet.Cells.GetSubrangeAbsolute(IdxSucursalesLlantasAlin, 10, IdxSucursalesLlantasAlin, 12).Style + StyleDataVenta.Font.Weight = ExcelFont.BoldWeight + StyleDataVenta.Font.Name = "Calibri" + StyleDataVenta.Font.Size = 8 * 20 + StyleDataVenta.VerticalAlignment = VerticalAlignmentStyle.Center + StyleDataVenta.HorizontalAlignment = HorizontalAlignmentStyle.Center + StyleDataVenta.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) + StyleDataVenta.NumberFormat = "_-* #,##0.00_-;-* #,##0.00_-;_-* ""-""??_-;_-@_-" + + 'LAS VENTAS DEL DIA NO DEBEN ESTAR EN NEGRITAS + worksheet.Cells(IdxSucursalesLlantasAlin, 0).Style.Font.Weight = ExcelFont.NormalWeight + worksheet.Cells(IdxSucursalesLlantasAlin, 0).Style.HorizontalAlignment = HorizontalAlignmentStyle.Left + + worksheet.Cells(IdxSucursalesLlantasAlin, 2).Style.Font.Weight = ExcelFont.NormalWeight + worksheet.Cells(IdxSucursalesLlantasAlin, 5).Style.Font.Weight = ExcelFont.NormalWeight + worksheet.Cells(IdxSucursalesLlantasAlin, 8).Style.Font.Weight = ExcelFont.NormalWeight + worksheet.Cells(IdxSucursalesLlantasAlin, 11).Style.Font.Weight = ExcelFont.NormalWeight + + IdxSucursalesLlantasAlin += 1 + Next + 'LA FILA DE LOS TOTALES DEBE ESTAR EN NEGITAS + worksheet.Cells.GetSubrangeAbsolute(IdxSucursalesLlantasAlin - 1, 0, IdxSucursalesLlantasAlin - 1, 12).Style.Font.Weight = ExcelFont.BoldWeight #End Region #Region "L L A N T A S M E S A Ñ O A N T E R I O R R E S U M E N" - Dim IdxRefMesAnioAnteriorLlantasResumen As Integer = IdxSucursalesLlantasAlin + 1 + Dim IdxRefMesAnioAnteriorLlantasResumen As Integer = IdxSucursalesLlantasAlin + 1 - worksheet.Cells(IdxRefMesAnioAnteriorLlantasResumen, 0).Value = "Mes" - worksheet.Cells(IdxRefMesAnioAnteriorLlantasResumen, 1).Value = String.Format("{0}", (FechaConsulta.Year - 1)) - worksheet.Cells(IdxRefMesAnioAnteriorLlantasResumen, 2).Value = String.Format("{0}", (FechaConsulta.Year)) - worksheet.Cells(IdxRefMesAnioAnteriorLlantasResumen, 3).Value = "DIF UDS" - worksheet.Cells(IdxRefMesAnioAnteriorLlantasResumen, 4).Value = "DIF %" + worksheet.Cells(IdxRefMesAnioAnteriorLlantasResumen, 0).Value = "Mes" + worksheet.Cells(IdxRefMesAnioAnteriorLlantasResumen, 1).Value = String.Format("{0}", (FechaConsulta.Year - 1)) + worksheet.Cells(IdxRefMesAnioAnteriorLlantasResumen, 2).Value = String.Format("{0}", (FechaConsulta.Year)) + worksheet.Cells(IdxRefMesAnioAnteriorLlantasResumen, 3).Value = "DIF UDS" + worksheet.Cells(IdxRefMesAnioAnteriorLlantasResumen, 4).Value = "DIF %" - Dim StyleTitleTable6 = worksheet.Cells.GetSubrangeAbsolute(IdxRefMesAnioAnteriorLlantasResumen, 0, IdxRefMesAnioAnteriorLlantasResumen, 4).Style - StyleTitleTable6.Font.Weight = ExcelFont.BoldWeight - StyleTitleTable6.Font.Name = "Calibri" - StyleTitleTable6.Font.Size = 8 * 20 - StyleTitleTable6.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) - StyleTitleTable6.VerticalAlignment = VerticalAlignmentStyle.Center - StyleTitleTable6.HorizontalAlignment = HorizontalAlignmentStyle.Center + Dim StyleTitleTable6 = worksheet.Cells.GetSubrangeAbsolute(IdxRefMesAnioAnteriorLlantasResumen, 0, IdxRefMesAnioAnteriorLlantasResumen, 4).Style + StyleTitleTable6.Font.Weight = ExcelFont.BoldWeight + StyleTitleTable6.Font.Name = "Calibri" + StyleTitleTable6.Font.Size = 8 * 20 + StyleTitleTable6.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) + StyleTitleTable6.VerticalAlignment = VerticalAlignmentStyle.Center + StyleTitleTable6.HorizontalAlignment = HorizontalAlignmentStyle.Center - Dim DtMesAnioAnteriorLLantasResumen As DataTable = DataSet.Tables(5) - 'INICIA DESDE LA CUARTA FILA - Dim IdxMesAnioAnteriorLlantasResumen As Integer = IdxRefMesAnioAnteriorLlantasResumen + 1 + Dim DtMesAnioAnteriorLLantasResumen As DataTable = DataSet.Tables(5) + 'INICIA DESDE LA CUARTA FILA + Dim IdxMesAnioAnteriorLlantasResumen As Integer = IdxRefMesAnioAnteriorLlantasResumen + 1 - For Each Row As DataRow In DtMesAnioAnteriorLLantasResumen.Rows - worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 0).Value = ToMonthName(FechaConsulta).ToUpper() + " - LLANTAS" - worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 1).Value = Row("LLantasAnioAnterior") - worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 2).Value = Row("LLantas") - worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 3).Formula = $"=({worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 1).Name} - {worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 2).Name})" - worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 4).Formula = $"=+({worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 2).Name} / {worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 1).Name})" + For Each Row As DataRow In DtMesAnioAnteriorLLantasResumen.Rows + worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 0).Value = ToMonthName(FechaConsulta).ToUpper() + " - LLANTAS" + worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 1).Value = Row("LLantasAnioAnterior") + worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 2).Value = Row("LLantas") + worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 3).Formula = $"=({worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 1).Name} - {worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 2).Name})" + worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 4).Formula = $"=+({worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 2).Name} / {worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 1).Name})" - Dim StyleData = worksheet.Cells.GetSubrangeAbsolute(IdxMesAnioAnteriorLlantasResumen, 0, IdxMesAnioAnteriorLlantasResumen, 4).Style - StyleData.Font.Weight = ExcelFont.NormalWeight - StyleData.Font.Name = "Calibri" - StyleData.Font.Size = 8 * 20 - StyleData.VerticalAlignment = VerticalAlignmentStyle.Center - StyleData.HorizontalAlignment = HorizontalAlignmentStyle.Center - StyleData.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) - StyleData.NumberFormat = "_-* #,##0.00_-;-* #,##0.00_-;_-* ""-""??_-;_-@_-" + Dim StyleData = worksheet.Cells.GetSubrangeAbsolute(IdxMesAnioAnteriorLlantasResumen, 0, IdxMesAnioAnteriorLlantasResumen, 4).Style + StyleData.Font.Weight = ExcelFont.NormalWeight + StyleData.Font.Name = "Calibri" + StyleData.Font.Size = 8 * 20 + StyleData.VerticalAlignment = VerticalAlignmentStyle.Center + StyleData.HorizontalAlignment = HorizontalAlignmentStyle.Center + StyleData.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) + StyleData.NumberFormat = "_-* 0_-;-* 0-;_-* ""-""??_-;_-@_-" + + IdxMesAnioAnteriorLlantasResumen += 1 + Next IdxMesAnioAnteriorLlantasResumen += 1 - Next - IdxMesAnioAnteriorLlantasResumen += 1 + 'RESUMEN DE METAS + worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 0).Value = "Mes" + worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 1).Value = "Meta" + worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 2).Value = String.Format("{0}", (FechaConsulta.Year - 1)) + worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 3).Value = "DIF UDS" + worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 4).Value = "DIF %" - 'RESUMEN DE METAS - worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 0).Value = "Mes" - worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 1).Value = "Meta" - worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 2).Value = String.Format("{0}", (FechaConsulta.Year - 1)) - worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 3).Value = "DIF UDS" - worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 4).Value = "DIF %" - - Dim StyleTitleTableMeta = worksheet.Cells.GetSubrangeAbsolute(IdxMesAnioAnteriorLlantasResumen, 0, IdxMesAnioAnteriorLlantasResumen, 4).Style - StyleTitleTableMeta.Font.Weight = ExcelFont.BoldWeight - StyleTitleTableMeta.Font.Name = "Calibri" - StyleTitleTableMeta.Font.Size = 8 * 20 - StyleTitleTableMeta.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) - StyleTitleTableMeta.VerticalAlignment = VerticalAlignmentStyle.Center - StyleTitleTableMeta.HorizontalAlignment = HorizontalAlignmentStyle.Center - - IdxMesAnioAnteriorLlantasResumen += 1 - - For Each Row As DataRow In DtMesAnioAnteriorLLantasResumen.Rows - worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 0).Value = ToMonthName(FechaConsulta).ToUpper() + " - LLANTAS" - worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 1).Value = 0 - worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 2).Value = Row("LLantasAnioAnterior") - worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 3).Formula = $"=({worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 1).Name} - {worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 2).Name})" - worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 4).Formula = $"=+({worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 2).Name} / {worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 1).Name})" - - Dim StyleDataMeta = worksheet.Cells.GetSubrangeAbsolute(IdxMesAnioAnteriorLlantasResumen, 0, IdxMesAnioAnteriorLlantasResumen, 4).Style - StyleDataMeta.Font.Weight = ExcelFont.NormalWeight - StyleDataMeta.Font.Name = "Calibri" - StyleDataMeta.Font.Size = 8 * 20 - StyleDataMeta.VerticalAlignment = VerticalAlignmentStyle.Center - StyleDataMeta.HorizontalAlignment = HorizontalAlignmentStyle.Center - StyleDataMeta.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) - StyleDataMeta.NumberFormat = "_-* #,##0.00_-;-* #,##0.00_-;_-* ""-""??_-;_-@_-" + Dim StyleTitleTableMeta = worksheet.Cells.GetSubrangeAbsolute(IdxMesAnioAnteriorLlantasResumen, 0, IdxMesAnioAnteriorLlantasResumen, 4).Style + StyleTitleTableMeta.Font.Weight = ExcelFont.BoldWeight + StyleTitleTableMeta.Font.Name = "Calibri" + StyleTitleTableMeta.Font.Size = 8 * 20 + StyleTitleTableMeta.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) + StyleTitleTableMeta.VerticalAlignment = VerticalAlignmentStyle.Center + StyleTitleTableMeta.HorizontalAlignment = HorizontalAlignmentStyle.Center IdxMesAnioAnteriorLlantasResumen += 1 - Next - DtMesAnioAnteriorLLantasResumen.Dispose() + For Each Row As DataRow In DtMesAnioAnteriorLLantasResumen.Rows + worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 0).Value = ToMonthName(FechaConsulta).ToUpper() + " - LLANTAS" + worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 1).Value = 0 + worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 2).Value = Row("LLantasAnioAnterior") + worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 3).Formula = $"=({worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 1).Name} - {worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 2).Name})" + worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 4).Formula = $"=+({worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 2).Name} / {worksheet.Cells(IdxMesAnioAnteriorLlantasResumen, 1).Name})" + + Dim StyleDataMeta = worksheet.Cells.GetSubrangeAbsolute(IdxMesAnioAnteriorLlantasResumen, 0, IdxMesAnioAnteriorLlantasResumen, 4).Style + StyleDataMeta.Font.Weight = ExcelFont.NormalWeight + StyleDataMeta.Font.Name = "Calibri" + StyleDataMeta.Font.Size = 8 * 20 + StyleDataMeta.VerticalAlignment = VerticalAlignmentStyle.Center + StyleDataMeta.HorizontalAlignment = HorizontalAlignmentStyle.Center + StyleDataMeta.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) + StyleDataMeta.NumberFormat = "_-* #,##0.00_-;-* #,##0.00_-;_-* ""-""??_-;_-@_-" + + IdxMesAnioAnteriorLlantasResumen += 1 + Next + + DtMesAnioAnteriorLLantasResumen.Dispose() #End Region #Region "F R A N Q U I C I A S R E S U M E N" - Dim TotalFranquicias As Decimal = DtSucursalesLLantasAlin.FiltroPrimeroValor("LlantasCantidadAcumulada", "CveSubProyecto=11842").ToDecimal() + Dim TotalFranquicias As Decimal = DtSucursalesLLantasAlin.FiltroPrimeroValor("LlantasCantidadAcumulada", "CveSubProyecto=11842").ToDecimal() - DtSucursalesLLantasAlin.Dispose() + DtSucursalesLLantasAlin.Dispose() - Dim IdxRefFranquiciasResumen As Integer = IdxRefMesAnioAnteriorLlantasResumen + Dim IdxRefFranquiciasResumen As Integer = IdxRefMesAnioAnteriorLlantasResumen - Dim columnRefFranquiciasResumen As Integer = 6 + Dim columnRefFranquiciasResumen As Integer = 6 - 'PRM 19 - worksheet.Cells(IdxRefFranquiciasResumen, columnRefFranquiciasResumen).Value = $"PRM {Now.Year - 1}" - worksheet.Cells(IdxRefFranquiciasResumen, columnRefFranquiciasResumen + 1).Value = "ALM PS" - worksheet.Cells(IdxRefFranquiciasResumen, columnRefFranquiciasResumen + 2).Value = "" - worksheet.Cells(IdxRefFranquiciasResumen, columnRefFranquiciasResumen + 3).Value = TotalFranquicias + 'PRM 19 + worksheet.Cells(IdxRefFranquiciasResumen, columnRefFranquiciasResumen).Value = $"PRM {Now.Year - 1}" + worksheet.Cells(IdxRefFranquiciasResumen, columnRefFranquiciasResumen + 1).Value = "ALM PS" + worksheet.Cells(IdxRefFranquiciasResumen, columnRefFranquiciasResumen + 2).Value = "" + worksheet.Cells(IdxRefFranquiciasResumen, columnRefFranquiciasResumen + 3).Value = TotalFranquicias - 'TOMA EL VALOR DE DIF LLANTAS - worksheet.Cells(IdxRefFranquiciasResumen + 1, columnRefFranquiciasResumen).Formula = $"=({worksheet.Cells(IdxMesAnioAnteriorLlantasResumen - 4, 3).Name})" + 'TOMA EL VALOR DE DIF LLANTAS + worksheet.Cells(IdxRefFranquiciasResumen + 1, columnRefFranquiciasResumen).Formula = $"=({worksheet.Cells(IdxMesAnioAnteriorLlantasResumen - 4, 3).Name})" - worksheet.Cells(IdxRefFranquiciasResumen + 2, columnRefFranquiciasResumen + 1).Value = $"FRANQ {Now.Year}" - worksheet.Cells(IdxRefFranquiciasResumen + 2, columnRefFranquiciasResumen + 2).Value = 4988 + worksheet.Cells(IdxRefFranquiciasResumen + 2, columnRefFranquiciasResumen + 1).Value = $"FRANQ {Now.Year}" + worksheet.Cells(IdxRefFranquiciasResumen + 2, columnRefFranquiciasResumen + 2).Value = 4988 - worksheet.Cells(IdxRefFranquiciasResumen + 3, columnRefFranquiciasResumen).Value = $"PRM {Now.Year}" - worksheet.Cells(IdxRefFranquiciasResumen + 3, columnRefFranquiciasResumen + 1).Value = "" - worksheet.Cells(IdxRefFranquiciasResumen + 3, columnRefFranquiciasResumen + 2).Formula = $"=({worksheet.Cells(IdxRefFranquiciasResumen, columnRefFranquiciasResumen + 3).Name} - {worksheet.Cells(IdxRefFranquiciasResumen + 2, columnRefFranquiciasResumen + 2).Name})" - worksheet.Cells(IdxRefFranquiciasResumen + 3, columnRefFranquiciasResumen + 3).Formula = $"+({worksheet.Cells(IdxRefFranquiciasResumen + 3, columnRefFranquiciasResumen + 2)})" + worksheet.Cells(IdxRefFranquiciasResumen + 3, columnRefFranquiciasResumen).Value = $"PRM {Now.Year}" + worksheet.Cells(IdxRefFranquiciasResumen + 3, columnRefFranquiciasResumen + 1).Value = "" + worksheet.Cells(IdxRefFranquiciasResumen + 3, columnRefFranquiciasResumen + 2).Formula = $"=({worksheet.Cells(IdxRefFranquiciasResumen, columnRefFranquiciasResumen + 3).Name} - {worksheet.Cells(IdxRefFranquiciasResumen + 2, columnRefFranquiciasResumen + 2).Name})" + worksheet.Cells(IdxRefFranquiciasResumen + 3, columnRefFranquiciasResumen + 3).Formula = $"+({worksheet.Cells(IdxRefFranquiciasResumen + 3, columnRefFranquiciasResumen + 2)})" - 'TOMA EL VALOR DE DIF LLANTAS METAS - worksheet.Cells(IdxRefFranquiciasResumen + 4, columnRefFranquiciasResumen).Formula = $"=({worksheet.Cells(IdxMesAnioAnteriorLlantasResumen - 1, 3).Name})" + 'TOMA EL VALOR DE DIF LLANTAS METAS + worksheet.Cells(IdxRefFranquiciasResumen + 4, columnRefFranquiciasResumen).Formula = $"=({worksheet.Cells(IdxMesAnioAnteriorLlantasResumen - 1, 3).Name})" - Dim StyleTitleTableFR = worksheet.Cells.GetSubrangeAbsolute(IdxRefFranquiciasResumen, columnRefFranquiciasResumen, IdxRefFranquiciasResumen + 4, columnRefFranquiciasResumen + 3).Style - StyleTitleTableFR.Font.Weight = ExcelFont.BoldWeight - StyleTitleTableFR.Font.Name = "Calibri" - StyleTitleTableFR.Font.Size = 8 * 20 - StyleTitleTableFR.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) - StyleTitleTableFR.VerticalAlignment = VerticalAlignmentStyle.Center - StyleTitleTableFR.HorizontalAlignment = HorizontalAlignmentStyle.Center + Dim StyleTitleTableFR = worksheet.Cells.GetSubrangeAbsolute(IdxRefFranquiciasResumen, columnRefFranquiciasResumen, IdxRefFranquiciasResumen + 4, columnRefFranquiciasResumen + 3).Style + StyleTitleTableFR.Font.Weight = ExcelFont.BoldWeight + StyleTitleTableFR.Font.Name = "Calibri" + StyleTitleTableFR.Font.Size = 8 * 20 + StyleTitleTableFR.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) + StyleTitleTableFR.VerticalAlignment = VerticalAlignmentStyle.Center + StyleTitleTableFR.HorizontalAlignment = HorizontalAlignmentStyle.Center - 'Dim StyleDataFranquicias = worksheet.Cells.GetSubrangeAbsolute(IdxMesAnioAnteriorLlantasResumen, 0, IdxMesAnioAnteriorLlantasResumen, 4).Style - 'StyleData.Font.Weight = ExcelFont.NormalWeight - 'StyleData.Font.Name = "Calibri" - 'StyleData.Font.Size = 8 * 20 - 'StyleData.VerticalAlignment = VerticalAlignmentStyle.Center - 'StyleData.HorizontalAlignment = HorizontalAlignmentStyle.Center - 'StyleData.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) - 'StyleData.NumberFormat = "_-* #,##0.00_-;-* #,##0.00_-;_-* ""-""??_-;_-@_-" + 'Dim StyleDataFranquicias = worksheet.Cells.GetSubrangeAbsolute(IdxMesAnioAnteriorLlantasResumen, 0, IdxMesAnioAnteriorLlantasResumen, 4).Style + 'StyleData.Font.Weight = ExcelFont.NormalWeight + 'StyleData.Font.Name = "Calibri" + 'StyleData.Font.Size = 8 * 20 + 'StyleData.VerticalAlignment = VerticalAlignmentStyle.Center + 'StyleData.HorizontalAlignment = HorizontalAlignmentStyle.Center + 'StyleData.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) + 'StyleData.NumberFormat = "_-* #,##0.00_-;-* #,##0.00_-;_-* ""-""??_-;_-@_-" - IdxRefFranquiciasResumen += 1 + IdxRefFranquiciasResumen += 1 #End Region #Region "A Ñ O R E S U M E N" - Dim IdxRefAnioResumen As Integer = IdxRefFranquiciasResumen - 1 + Dim IdxRefAnioResumen As Integer = IdxRefFranquiciasResumen - 1 - Dim columnRefAnioResumen As Integer = columnRefFranquiciasResumen + 5 + Dim columnRefAnioResumen As Integer = columnRefFranquiciasResumen + 5 - 'AÑO ANTERIOR - worksheet.Cells(IdxRefAnioResumen, columnRefAnioResumen).Value = Now.Year - 1 - Dim CellAnioAnterior = worksheet.Cells(IdxRefAnioResumen, columnRefAnioResumen + 1) - CellAnioAnterior.Value = 0 + 'AÑO ANTERIOR + worksheet.Cells(IdxRefAnioResumen, columnRefAnioResumen).Value = Now.Year - 1 + Dim CellAnioAnterior = worksheet.Cells(IdxRefAnioResumen, columnRefAnioResumen + 1) + CellAnioAnterior.Value = 0 - 'AÑO ACTUAL - worksheet.Cells(IdxRefAnioResumen + 1, columnRefAnioResumen).Value = Now.Year - Dim CellAnioActual = worksheet.Cells(IdxRefAnioResumen + 1, columnRefAnioResumen + 1) - CellAnioActual.Value = 0 + 'AÑO ACTUAL + worksheet.Cells(IdxRefAnioResumen + 1, columnRefAnioResumen).Value = Now.Year + Dim CellAnioActual = worksheet.Cells(IdxRefAnioResumen + 1, columnRefAnioResumen + 1) + CellAnioActual.Value = 0 - worksheet.Cells(IdxRefAnioResumen + 2, columnRefAnioResumen + 1).Formula = $"=({CeldaTotalVentaAcumulada.Name} - {worksheet.Cells(IdxRefAnioResumen, columnRefAnioResumen + 1).Name})" + worksheet.Cells(IdxRefAnioResumen + 2, columnRefAnioResumen + 1).Formula = $"=({CeldaTotalVentaAcumulada.Name} - {worksheet.Cells(IdxRefAnioResumen, columnRefAnioResumen + 1).Name})" - worksheet.Cells(IdxRefAnioResumen + 3, columnRefAnioResumen).Value = $"X DIA {Now.Year - 1}" - worksheet.Cells(IdxRefAnioResumen + 4, columnRefAnioResumen).Value = $"X DIA {Now.Year}" + worksheet.Cells(IdxRefAnioResumen + 3, columnRefAnioResumen).Value = $"X DIA {Now.Year - 1}" + worksheet.Cells(IdxRefAnioResumen + 4, columnRefAnioResumen).Value = $"X DIA {Now.Year}" - Dim DiasFinMes As Integer = 0 + Dim DiasFinMes As Integer = 0 - Dim Day As Integer = Now.Day - Dim DaysMonth As Integer = DateTime.DaysInMonth(Now.Year, Now.Month) - Dim Month As Integer = Now.Month - Dim Year As Integer = Now.Year + Dim Day As Integer = Now.Day + Dim DaysMonth As Integer = DateTime.DaysInMonth(Now.Year, Now.Month) + Dim Month As Integer = Now.Month + Dim Year As Integer = Now.Year - For i = Day To DaysMonth - Dim DayRef As DateTime = New DateTime(Year, Month, i) - If DayRef.DayOfWeek <> DayOfWeek.Sunday Then - DiasFinMes += 1 - End If - Next + For i = Day To DaysMonth + Dim DayRef As DateTime = New DateTime(Year, Month, i) + If DayRef.DayOfWeek <> DayOfWeek.Sunday Then + DiasFinMes += 1 + End If + Next - worksheet.Cells(IdxRefAnioResumen + 3, columnRefAnioResumen + 1).Formula = $"=({CellAnioAnterior.Name} - {CeldaTotalVentaAcumulada.Name})/{If(DiasFinMes > 0, DiasFinMes, 1)}" - worksheet.Cells(IdxRefAnioResumen + 3, columnRefAnioResumen + 2).Formula = $"=({CeldaTotalVentaAcumulada.Name}/{CellAnioAnterior.Name})" + worksheet.Cells(IdxRefAnioResumen + 3, columnRefAnioResumen + 1).Formula = $"=({CellAnioAnterior.Name} - {CeldaTotalVentaAcumulada.Name})/{If(DiasFinMes > 0, DiasFinMes, 1)}" + worksheet.Cells(IdxRefAnioResumen + 3, columnRefAnioResumen + 2).Formula = $"=({CeldaTotalVentaAcumulada.Name}/{CellAnioAnterior.Name})" - worksheet.Cells(IdxRefAnioResumen + 4, columnRefAnioResumen + 1).Formula = $"=({CellAnioActual.Name} - {CeldaTotalVentaAcumulada.Name})/{If(DiasFinMes > 0, DiasFinMes, 1)}" - worksheet.Cells(IdxRefAnioResumen + 4, columnRefAnioResumen + 2).Formula = $"=({CeldaTotalVentaAcumulada.Name}/{CellAnioActual.Name})" + worksheet.Cells(IdxRefAnioResumen + 4, columnRefAnioResumen + 1).Formula = $"=({CellAnioActual.Name} - {CeldaTotalVentaAcumulada.Name})/{If(DiasFinMes > 0, DiasFinMes, 1)}" + worksheet.Cells(IdxRefAnioResumen + 4, columnRefAnioResumen + 2).Formula = $"=({CeldaTotalVentaAcumulada.Name}/{CellAnioActual.Name})" - Dim StyleTitleTableAR = worksheet.Cells.GetSubrangeAbsolute(IdxRefAnioResumen, columnRefAnioResumen, IdxRefAnioResumen + 4, columnRefAnioResumen + 2).Style - StyleTitleTableAR.Font.Weight = ExcelFont.BoldWeight - StyleTitleTableAR.Font.Name = "Calibri" - StyleTitleTableAR.Font.Size = 8 * 20 - StyleTitleTableAR.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) - StyleTitleTableAR.VerticalAlignment = VerticalAlignmentStyle.Center - StyleTitleTableAR.HorizontalAlignment = HorizontalAlignmentStyle.Center + Dim StyleTitleTableAR = worksheet.Cells.GetSubrangeAbsolute(IdxRefAnioResumen, columnRefAnioResumen, IdxRefAnioResumen + 4, columnRefAnioResumen + 2).Style + StyleTitleTableAR.Font.Weight = ExcelFont.BoldWeight + StyleTitleTableAR.Font.Name = "Calibri" + StyleTitleTableAR.Font.Size = 8 * 20 + StyleTitleTableAR.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) + StyleTitleTableAR.VerticalAlignment = VerticalAlignmentStyle.Center + StyleTitleTableAR.HorizontalAlignment = HorizontalAlignmentStyle.Center - Dim StyleDataAR = worksheet.Cells.GetSubrangeAbsolute(IdxRefAnioResumen, columnRefAnioResumen + 1, IdxRefAnioResumen + 4, columnRefAnioResumen + 2).Style - StyleDataAR.Font.Weight = ExcelFont.NormalWeight - StyleDataAR.Font.Name = "Calibri" - StyleDataAR.Font.Size = 8 * 20 - StyleDataAR.VerticalAlignment = VerticalAlignmentStyle.Center - StyleDataAR.HorizontalAlignment = HorizontalAlignmentStyle.Center - StyleDataAR.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) - StyleDataAR.NumberFormat = "_-* #,##0.00_-;-* #,##0.00_-;_-* ""-""??_-;_-@_-" + Dim StyleDataAR = worksheet.Cells.GetSubrangeAbsolute(IdxRefAnioResumen, columnRefAnioResumen + 1, IdxRefAnioResumen + 4, columnRefAnioResumen + 2).Style + StyleDataAR.Font.Weight = ExcelFont.NormalWeight + StyleDataAR.Font.Name = "Calibri" + StyleDataAR.Font.Size = 8 * 20 + StyleDataAR.VerticalAlignment = VerticalAlignmentStyle.Center + StyleDataAR.HorizontalAlignment = HorizontalAlignmentStyle.Center + StyleDataAR.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) + StyleDataAR.NumberFormat = "_-* #,##0.00_-;-* #,##0.00_-;_-* ""-""??_-;_-@_-" - IdxRefAnioResumen += 1 + IdxRefAnioResumen += 1 #End Region #Region "L L A N T A S M E S A Ñ O A N T E R I O R" - Dim IdxRefMesAnioAnteriorLlantas As Integer = IdxSucursalesLlantasAlin + 8 + Dim IdxRefMesAnioAnteriorLlantas As Integer = IdxSucursalesLlantasAlin + 8 - worksheet.Cells.GetSubrangeAbsolute(IdxRefMesAnioAnteriorLlantas - 1, 1, IdxRefMesAnioAnteriorLlantas - 1, 3).Merged = True - worksheet.Cells.GetSubrangeAbsolute(IdxRefMesAnioAnteriorLlantas - 1, 4, IdxRefMesAnioAnteriorLlantas - 1, 6).Merged = True - worksheet.Cells(IdxRefMesAnioAnteriorLlantas - 1, 1).Value = "LLANTAS" - worksheet.Cells(IdxRefMesAnioAnteriorLlantas - 1, 4).Value = "%" + worksheet.Cells.GetSubrangeAbsolute(IdxRefMesAnioAnteriorLlantas - 1, 1, IdxRefMesAnioAnteriorLlantas - 1, 3).Merged = True + worksheet.Cells.GetSubrangeAbsolute(IdxRefMesAnioAnteriorLlantas - 1, 4, IdxRefMesAnioAnteriorLlantas - 1, 6).Merged = True + worksheet.Cells(IdxRefMesAnioAnteriorLlantas - 1, 1).Value = "LLANTAS" + worksheet.Cells(IdxRefMesAnioAnteriorLlantas - 1, 4).Value = "%" - worksheet.Cells(IdxRefMesAnioAnteriorLlantas, 0).Value = "Sucursal" - worksheet.Cells(IdxRefMesAnioAnteriorLlantas, 1).Value = String.Format("{0} {1}", ToShortMonthName(FechaConsulta).ToUpper(), (FechaConsulta.Year - 1)) - worksheet.Cells(IdxRefMesAnioAnteriorLlantas, 2).Value = String.Format("{0} {1}", ToShortMonthName(FechaConsulta).ToUpper(), (FechaConsulta.Year)) - worksheet.Cells(IdxRefMesAnioAnteriorLlantas, 3).Value = "DIF %" - worksheet.Cells(IdxRefMesAnioAnteriorLlantas, 4).Value = String.Format("{0} - %", (FechaConsulta.Year - 1)) - worksheet.Cells(IdxRefMesAnioAnteriorLlantas, 5).Value = String.Format("{0} - %", (FechaConsulta.Year)) - worksheet.Cells(IdxRefMesAnioAnteriorLlantas, 6).Value = "DIF %" + worksheet.Cells(IdxRefMesAnioAnteriorLlantas, 0).Value = "Sucursal" + worksheet.Cells(IdxRefMesAnioAnteriorLlantas, 1).Value = String.Format("{0} {1}", ToShortMonthName(FechaConsulta).ToUpper(), (FechaConsulta.Year - 1)) + worksheet.Cells(IdxRefMesAnioAnteriorLlantas, 2).Value = String.Format("{0} {1}", ToShortMonthName(FechaConsulta).ToUpper(), (FechaConsulta.Year)) + worksheet.Cells(IdxRefMesAnioAnteriorLlantas, 3).Value = "DIF %" + worksheet.Cells(IdxRefMesAnioAnteriorLlantas, 4).Value = String.Format("{0} - %", (FechaConsulta.Year - 1)) + worksheet.Cells(IdxRefMesAnioAnteriorLlantas, 5).Value = String.Format("{0} - %", (FechaConsulta.Year)) + worksheet.Cells(IdxRefMesAnioAnteriorLlantas, 6).Value = "DIF %" - Dim StyleTitleTable5 = worksheet.Cells.GetSubrangeAbsolute(IdxRefMesAnioAnteriorLlantas - 1, 0, IdxRefMesAnioAnteriorLlantas - 1, 6).Style - StyleTitleTable5.Font.Weight = ExcelFont.BoldWeight - StyleTitleTable5.Font.Name = "Calibri" - StyleTitleTable5.Font.Size = 8 * 20 - StyleTitleTable5.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) - StyleTitleTable5.VerticalAlignment = VerticalAlignmentStyle.Center - StyleTitleTable5.HorizontalAlignment = HorizontalAlignmentStyle.Center + Dim StyleTitleTable5 = worksheet.Cells.GetSubrangeAbsolute(IdxRefMesAnioAnteriorLlantas - 1, 0, IdxRefMesAnioAnteriorLlantas - 1, 6).Style + StyleTitleTable5.Font.Weight = ExcelFont.BoldWeight + StyleTitleTable5.Font.Name = "Calibri" + StyleTitleTable5.Font.Size = 8 * 20 + StyleTitleTable5.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) + StyleTitleTable5.VerticalAlignment = VerticalAlignmentStyle.Center + StyleTitleTable5.HorizontalAlignment = HorizontalAlignmentStyle.Center - Dim StyleSubTitleTable5 = worksheet.Cells.GetSubrangeAbsolute(IdxRefMesAnioAnteriorLlantas, 0, IdxRefMesAnioAnteriorLlantas, 6).Style - StyleSubTitleTable5.Font.Weight = ExcelFont.BoldWeight - StyleSubTitleTable5.Font.Name = "Calibri" - StyleSubTitleTable5.Font.Size = 8 * 20 - StyleSubTitleTable5.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) - StyleSubTitleTable5.VerticalAlignment = VerticalAlignmentStyle.Center - StyleSubTitleTable5.HorizontalAlignment = HorizontalAlignmentStyle.Center + Dim StyleSubTitleTable5 = worksheet.Cells.GetSubrangeAbsolute(IdxRefMesAnioAnteriorLlantas, 0, IdxRefMesAnioAnteriorLlantas, 6).Style + StyleSubTitleTable5.Font.Weight = ExcelFont.BoldWeight + StyleSubTitleTable5.Font.Name = "Calibri" + StyleSubTitleTable5.Font.Size = 8 * 20 + StyleSubTitleTable5.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) + StyleSubTitleTable5.VerticalAlignment = VerticalAlignmentStyle.Center + StyleSubTitleTable5.HorizontalAlignment = HorizontalAlignmentStyle.Center - Dim DtMesAnioAnteriorLLantas As DataTable = DataSet.Tables(4) - 'INICIA DESDE LA CUARTA FILA - Dim IdxMesAnioAnteriorLlantas As Integer = IdxRefMesAnioAnteriorLlantas + 1 + Dim DtMesAnioAnteriorLLantas As DataTable = DataSet.Tables(4) + 'INICIA DESDE LA CUARTA FILA + Dim IdxMesAnioAnteriorLlantas As Integer = IdxRefMesAnioAnteriorLlantas + 1 - For Each Row As DataRow In DtMesAnioAnteriorLLantas.Rows - worksheet.Cells(IdxMesAnioAnteriorLlantas, 0).Value = Row("Sucursal") - worksheet.Cells(IdxMesAnioAnteriorLlantas, 1).Value = Row("LLantasAnioAnterior") - worksheet.Cells(IdxMesAnioAnteriorLlantas, 2).Value = Row("LLantas") - worksheet.Cells(IdxMesAnioAnteriorLlantas, 3).Formula = $"=({worksheet.Cells(IdxMesAnioAnteriorLlantas, 2).Name} - {worksheet.Cells(IdxMesAnioAnteriorLlantas, 1).Name})" - worksheet.Cells(IdxMesAnioAnteriorLlantas, 4).Formula = $"=+(({worksheet.Cells(IdxMesAnioAnteriorLlantas, 1).Name} * 1.07) - {worksheet.Cells(IdxMesAnioAnteriorLlantas, 2).Name}) /12" - worksheet.Cells(IdxMesAnioAnteriorLlantas, 5).Formula = $"=+(({worksheet.Cells(IdxMesAnioAnteriorLlantas, 1).Name} * 1) - {worksheet.Cells(IdxMesAnioAnteriorLlantas, 2).Name}) /12" - worksheet.Cells(IdxMesAnioAnteriorLlantas, 6).Formula = $"=+({worksheet.Cells(IdxMesAnioAnteriorLlantas, 2).Name} / {worksheet.Cells(IdxMesAnioAnteriorLlantas, 1).Name}) - 1" + For Each Row As DataRow In DtMesAnioAnteriorLLantas.Rows + worksheet.Cells(IdxMesAnioAnteriorLlantas, 0).Value = Row("Sucursal") + worksheet.Cells(IdxMesAnioAnteriorLlantas, 1).Value = Row("LLantasAnioAnterior") + worksheet.Cells(IdxMesAnioAnteriorLlantas, 2).Value = Row("LLantas") + worksheet.Cells(IdxMesAnioAnteriorLlantas, 3).Formula = $"=({worksheet.Cells(IdxMesAnioAnteriorLlantas, 2).Name} - {worksheet.Cells(IdxMesAnioAnteriorLlantas, 1).Name})" + worksheet.Cells(IdxMesAnioAnteriorLlantas, 4).Formula = $"=+(({worksheet.Cells(IdxMesAnioAnteriorLlantas, 1).Name} * 1.07) - {worksheet.Cells(IdxMesAnioAnteriorLlantas, 2).Name}) /12" + worksheet.Cells(IdxMesAnioAnteriorLlantas, 5).Formula = $"=+(({worksheet.Cells(IdxMesAnioAnteriorLlantas, 1).Name} * 1) - {worksheet.Cells(IdxMesAnioAnteriorLlantas, 2).Name}) /12" + worksheet.Cells(IdxMesAnioAnteriorLlantas, 6).Formula = $"=+({worksheet.Cells(IdxMesAnioAnteriorLlantas, 2).Name} / {worksheet.Cells(IdxMesAnioAnteriorLlantas, 1).Name}) - 1" - Dim StyleData = worksheet.Cells.GetSubrangeAbsolute(IdxMesAnioAnteriorLlantas, 0, IdxMesAnioAnteriorLlantas, 6).Style - StyleData.Font.Weight = ExcelFont.NormalWeight - StyleData.Font.Name = "Calibri" - StyleData.Font.Size = 8 * 20 - StyleData.VerticalAlignment = VerticalAlignmentStyle.Center - StyleData.HorizontalAlignment = HorizontalAlignmentStyle.Center - StyleData.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) - StyleData.NumberFormat = "_-* #,##0.00_-;-* #,##0.00_-;_-* ""-""??_-;_-@_-" + Dim StyleData = worksheet.Cells.GetSubrangeAbsolute(IdxMesAnioAnteriorLlantas, 0, IdxMesAnioAnteriorLlantas, 6).Style + StyleData.Font.Weight = ExcelFont.NormalWeight + StyleData.Font.Name = "Calibri" + StyleData.Font.Size = 8 * 20 + StyleData.VerticalAlignment = VerticalAlignmentStyle.Center + StyleData.HorizontalAlignment = HorizontalAlignmentStyle.Center + StyleData.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) + StyleData.NumberFormat = "_-* #,##0.00_-;-* #,##0.00_-;_-* ""-""??_-;_-@_-" - IdxMesAnioAnteriorLlantas += 1 - Next + IdxMesAnioAnteriorLlantas += 1 + Next - DtMesAnioAnteriorLLantas.Dispose() + DtMesAnioAnteriorLLantas.Dispose() #End Region #Region "A Ñ O A N T E R I O R" - Dim IdxRefAnioAnteriorLlantas As Integer = IdxRefMesAnioAnteriorLlantas + Dim IdxRefAnioAnteriorLlantas As Integer = IdxRefMesAnioAnteriorLlantas - Dim columnRefAnioAnterior As Integer = 9 + Dim columnRefAnioAnterior As Integer = 9 - worksheet.Cells(IdxRefAnioAnteriorLlantas, columnRefAnioAnterior).Value = "Sucursal" - worksheet.Cells(IdxRefAnioAnteriorLlantas, columnRefAnioAnterior + 1).Value = (FechaConsulta.Year - 1).ToString() - worksheet.Cells(IdxRefAnioAnteriorLlantas, columnRefAnioAnterior + 2).Value = FechaConsulta.Year.ToString() - worksheet.Cells(IdxRefAnioAnteriorLlantas, columnRefAnioAnterior + 3).Value = "Dif" + worksheet.Cells(IdxRefAnioAnteriorLlantas, columnRefAnioAnterior).Value = "Sucursal" + worksheet.Cells(IdxRefAnioAnteriorLlantas, columnRefAnioAnterior + 1).Value = (FechaConsulta.Year - 1).ToString() + worksheet.Cells(IdxRefAnioAnteriorLlantas, columnRefAnioAnterior + 2).Value = FechaConsulta.Year.ToString() + worksheet.Cells(IdxRefAnioAnteriorLlantas, columnRefAnioAnterior + 3).Value = "Dif" - Dim StyleTitleTable4 = worksheet.Cells.GetSubrangeAbsolute(IdxRefAnioAnteriorLlantas, columnRefAnioAnterior, IdxRefAnioAnteriorLlantas, columnRefAnioAnterior + 3).Style - StyleTitleTable4.Font.Weight = ExcelFont.BoldWeight - StyleTitleTable4.Font.Name = "Calibri" - StyleTitleTable4.Font.Size = 8 * 20 - StyleTitleTable4.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) - StyleTitleTable4.VerticalAlignment = VerticalAlignmentStyle.Center - StyleTitleTable4.HorizontalAlignment = HorizontalAlignmentStyle.Center + Dim StyleTitleTable4 = worksheet.Cells.GetSubrangeAbsolute(IdxRefAnioAnteriorLlantas, columnRefAnioAnterior, IdxRefAnioAnteriorLlantas, columnRefAnioAnterior + 3).Style + StyleTitleTable4.Font.Weight = ExcelFont.BoldWeight + StyleTitleTable4.Font.Name = "Calibri" + StyleTitleTable4.Font.Size = 8 * 20 + StyleTitleTable4.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) + StyleTitleTable4.VerticalAlignment = VerticalAlignmentStyle.Center + StyleTitleTable4.HorizontalAlignment = HorizontalAlignmentStyle.Center - Dim DtAnioAnteriorLLantas As DataTable = DataSet.Tables(3) - 'INICIA DESDE LA CUARTA FILA - Dim IdxAnioAnteriorLlantas As Integer = IdxRefAnioAnteriorLlantas + 1 + Dim DtAnioAnteriorLLantas As DataTable = DataSet.Tables(3) + 'INICIA DESDE LA CUARTA FILA + Dim IdxAnioAnteriorLlantas As Integer = IdxRefAnioAnteriorLlantas + 1 - For Each Row As DataRow In DtAnioAnteriorLLantas.FiltraParametros("TipoFila > 1").Rows - worksheet.Cells(IdxAnioAnteriorLlantas, columnRefAnioAnterior).Value = Row("Grupo") - worksheet.Cells(IdxAnioAnteriorLlantas, columnRefAnioAnterior + 1).Value = Row("LLantasAnioAnterior") - worksheet.Cells(IdxAnioAnteriorLlantas, columnRefAnioAnterior + 2).Value = Row("LLantas") - worksheet.Cells(IdxAnioAnteriorLlantas, columnRefAnioAnterior + 3).Formula = $"=({worksheet.Cells(IdxAnioAnteriorLlantas, columnRefAnioAnterior + 1).Name} - {worksheet.Cells(IdxAnioAnteriorLlantas, columnRefAnioAnterior + 2).Name})" + For Each Row As DataRow In DtAnioAnteriorLLantas.FiltraParametros("TipoFila > 1").Rows + worksheet.Cells(IdxAnioAnteriorLlantas, columnRefAnioAnterior).Value = Row("Grupo") + worksheet.Cells(IdxAnioAnteriorLlantas, columnRefAnioAnterior + 1).Value = Row("LLantasAnioAnterior") + worksheet.Cells(IdxAnioAnteriorLlantas, columnRefAnioAnterior + 2).Value = Row("LLantas") + worksheet.Cells(IdxAnioAnteriorLlantas, columnRefAnioAnterior + 3).Formula = $"=({worksheet.Cells(IdxAnioAnteriorLlantas, columnRefAnioAnterior + 1).Name} - {worksheet.Cells(IdxAnioAnteriorLlantas, columnRefAnioAnterior + 2).Name})" - Dim StyleData = worksheet.Cells.GetSubrangeAbsolute(IdxAnioAnteriorLlantas, columnRefAnioAnterior, IdxAnioAnteriorLlantas, columnRefAnioAnterior + 3).Style - StyleData.Font.Weight = ExcelFont.NormalWeight - StyleData.Font.Name = "Calibri" - StyleData.Font.Size = 8 * 20 - StyleData.VerticalAlignment = VerticalAlignmentStyle.Center - StyleData.HorizontalAlignment = HorizontalAlignmentStyle.Center - StyleData.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) - StyleData.NumberFormat = "_-* #,##0.00_-;-* #,##0.00_-;_-* ""-""??_-;_-@_-" + Dim StyleData = worksheet.Cells.GetSubrangeAbsolute(IdxAnioAnteriorLlantas, columnRefAnioAnterior, IdxAnioAnteriorLlantas, columnRefAnioAnterior + 3).Style + StyleData.Font.Weight = ExcelFont.NormalWeight + StyleData.Font.Name = "Calibri" + StyleData.Font.Size = 8 * 20 + StyleData.VerticalAlignment = VerticalAlignmentStyle.Center + StyleData.HorizontalAlignment = HorizontalAlignmentStyle.Center + StyleData.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) + StyleData.NumberFormat = "_-* 0_-;-* 0-;_-* ""-""??_-;_-@_-" - If Row("TipoFila").ToString() = "2" Then + If Row("TipoFila").ToString() = "2" Then + StyleData.Font.Weight = ExcelFont.BoldWeight + StyleData.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(255, 215, 0), SpreadsheetColor.FromArgb(255, 255, 255)) + End If + + IdxAnioAnteriorLlantas += 1 + Next + + For Each Row As DataRow In DtAnioAnteriorLLantas.FiltraParametros("TipoFila = 1").Rows + worksheet.Cells(IdxAnioAnteriorLlantas, columnRefAnioAnterior).Value = Row("Grupo") + worksheet.Cells(IdxAnioAnteriorLlantas, columnRefAnioAnterior + 1).Value = Row("LLantasAnioAnterior") + worksheet.Cells(IdxAnioAnteriorLlantas, columnRefAnioAnterior + 2).Value = Row("LLantas") + worksheet.Cells(IdxAnioAnteriorLlantas, columnRefAnioAnterior + 3).Formula = $"=(+{worksheet.Cells(IdxAnioAnteriorLlantas, columnRefAnioAnterior + 1).Name} - {worksheet.Cells(IdxAnioAnteriorLlantas, columnRefAnioAnterior + 2).Name})" + + + Dim StyleData = worksheet.Cells.GetSubrangeAbsolute(IdxAnioAnteriorLlantas, columnRefAnioAnterior, IdxAnioAnteriorLlantas, columnRefAnioAnterior + 3).Style StyleData.Font.Weight = ExcelFont.BoldWeight + StyleData.Font.Name = "Calibri" + StyleData.Font.Size = 8 * 20 + StyleData.VerticalAlignment = VerticalAlignmentStyle.Center + StyleData.HorizontalAlignment = HorizontalAlignmentStyle.Center + StyleData.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) + StyleData.NumberFormat = "_-* #,##0.00_-;-* #,##0.00_-;_-* ""-""??_-;_-@_-" StyleData.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(255, 215, 0), SpreadsheetColor.FromArgb(255, 255, 255)) - End If - IdxAnioAnteriorLlantas += 1 - Next - - For Each Row As DataRow In DtAnioAnteriorLLantas.FiltraParametros("TipoFila = 1").Rows - worksheet.Cells(IdxAnioAnteriorLlantas, columnRefAnioAnterior).Value = Row("Grupo") - worksheet.Cells(IdxAnioAnteriorLlantas, columnRefAnioAnterior + 1).Value = Row("LLantasAnioAnterior") - worksheet.Cells(IdxAnioAnteriorLlantas, columnRefAnioAnterior + 2).Value = Row("LLantas") - worksheet.Cells(IdxAnioAnteriorLlantas, columnRefAnioAnterior + 3).Formula = $"=(+{worksheet.Cells(IdxAnioAnteriorLlantas, columnRefAnioAnterior + 1).Name} - {worksheet.Cells(IdxAnioAnteriorLlantas, columnRefAnioAnterior + 2).Name})" - - - Dim StyleData = worksheet.Cells.GetSubrangeAbsolute(IdxAnioAnteriorLlantas, columnRefAnioAnterior, IdxAnioAnteriorLlantas, columnRefAnioAnterior + 3).Style - StyleData.Font.Weight = ExcelFont.BoldWeight - StyleData.Font.Name = "Calibri" - StyleData.Font.Size = 8 * 20 - StyleData.VerticalAlignment = VerticalAlignmentStyle.Center - StyleData.HorizontalAlignment = HorizontalAlignmentStyle.Center - StyleData.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) - StyleData.NumberFormat = "_-* #,##0.00_-;-* #,##0.00_-;_-* ""-""??_-;_-@_-" - StyleData.FillPattern.SetPattern(FillPatternStyle.Solid, SpreadsheetColor.FromArgb(255, 215, 0), SpreadsheetColor.FromArgb(255, 255, 255)) - - IdxAnioAnteriorLlantas += 1 - Next - DtAnioAnteriorLLantas.Dispose() + IdxAnioAnteriorLlantas += 1 + Next + DtAnioAnteriorLLantas.Dispose() #End Region #Region "V E N T A S - S E R V I C I O S D E I N S T A L A C I O N, A M O R T I G U A D O R E S, P O L I Z A S" - Dim IdxRefSucursalesServiciosAmortPolizas As Integer = IdxMesAnioAnteriorLlantas + 3 + Dim IdxRefSucursalesServiciosAmortPolizas As Integer = IdxMesAnioAnteriorLlantas + 3 - worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas, 0).Value = "Sucursal" - 'TITULO SERVICIOS DE INSTALACION - worksheet.Cells.GetSubrangeAbsolute(IdxRefSucursalesServiciosAmortPolizas - 1, 1, IdxRefSucursalesServiciosAmortPolizas - 1, 3).Merged = True - worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas - 1, 3).Value = "SERVICIOS DE INSTALACION" - worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas, 1).Value = "Ant" - worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas, 2).Value = "Dia" - worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas, 3).Value = "Acum" - 'TITULO AMORTIGUADORES - worksheet.Cells.GetSubrangeAbsolute(IdxRefSucursalesServiciosAmortPolizas - 1, 4, IdxRefSucursalesServiciosAmortPolizas - 1, 6).Merged = True - worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas - 1, 6).Value = "AMORTIGUADORES" - worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas, 4).Value = "Ant" - worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas, 5).Value = "Dia" - worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas, 6).Value = "Acum" - 'TITULO DE POLIZAS - worksheet.Cells.GetSubrangeAbsolute(IdxRefSucursalesServiciosAmortPolizas - 1, 7, IdxRefSucursalesServiciosAmortPolizas - 1, 9).Merged = True - worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas - 1, 9).Value = "POLIZAS" - worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas, 7).Value = "Ant" - worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas, 8).Value = "Dia" - worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas, 9).Value = "Acum" - 'TITULO DE VENTAS DEL DIA - worksheet.Cells.GetSubrangeAbsolute(IdxRefSucursalesServiciosAmortPolizas - 1, 10, IdxRefSucursalesServiciosAmortPolizas - 1, 12).Merged = True - worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas - 1, 12).Value = "MANO DE OBRA PESOS" - worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas, 10).Value = "Ant" - worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas, 11).Value = "Dia" - worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas, 12).Value = "Acum" + worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas, 0).Value = "Sucursal" + 'TITULO SERVICIOS DE INSTALACION + worksheet.Cells.GetSubrangeAbsolute(IdxRefSucursalesServiciosAmortPolizas - 1, 1, IdxRefSucursalesServiciosAmortPolizas - 1, 3).Merged = True + worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas - 1, 3).Value = "SERVICIOS DE INSTALACION" + worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas, 1).Value = "Ant" + worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas, 2).Value = "Dia" + worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas, 3).Value = "Acum" + 'TITULO AMORTIGUADORES + worksheet.Cells.GetSubrangeAbsolute(IdxRefSucursalesServiciosAmortPolizas - 1, 4, IdxRefSucursalesServiciosAmortPolizas - 1, 6).Merged = True + worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas - 1, 6).Value = "AMORTIGUADORES" + worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas, 4).Value = "Ant" + worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas, 5).Value = "Dia" + worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas, 6).Value = "Acum" + 'TITULO DE POLIZAS + worksheet.Cells.GetSubrangeAbsolute(IdxRefSucursalesServiciosAmortPolizas - 1, 7, IdxRefSucursalesServiciosAmortPolizas - 1, 9).Merged = True + worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas - 1, 9).Value = "POLIZAS" + worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas, 7).Value = "Ant" + worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas, 8).Value = "Dia" + worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas, 9).Value = "Acum" + 'TITULO DE VENTAS DEL DIA + worksheet.Cells.GetSubrangeAbsolute(IdxRefSucursalesServiciosAmortPolizas - 1, 10, IdxRefSucursalesServiciosAmortPolizas - 1, 12).Merged = True + worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas - 1, 12).Value = "MANO DE OBRA PESOS" + worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas, 10).Value = "Ant" + worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas, 11).Value = "Dia" + worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas, 12).Value = "Acum" - Dim StyleTitleTable2 = worksheet.Cells.GetSubrangeAbsolute(IdxRefSucursalesServiciosAmortPolizas - 1, 1, IdxRefSucursalesServiciosAmortPolizas - 1, 12).Style - StyleTitleTable2.Font.Weight = ExcelFont.BoldWeight - StyleTitleTable2.Font.Name = "Calibri" - StyleTitleTable2.Font.Size = 8 * 20 - StyleTitleTable2.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) - StyleTitleTable2.VerticalAlignment = VerticalAlignmentStyle.Center - StyleTitleTable2.HorizontalAlignment = HorizontalAlignmentStyle.Center + Dim StyleTitleTable2 = worksheet.Cells.GetSubrangeAbsolute(IdxRefSucursalesServiciosAmortPolizas - 1, 1, IdxRefSucursalesServiciosAmortPolizas - 1, 12).Style + StyleTitleTable2.Font.Weight = ExcelFont.BoldWeight + StyleTitleTable2.Font.Name = "Calibri" + StyleTitleTable2.Font.Size = 8 * 20 + StyleTitleTable2.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) + StyleTitleTable2.VerticalAlignment = VerticalAlignmentStyle.Center + StyleTitleTable2.HorizontalAlignment = HorizontalAlignmentStyle.Center - Dim StyleSubTitleTable2 = worksheet.Cells.GetSubrangeAbsolute(IdxRefSucursalesServiciosAmortPolizas, 0, IdxRefSucursalesServiciosAmortPolizas, 12).Style - StyleSubTitleTable2.Font.Weight = ExcelFont.BoldWeight - StyleSubTitleTable2.Font.Name = "Calibri" - StyleSubTitleTable2.Font.Size = 8 * 20 - StyleSubTitleTable2.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) - StyleSubTitleTable2.VerticalAlignment = VerticalAlignmentStyle.Center - StyleSubTitleTable2.HorizontalAlignment = HorizontalAlignmentStyle.Center + Dim StyleSubTitleTable2 = worksheet.Cells.GetSubrangeAbsolute(IdxRefSucursalesServiciosAmortPolizas, 0, IdxRefSucursalesServiciosAmortPolizas, 12).Style + StyleSubTitleTable2.Font.Weight = ExcelFont.BoldWeight + StyleSubTitleTable2.Font.Name = "Calibri" + StyleSubTitleTable2.Font.Size = 8 * 20 + StyleSubTitleTable2.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) + StyleSubTitleTable2.VerticalAlignment = VerticalAlignmentStyle.Center + StyleSubTitleTable2.HorizontalAlignment = HorizontalAlignmentStyle.Center - Dim DtSucursalesServiciosAmortPolizas As DataTable = DataSet.Tables(1) + Dim DtSucursalesServiciosAmortPolizas As DataTable = DataSet.Tables(1) - 'INICIA DESDE LA CUARTA FILA - Dim IdxSucursalesServiciosAmortPolizas As Integer = IdxRefSucursalesServiciosAmortPolizas + 1 + 'INICIA DESDE LA CUARTA FILA + Dim IdxSucursalesServiciosAmortPolizas As Integer = IdxRefSucursalesServiciosAmortPolizas + 1 - For Each Row As DataRow In DtSucursalesServiciosAmortPolizas.Rows - worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 0).Value = Row("SubProyecto") + For Each Row As DataRow In DtSucursalesServiciosAmortPolizas.Rows + worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 0).Value = Row("SubProyecto") - worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 1).Value = Row("ServiciosCantidadAnterior") - worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 2).Value = Row("ServiciosCantidadDia") - 'worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 3).Value = Row("ServiciosCantidadAcumulada") - worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 3).Formula = $"=SUM({worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 1).Name}:{worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 2).Name})" + worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 1).Value = Row("ServiciosCantidadAnterior") + worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 2).Value = Row("ServiciosCantidadDia") + 'worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 3).Value = Row("ServiciosCantidadAcumulada") + worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 3).Formula = $"=SUM({worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 1).Name}:{worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 2).Name})" - worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 4).Value = Row("AmortCantidadAnterior") - worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 5).Value = Row("AmortCantidadDia") - 'worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 6).Value = Row("AmortCantidadAcumulada") - worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 6).Formula = $"=SUM({worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 4).Name}:{worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 5).Name})" + worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 4).Value = Row("AmortCantidadAnterior") + worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 5).Value = Row("AmortCantidadDia") + 'worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 6).Value = Row("AmortCantidadAcumulada") + worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 6).Formula = $"=SUM({worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 4).Name}:{worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 5).Name})" - worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 7).Value = Row("PolizasCantidadAnterior") - worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 8).Value = Row("PolizasCantidadDia") - 'worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 9).Value = Row("PolizasCantidadAcumulada") - worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 9).Formula = $"=SUM({worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 7).Name}:{worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 8).Name})" + worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 7).Value = Row("PolizasCantidadAnterior") + worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 8).Value = Row("PolizasCantidadDia") + 'worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 9).Value = Row("PolizasCantidadAcumulada") + worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 9).Formula = $"=SUM({worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 7).Name}:{worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 8).Name})" - worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 10).Value = Row("ManoObraCantidadAnterior") - worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 11).Value = Row("ManoObraCantidadDia") - 'worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 12).Value = Row("ManoObraCantidadAcumulada") - worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 12).Formula = $"=SUM({worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 10).Name}:{worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 11).Name})" + worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 10).Value = Row("ManoObraCantidadAnterior") + worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 11).Value = Row("ManoObraCantidadDia") + 'worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 12).Value = Row("ManoObraCantidadAcumulada") + worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 12).Formula = $"=SUM({worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 10).Name}:{worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 11).Name})" - Dim StyleData = worksheet.Cells.GetSubrangeAbsolute(IdxSucursalesServiciosAmortPolizas, 0, IdxSucursalesServiciosAmortPolizas, 12).Style - StyleData.Font.Weight = ExcelFont.BoldWeight - StyleData.Font.Name = "Calibri" - StyleData.Font.Size = 8 * 20 - StyleData.VerticalAlignment = VerticalAlignmentStyle.Center - StyleData.HorizontalAlignment = HorizontalAlignmentStyle.Center - StyleData.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) - StyleData.NumberFormat = "_-* #,##0.00_-;-* #,##0.00_-;_-* ""-""??_-;_-@_-" + Dim StyleData = worksheet.Cells.GetSubrangeAbsolute(IdxSucursalesServiciosAmortPolizas, 0, IdxSucursalesServiciosAmortPolizas, 9).Style + StyleData.Font.Weight = ExcelFont.BoldWeight + StyleData.Font.Name = "Calibri" + StyleData.Font.Size = 8 * 20 + StyleData.VerticalAlignment = VerticalAlignmentStyle.Center + StyleData.HorizontalAlignment = HorizontalAlignmentStyle.Center + StyleData.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) + StyleData.NumberFormat = "_-* 0_-;-* 0-;_-* ""-""??_-;_-@_-" - 'LAS VENTAS DEL DIA NO DEBEN ESTAR EN NEGRITAS - worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 0).Style.Font.Weight = ExcelFont.NormalWeight - worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 0).Style.HorizontalAlignment = HorizontalAlignmentStyle.Left + Dim StyleDataVenta = worksheet.Cells.GetSubrangeAbsolute(IdxSucursalesServiciosAmortPolizas, 10, IdxSucursalesServiciosAmortPolizas, 12).Style + StyleDataVenta.Font.Weight = ExcelFont.BoldWeight + StyleDataVenta.Font.Name = "Calibri" + StyleDataVenta.Font.Size = 8 * 20 + StyleDataVenta.VerticalAlignment = VerticalAlignmentStyle.Center + StyleDataVenta.HorizontalAlignment = HorizontalAlignmentStyle.Center + StyleDataVenta.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) + StyleDataVenta.NumberFormat = "_-* #,##0.00_-;-* #,##0.00_-;_-* ""-""??_-;_-@_-" - worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 2).Style.Font.Weight = ExcelFont.NormalWeight - worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 5).Style.Font.Weight = ExcelFont.NormalWeight - worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 8).Style.Font.Weight = ExcelFont.NormalWeight - worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 11).Style.Font.Weight = ExcelFont.NormalWeight - IdxSucursalesServiciosAmortPolizas += 1 - Next - 'LA FILA DE LOS TOTALES DEBE ESTAR EN NEGITAS - worksheet.Cells.GetSubrangeAbsolute(IdxSucursalesServiciosAmortPolizas - 1, 0, IdxSucursalesServiciosAmortPolizas - 1, 12).Style.Font.Weight = ExcelFont.BoldWeight + 'LAS VENTAS DEL DIA NO DEBEN ESTAR EN NEGRITAS + worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 0).Style.Font.Weight = ExcelFont.NormalWeight + worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 0).Style.HorizontalAlignment = HorizontalAlignmentStyle.Left - DtSucursalesServiciosAmortPolizas.Dispose() + worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 2).Style.Font.Weight = ExcelFont.NormalWeight + worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 5).Style.Font.Weight = ExcelFont.NormalWeight + worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 8).Style.Font.Weight = ExcelFont.NormalWeight + worksheet.Cells(IdxSucursalesServiciosAmortPolizas, 11).Style.Font.Weight = ExcelFont.NormalWeight + + IdxSucursalesServiciosAmortPolizas += 1 + Next + 'LA FILA DE LOS TOTALES DEBE ESTAR EN NEGITAS + worksheet.Cells.GetSubrangeAbsolute(IdxSucursalesServiciosAmortPolizas - 1, 0, IdxSucursalesServiciosAmortPolizas - 1, 12).Style.Font.Weight = ExcelFont.BoldWeight + + DtSucursalesServiciosAmortPolizas.Dispose() #End Region #Region "P O R C E N T A J E S" - Dim IdxRefPorcentajes As Integer = IdxSucursalesServiciosAmortPolizas + 3 + Dim IdxRefPorcentajes As Integer = IdxSucursalesServiciosAmortPolizas + 3 - worksheet.Cells(IdxRefPorcentajes, 0).Value = "Sucursal" - 'TITULO SERVICIOS - worksheet.Cells.GetSubrangeAbsolute(IdxRefPorcentajes - 1, 1, IdxRefPorcentajes - 1, 2).Merged = True - worksheet.Cells(IdxRefPorcentajes - 1, 2).Value = "INSTALACION" - worksheet.Cells(IdxRefPorcentajes, 1).Value = "Cant" - worksheet.Cells(IdxRefPorcentajes, 2).Value = "%" - 'TITULO POLIZAS - worksheet.Cells.GetSubrangeAbsolute(IdxRefPorcentajes - 1, 3, IdxRefPorcentajes - 1, 4).Merged = True - worksheet.Cells(IdxRefPorcentajes - 1, 4).Value = "POLIZAS" - worksheet.Cells(IdxRefPorcentajes, 3).Value = "Cant" - worksheet.Cells(IdxRefPorcentajes, 4).Value = "%" - 'TITULO DE ALINEACIONES - worksheet.Cells.GetSubrangeAbsolute(IdxRefPorcentajes - 1, 5, IdxRefPorcentajes - 1, 6).Merged = True - worksheet.Cells(IdxRefPorcentajes - 1, 6).Value = "ALINEACIONES" - worksheet.Cells(IdxRefPorcentajes, 5).Value = "Cant" - worksheet.Cells(IdxRefPorcentajes, 6).Value = "%" + worksheet.Cells(IdxRefPorcentajes, 0).Value = "Sucursal" + 'TITULO SERVICIOS + worksheet.Cells.GetSubrangeAbsolute(IdxRefPorcentajes - 1, 1, IdxRefPorcentajes - 1, 2).Merged = True + worksheet.Cells(IdxRefPorcentajes - 1, 2).Value = "INSTALACION" + worksheet.Cells(IdxRefPorcentajes, 1).Value = "Cant" + worksheet.Cells(IdxRefPorcentajes, 2).Value = "%" + 'TITULO POLIZAS + worksheet.Cells.GetSubrangeAbsolute(IdxRefPorcentajes - 1, 3, IdxRefPorcentajes - 1, 4).Merged = True + worksheet.Cells(IdxRefPorcentajes - 1, 4).Value = "POLIZAS" + worksheet.Cells(IdxRefPorcentajes, 3).Value = "Cant" + worksheet.Cells(IdxRefPorcentajes, 4).Value = "%" + 'TITULO DE ALINEACIONES + worksheet.Cells.GetSubrangeAbsolute(IdxRefPorcentajes - 1, 5, IdxRefPorcentajes - 1, 6).Merged = True + worksheet.Cells(IdxRefPorcentajes - 1, 6).Value = "ALINEACIONES" + worksheet.Cells(IdxRefPorcentajes, 5).Value = "Cant" + worksheet.Cells(IdxRefPorcentajes, 6).Value = "%" - Dim StyleTitleTable3 = worksheet.Cells.GetSubrangeAbsolute(IdxRefPorcentajes - 1, 1, IdxRefPorcentajes - 1, 6).Style - StyleTitleTable3.Font.Weight = ExcelFont.BoldWeight - StyleTitleTable3.Font.Name = "Calibri" - StyleTitleTable3.Font.Size = 8 * 20 - StyleTitleTable3.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) - StyleTitleTable3.VerticalAlignment = VerticalAlignmentStyle.Center - StyleTitleTable3.HorizontalAlignment = HorizontalAlignmentStyle.Center + Dim StyleTitleTable3 = worksheet.Cells.GetSubrangeAbsolute(IdxRefPorcentajes - 1, 1, IdxRefPorcentajes - 1, 6).Style + StyleTitleTable3.Font.Weight = ExcelFont.BoldWeight + StyleTitleTable3.Font.Name = "Calibri" + StyleTitleTable3.Font.Size = 8 * 20 + StyleTitleTable3.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) + StyleTitleTable3.VerticalAlignment = VerticalAlignmentStyle.Center + StyleTitleTable3.HorizontalAlignment = HorizontalAlignmentStyle.Center - Dim StyleSubTitleTable3 = worksheet.Cells.GetSubrangeAbsolute(IdxRefPorcentajes, 0, IdxRefPorcentajes, 6).Style - StyleSubTitleTable3.Font.Weight = ExcelFont.BoldWeight - StyleSubTitleTable3.Font.Name = "Calibri" - StyleSubTitleTable3.Font.Size = 8 * 20 - StyleSubTitleTable3.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) - StyleSubTitleTable3.VerticalAlignment = VerticalAlignmentStyle.Center - StyleSubTitleTable3.HorizontalAlignment = HorizontalAlignmentStyle.Center + Dim StyleSubTitleTable3 = worksheet.Cells.GetSubrangeAbsolute(IdxRefPorcentajes, 0, IdxRefPorcentajes, 6).Style + StyleSubTitleTable3.Font.Weight = ExcelFont.BoldWeight + StyleSubTitleTable3.Font.Name = "Calibri" + StyleSubTitleTable3.Font.Size = 8 * 20 + StyleSubTitleTable3.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) + StyleSubTitleTable3.VerticalAlignment = VerticalAlignmentStyle.Center + StyleSubTitleTable3.HorizontalAlignment = HorizontalAlignmentStyle.Center - Dim DtPorcentajes As DataTable = DataSet.Tables(2) + Dim DtPorcentajes As DataTable = DataSet.Tables(2) - 'INICIA DESDE LA CUARTA FILA - Dim IdxPorcentajes As Integer = IdxRefPorcentajes + 1 + 'INICIA DESDE LA CUARTA FILA + Dim IdxPorcentajes As Integer = IdxRefPorcentajes + 1 - For Each Row As DataRow In DtPorcentajes.Rows - worksheet.Cells(IdxPorcentajes, 0).Value = Row("SubProyecto") + For Each Row As DataRow In DtPorcentajes.Rows + worksheet.Cells(IdxPorcentajes, 0).Value = Row("SubProyecto") - worksheet.Cells(IdxPorcentajes, 1).Value = Row("Servicios") - worksheet.Cells(IdxPorcentajes, 2).Value = Row("ServiciosPorcentaje") + worksheet.Cells(IdxPorcentajes, 1).Value = Row("Servicios") + worksheet.Cells(IdxPorcentajes, 2).Value = Row("ServiciosPorcentaje") - worksheet.Cells(IdxPorcentajes, 3).Value = Row("Polizas") - worksheet.Cells(IdxPorcentajes, 4).Value = Row("PolizasPorcentaje") + worksheet.Cells(IdxPorcentajes, 3).Value = Row("Polizas") + worksheet.Cells(IdxPorcentajes, 4).Value = Row("PolizasPorcentaje") - worksheet.Cells(IdxPorcentajes, 5).Value = Row("Alineaciones") - worksheet.Cells(IdxPorcentajes, 6).Value = Row("AlinPorcentaje") + worksheet.Cells(IdxPorcentajes, 5).Value = Row("Alineaciones") + worksheet.Cells(IdxPorcentajes, 6).Value = Row("AlinPorcentaje") - Dim StyleData = worksheet.Cells.GetSubrangeAbsolute(IdxPorcentajes, 0, IdxPorcentajes, 6).Style - StyleData.Font.Weight = ExcelFont.BoldWeight - StyleData.Font.Name = "Calibri" - StyleData.Font.Size = 8 * 20 - StyleData.VerticalAlignment = VerticalAlignmentStyle.Center - StyleData.HorizontalAlignment = HorizontalAlignmentStyle.Center - StyleData.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) - StyleData.NumberFormat = "_-* #,##0.00_-;-* #,##0.00_-;_-* ""-""??_-;_-@_-" + Dim StyleData = worksheet.Cells.GetSubrangeAbsolute(IdxPorcentajes, 0, IdxPorcentajes, 6).Style + StyleData.Font.Weight = ExcelFont.BoldWeight + StyleData.Font.Name = "Calibri" + StyleData.Font.Size = 8 * 20 + StyleData.VerticalAlignment = VerticalAlignmentStyle.Center + StyleData.HorizontalAlignment = HorizontalAlignmentStyle.Center + StyleData.Borders.SetBorders(MultipleBorders.All, SpreadsheetColor.FromName(ColorName.Black), LineStyle.Thin) - 'LAS VENTAS DEL DIA NO DEBEN ESTAR EN NEGRITAS - worksheet.Cells(IdxPorcentajes, 0).Style.Font.Weight = ExcelFont.NormalWeight - worksheet.Cells(IdxPorcentajes, 0).Style.HorizontalAlignment = HorizontalAlignmentStyle.Left + Dim StyleDatInst = worksheet.Cells.GetSubrangeAbsolute(IdxPorcentajes, 1, IdxPorcentajes, 1).Style + StyleDatInst.NumberFormat = "_-* 0_-;-* 0-;_-* ""-""??_-;_-@_-" - worksheet.Cells(IdxPorcentajes, 1).Style.Font.Weight = ExcelFont.NormalWeight - worksheet.Cells(IdxPorcentajes, 3).Style.Font.Weight = ExcelFont.NormalWeight - worksheet.Cells(IdxPorcentajes, 5).Style.Font.Weight = ExcelFont.NormalWeight + Dim StyleDatPol = worksheet.Cells.GetSubrangeAbsolute(IdxPorcentajes, 3, IdxPorcentajes, 3).Style + StyleDatPol.NumberFormat = "_-* 0_-;-* 0-;_-* ""-""??_-;_-@_-" - IdxPorcentajes += 1 - Next - 'LA FILA DE LOS TOTALES DEBE ESTAR EN NEGITAS - worksheet.Cells.GetSubrangeAbsolute(IdxPorcentajes - 1, 0, IdxPorcentajes - 1, 6).Style.Font.Weight = ExcelFont.BoldWeight + Dim StyleDatAli = worksheet.Cells.GetSubrangeAbsolute(IdxPorcentajes, 5, IdxPorcentajes, 5).Style + StyleDatAli.NumberFormat = "_-* 0_-;-* 0-;_-* ""-""??_-;_-@_-" - DtPorcentajes.Dispose() + 'LAS VENTAS DEL DIA NO DEBEN ESTAR EN NEGRITAS + worksheet.Cells(IdxPorcentajes, 0).Style.Font.Weight = ExcelFont.NormalWeight + worksheet.Cells(IdxPorcentajes, 0).Style.HorizontalAlignment = HorizontalAlignmentStyle.Left + + worksheet.Cells(IdxPorcentajes, 1).Style.Font.Weight = ExcelFont.NormalWeight + worksheet.Cells(IdxPorcentajes, 3).Style.Font.Weight = ExcelFont.NormalWeight + worksheet.Cells(IdxPorcentajes, 5).Style.Font.Weight = ExcelFont.NormalWeight + + IdxPorcentajes += 1 + Next + 'LA FILA DE LOS TOTALES DEBE ESTAR EN NEGITAS + worksheet.Cells.GetSubrangeAbsolute(IdxPorcentajes - 1, 0, IdxPorcentajes - 1, 6).Style.Font.Weight = ExcelFont.BoldWeight + + DtPorcentajes.Dispose() #End Region - Dim columnCount = worksheet.CalculateMaxUsedColumns() + Dim columnCount = worksheet.CalculateMaxUsedColumns() - For i = 0 To columnCount - worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1)) - Next + For i = 0 To columnCount + worksheet.Columns(i).AutoFit(1, worksheet.Rows(0), worksheet.Rows(worksheet.Rows.Count - 1)) + Next - FileExcel.Save(Response, $"DIARIO_{FechaConsulta.ToString("dd_MM_yyyy")}.xlsx", SaveOptions.XlsxDefault) + FileExcel.Save(Response, $"DIARIO_{FechaConsulta.ToString("dd_MM_yyyy")}.xlsx", SaveOptions.XlsxDefault) + Catch ex As Exception + OnError("Ocurrió un error al generar el reporte", ex) + End Try End If