diff --git a/Ashx/E141.ashx b/Ashx/E141.ashx
index 4d52b8b02..e2ba8339d 100644
--- a/Ashx/E141.ashx
+++ b/Ashx/E141.ashx
@@ -406,6 +406,8 @@ Public Class E141 : Implements IHttpHandler
                                 Else
                                     retorno = "False"
                                 End If
+                            Case "ActualizarPreciosJson"
+                                retorno = ActualizarPreciosJson(If(FiltrarTodos = "1", True, False))
                             Case "ActualizarExistencias"
                                 respuesta = ActualizarExistencias()
                                 If respuesta Then
@@ -413,6 +415,8 @@ Public Class E141 : Implements IHttpHandler
                                 Else
                                     retorno = "False"
                                 End If
+                            Case "ActualizarExistenciasJson"
+                                retorno = ActualizarExistenciasJson(If(FiltrarTodos = "1", True, False))
                             Case "ActualizarVendedores"
                                 respuesta = ActualizarVendedores(If(FiltrarTodos = "1", True, False))
                                 If respuesta Then
@@ -2118,6 +2122,26 @@ Public Class E141 : Implements IHttpHandler
         Return Retorno
     End Function
 
+    Private Function ActualizarPreciosJson(Todos As Boolean) As String
+        Dim payload = New JObject()
+
+        Dim CountPeticiones As Integer = 0, CountPeticionesExitosas As Integer = 0
+
+        Dim DtPS As DataTable = Nothing
+        Using ObjPS As New ClsProductosServicios
+            'OBTERNER PRECIOS DE PUBLICO GENERAL
+            If ObjPS.GetPreciosModificados(CveEmpresa, 44, If(Todos, -1, 1)) Then
+                DtPS = ObjPS.DtResultados.Copy()
+            End If
+        End Using
+
+        If DtPS IsNot Nothing Then
+            payload.Add(New JProperty("products", GenerarPayloadPrecios(DtPS)))
+        End If
+
+        Return payload.ToString()
+    End Function
+
     Private Function GenerarPayloadPrecios(DtPS As DataTable) As JArray
         Dim ArrayPS As New JArray
         For Each RowPS As DataRow In DtPS.Rows
@@ -2215,6 +2239,25 @@ Public Class E141 : Implements IHttpHandler
         Return Retorno
     End Function
 
+    Private Function ActualizarExistenciasJson(Todos As Boolean) As String
+        Dim payload = New JObject()
+
+        Dim CountPeticiones As Integer = 0, CountPeticionesExitosas As Integer = 0
+
+        Dim DtPS As DataTable = Nothing
+        Using ObjPS As New ClsProductosServicios
+            If ObjPS.GetExistenciasEmpresa("-1", CveEmpresa) Then
+                DtPS = ObjPS.DtResultados.Copy()
+            End If
+        End Using
+
+        If DtPS IsNot Nothing Then
+            payload.Add(New JProperty("stock", GenerarPayloadExistencias(DtPS)))
+        End If
+
+        Return payload.ToString()
+    End Function
+
     Private Function GenerarPayloadExistencias(DtPS As DataTable) As JArray
         Dim ArrayPS As New JArray
         For Each RowPS As DataRow In DtPS.Rows
@@ -2233,7 +2276,7 @@ Public Class E141 : Implements IHttpHandler
 #End Region
 
 
-#Region "A C T U A L I Z A R - E X I S T E N C I A S"
+#Region "A C T U A L I Z A R - V E N D E D O R E S"
 
     Private Function ActualizarVendedores(Todos As Boolean) As Boolean
         Dim Retorno As Boolean = False
diff --git a/Inventarios/RecepcionUsados.aspx.vb b/Inventarios/RecepcionUsados.aspx.vb
index ff91f38ce..a50ab4f25 100644
--- a/Inventarios/RecepcionUsados.aspx.vb
+++ b/Inventarios/RecepcionUsados.aspx.vb
@@ -2761,7 +2761,7 @@ Partial Class Inventarios_RecepcionUsados
                 CveClasificacion = drPS("CveClasificacion").ToString.ToEntero
 
                 Dim Arr = PS.Split("-"c)
-                If Arr.Count > 0 Then
+                If Arr.Count > 1 Then
                     If (DdlBCIAjuste.Items.FindByText(Arr(1).ToString) IsNot Nothing) Then
                         DdlBCIAjuste.SelectedValueExist(DdlBCIAjuste.Items.FindByText(Arr(1).ToString).Value)
                     End If
diff --git a/Ventas/RepPS.aspx b/Ventas/RepPS.aspx
index 7c3aeed05..48d0adee4 100644
--- a/Ventas/RepPS.aspx
+++ b/Ventas/RepPS.aspx
@@ -68,7 +68,7 @@
         <asp:LinkButton ID="ImgExcel" runat="server"> <i class="fa fa-file-excel-o" style="font-weight:bold;"></i> Excel</asp:LinkButton>
     </li>
     <li>
-        <asp:LinkButton ID="LnkRepDiario" runat="server" Visible="false" OnClick="LnkRepDiario_Click"> <i class="fa fa-file-o" style="font-weight:bold;"></i> Reporte Diario</asp:LinkButton>
+        <asp:HyperLink NavigateUrl="#" data-toggle="modal" data-target="#DivReporteDiario" ID="HLReporteDiario" runat="server"> <i class="fa fa-file-o"></i>  Reporte Diario</asp:HyperLink>
     </li>
 </asp:Content>
 <asp:Content ID="Content5" ContentPlaceHolderID="H" runat="Server">
@@ -222,6 +222,53 @@
             </asp:GridView>
         </ContentTemplate>
     </asp:UpdatePanel>
+    <asp:UpdatePanel runat="server" ID="UPPersonalizar" UpdateMode="Conditional">
+        <ContentTemplate>
+            <div id="DivReporteDiario" class="modal fade" role="dialog">
+                <div class="modal-dialog">
+                    <!-- Modal content-->
+                    <div class="modal-content">
+                        <div class="modal-header">
+                            <button type="button" class="close" data-dismiss="modal">&times;</button>
+                            <h4 class="modal-title">
+                                <asp:Label ID="Label1" runat="server" ClientIDMode="Static" Text="Descargar Reporte Diario"></asp:Label></h4>
+                        </div>
+                        <div class="modal-body">
+                            <table class="table table-striped table-advance table-hover Widthall">
+                                <tbody>
+                                    <tr>
+                                        <td style="text-align: left;">Fecha Consulta
+                                        </td>
+                                        <td style="text-align: left;">
+                                            <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 100px !important; padding: 0px;">
+                                                <asp:TextBox Width="80px" ID="TxtFechaConsulta" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
+                                                <span class="input-group-btn ">
+                                                    <asp:LinkButton ID="LnkFechaConsulta" class="btn default " Text="<i class='fa fa-calendar'></i>" runat="server"></asp:LinkButton>
+                                                </span>
+                                            </div>
+                                            <ajax:MaskedEditExtender ID="MEEFechaConsulta" runat="server" TargetControlID="TxtFechaConsulta" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
+                                            <ajax:CalendarExtender runat="server" ID="CEFechaConsulta" TargetControlID="TxtFechaConsulta" PopupButtonID="LnkFechaConsulta" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
+                                            <asp:RequiredFieldValidator ID="RFVFechaConsulta" runat="server" ControlToValidate="TxtFechaConsulta" Display="None" ErrorMessage="El campo <b>''Fecha Consulta''</b> es requerido por la aplicación, por favor ingrese una fecha." ValidationGroup="Valida"></asp:RequiredFieldValidator>
+                                            <asp:CompareValidator ID="CVFechaConsulta" runat="server" ControlToValidate="TxtFechaConsulta" Display="None" ErrorMessage="El campo <b>''Fecha Consulta''</b> no tienes el formato correcto, por favor intente de nuevo con el siguiente formato: (dd/mm/yyyy)." Operator="DataTypeCheck" Type="Date" ValidationGroup="Valida"></asp:CompareValidator>
+                                            <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender1" runat="server" HighlightCssClass="vco" TargetControlID="RFVFechaConsulta" Width="350px"></ajax:ValidatorCalloutExtender>
+                                            <ajax:ValidatorCalloutExtender ID="ValidatorCalloutExtender2" runat="server" HighlightCssClass="vco" TargetControlID="CVFechaConsulta" Width="350px"></ajax:ValidatorCalloutExtender>
+                                        </td>
+                                    </tr>
+                                </tbody>
+                            </table>
+                        </div>
+                        <div class="modal-footer">
+                            <asp:Button ID="BtnDescargar" runat="server" Text="Descargar" class="btn btn-success" />
+                            <button type="button" class="btn btn-default" data-dismiss="modal">Cancelar</button>
+                        </div>
+                    </div>
+                </div>
+            </div>
+        </ContentTemplate>
+        <Triggers>
+            <asp:PostBackTrigger ControlID="BtnDescargar" />
+        </Triggers>
+    </asp:UpdatePanel>
 </asp:Content>
 <asp:Content ID="Content8" ContentPlaceHolderID="JS" runat="Server">
 </asp:Content>
diff --git a/Ventas/RepPS.aspx.vb b/Ventas/RepPS.aspx.vb
index 55f38afb9..cf7a1a120 100644
--- a/Ventas/RepPS.aspx.vb
+++ b/Ventas/RepPS.aspx.vb
@@ -37,7 +37,7 @@ Partial Class Ventas_RepPS
             End If
 
             If UsuarioActual.TienePermisoProceso(320) OrElse UsuarioActual.CveRol = 1 Then
-                LnkRepDiario.Visible = True
+                HLReporteDiario.Visible = True
             End If
 
 
@@ -49,6 +49,8 @@ Partial Class Ventas_RepPS
     Private Sub CargaDatosIniciales()
         txtFechaI.Text = $"01/{Now.Month}/{Now.Year}"
         txtFechaF.Text = Now.ToString("dd/MM/yyyy")
+
+        TxtFechaConsulta.Text = Now.ToString("dd/MM/yyyy")
     End Sub
 
     Private Sub CargaCombos()
@@ -237,12 +239,12 @@ Partial Class Ventas_RepPS
 
 #End Region
 
-    Protected Sub LnkRepDiario_Click(sender As Object, e As EventArgs)
+    Protected Sub BtnDescargar_Click(sender As Object, e As EventArgs) Handles BtnDescargar.Click
         Dim CveMoneda As Integer = -1
         Dim TC As Integer = 1
         Dim TCEspecifico As Decimal = -1
 
-        Dim FechaConsulta As DateTime = Now
+        Dim FechaConsulta As DateTime = TxtFechaConsulta.Text.ToDateTime()
 
         Dim DataSet As DataSet = New DataSet
         Dim ObjVentas As New ClsVentas()
@@ -276,6 +278,8 @@ Partial Class Ventas_RepPS
             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
@@ -322,7 +326,9 @@ Partial Class Ventas_RepPS
 
             '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")
@@ -345,6 +351,10 @@ Partial Class Ventas_RepPS
                 '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, 12).Style
                 StyleData.Font.Weight = ExcelFont.BoldWeight
                 StyleData.Font.Name = "Calibri"
@@ -368,11 +378,336 @@ Partial Class Ventas_RepPS
             '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
+
+            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 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})"
+
+                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_-;_-* ""-""??_-;_-@_-"
+
+                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 %"
+
+            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_-;_-* ""-""??_-;_-@_-"
+
+                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()
+
             DtSucursalesLLantasAlin.Dispose()
+
+            Dim IdxRefFranquiciasResumen As Integer = IdxRefMesAnioAnteriorLlantasResumen
+
+            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
+
+            '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 + 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})"
+
+
+            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_-;_-* ""-""??_-;_-@_-"
+
+            IdxRefFranquiciasResumen += 1
+
+
+#End Region
+
+#Region "A Ñ O  R E S U M E N"
+            Dim IdxRefAnioResumen As Integer = IdxRefFranquiciasResumen - 1
+
+            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 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 + 3, columnRefAnioResumen).Value = $"X DIA {Now.Year - 1}"
+            worksheet.Cells(IdxRefAnioResumen + 4, columnRefAnioResumen).Value = $"X DIA {Now.Year}"
+
+            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
+
+            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 + 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 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
+
+
+#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
+
+            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 %"
+
+            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 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"
+
+                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
+
+            DtMesAnioAnteriorLLantas.Dispose()
+#End Region
+
+#Region "A Ñ O  A N T E R I O R"
+            Dim IdxRefAnioAnteriorLlantas As Integer = IdxRefMesAnioAnteriorLlantas
+
+            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"
+
+            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
+
+            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_-;_-* ""-""??_-;_-@_-"
+
+                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))
+
+                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 = IdxSucursalesLlantasAlin + 3
+            Dim IdxRefSucursalesServiciosAmortPolizas As Integer = IdxMesAnioAnteriorLlantas + 3
 
             worksheet.Cells(IdxRefSucursalesServiciosAmortPolizas, 0).Value = "Sucursal"
             'TITULO SERVICIOS DE INSTALACION
@@ -550,176 +885,6 @@ Partial Class Ventas_RepPS
             DtPorcentajes.Dispose()
 #End Region
 
-#Region "A Ñ O  A N T E R I O R"
-            Dim IdxRefAnioAnteriorLlantas As Integer = IdxPorcentajes + 3
-
-            worksheet.Cells(IdxRefAnioAnteriorLlantas, 0).Value = "Sucursal"
-            worksheet.Cells(IdxRefAnioAnteriorLlantas, 1).Value = (FechaConsulta.Year - 1).ToString()
-            worksheet.Cells(IdxRefAnioAnteriorLlantas, 2).Value = FechaConsulta.Year.ToString()
-            worksheet.Cells(IdxRefAnioAnteriorLlantas, 3).Value = "Dif"
-
-            Dim StyleTitleTable4 = worksheet.Cells.GetSubrangeAbsolute(IdxRefAnioAnteriorLlantas, 0, IdxRefAnioAnteriorLlantas, 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
-
-            For Each Row As DataRow In DtAnioAnteriorLLantas.FiltraParametros("TipoFila > 1").Rows
-                worksheet.Cells(IdxAnioAnteriorLlantas, 0).Value = Row("Grupo")
-                worksheet.Cells(IdxAnioAnteriorLlantas, 1).Value = Row("LLantasAnioAnterior")
-                worksheet.Cells(IdxAnioAnteriorLlantas, 2).Value = Row("LLantas")
-                worksheet.Cells(IdxAnioAnteriorLlantas, 3).Formula = $"=({worksheet.Cells(IdxAnioAnteriorLlantas, 1).Name} - {worksheet.Cells(IdxAnioAnteriorLlantas, 2).Name})"
-
-
-                Dim StyleData = worksheet.Cells.GetSubrangeAbsolute(IdxAnioAnteriorLlantas, 0, IdxAnioAnteriorLlantas, 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_-;_-* ""-""??_-;_-@_-"
-
-                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, 0).Value = Row("Grupo")
-                worksheet.Cells(IdxAnioAnteriorLlantas, 1).Value = Row("LLantasAnioAnterior")
-                worksheet.Cells(IdxAnioAnteriorLlantas, 2).Value = Row("LLantas")
-                worksheet.Cells(IdxAnioAnteriorLlantas, 3).Formula = $"=(+{worksheet.Cells(IdxAnioAnteriorLlantas, 1).Name} - {worksheet.Cells(IdxAnioAnteriorLlantas, 2).Name})"
-
-
-                Dim StyleData = worksheet.Cells.GetSubrangeAbsolute(IdxAnioAnteriorLlantas, 0, IdxAnioAnteriorLlantas, 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()
-#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 = IdxAnioAnteriorLlantas + 3
-
-            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 %"
-
-            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 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"
-
-                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
-
-            DtMesAnioAnteriorLLantas.Dispose()
-#End Region
-
-#Region "L L A N T A S  M E S  A Ñ O  A N T E R I O R"
-            Dim IdxRefMesAnioAnteriorLlantasResumen As Integer = IdxMesAnioAnteriorLlantas + 2
-
-            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 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()
-                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_-;_-* ""-""??_-;_-@_-"
-
-                IdxMesAnioAnteriorLlantasResumen += 1
-            Next
-
-            DtMesAnioAnteriorLLantasResumen.Dispose()
-#End Region
-
             Dim columnCount = worksheet.CalculateMaxUsedColumns()
 
             For i = 0 To columnCount