diff --git a/Acumuladores/CatFoliosGarantia.aspx b/Acumuladores/CatFoliosGarantia.aspx
index 81b12f3db..3c9039c06 100644
--- a/Acumuladores/CatFoliosGarantia.aspx
+++ b/Acumuladores/CatFoliosGarantia.aspx
@@ -90,9 +90,9 @@
                                 <div class="col-md-2">
                                     <asp:DropDownList ID="DdlEstatus" runat="server" CssClass="select2me" Width="100px" ValidationGroup="GrpGuardar">
                                         <asp:ListItem Text="Todos" Value="-1"></asp:ListItem>
-                                        <asp:ListItem Text="Activo" Value="1" Selected="True"></asp:ListItem>
-                                        <asp:ListItem Text="Inactivo" Value="0"></asp:ListItem>
+                                        <asp:ListItem Text="Activo" Value="1" Selected="True"></asp:ListItem>                                      
                                         <asp:ListItem Text="Enviado" Value="2"></asp:ListItem>
+                                          <asp:ListItem Text="Cerrado" Value="0"></asp:ListItem>
                                     </asp:DropDownList>
                                 </div>
                                 <label class="col-md-1 truncate">SubProyecto:</label>
@@ -172,6 +172,11 @@
                                 </asp:TemplateField>
                                 <asp:HyperLinkField HeaderText="Mov. Salida" DataTextField="FolioAlmacen" DataNavigateUrlFields="CveMovimiento" DataNavigateUrlFormatString="/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" Target="_blank" ControlStyle-CssClass="Texto"/>
 
+                                <asp:TemplateField HeaderText="Notas" ItemStyle-Width ="120px" >
+                                    <ItemTemplate>
+                                        <asp:Literal ID="LblSerieFolioNotas" runat="server" Text='<%# Eval("SerieFolioNotas") %>'></asp:Literal>
+                                    </ItemTemplate>
+                                </asp:TemplateField>
                                 <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="120px">
                                     <ItemTemplate>
                                         <asp:LinkButton ID="ImgVer" OnClick="ImgVer_Click" runat="server" AlternateText="Editar" CausesValidation="False"
diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index 500315bf5..9d7a712ec 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -3571,6 +3571,22 @@ Public Class ClsNominas
         retorno = RunQuery("Ocurrió un error al eliminar las Solicitudes de nómina.")
         Return retorno
     End Function
+
+
+    Public Function SolicitudesCancelar(CveSolicitud As Integer, CveEmpresa As Integer, CveUsuario As Integer) As Boolean
+        Dim retorno As Boolean = False
+        DataAdapter("PA_Gral_SAT_SolicitudesCancelar", CommandType.StoredProcedure)
+        addParameters("@CveSolicitud", SqlDbType.Int, CveSolicitud)
+        addParameters("@CveEmpresa", SqlDbType.Int, CveEmpresa)
+        addParameters("@CveUsuario", SqlDbType.Int, CveUsuario)
+
+        retorno = RunQuery("Ocurrió un error al cancelar la Solicitude.")
+
+        Return retorno
+    End Function
+
+
+
 #End Region
 #End Region
 
diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 2df209c95..7644e534e 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -854,7 +854,7 @@
                                 </div>
 
                                 <div class="row">
-                                    <div class="col-md-6">
+                                    <div class="col-md-6" style="min-height:200px">
                                         <asp:UpdatePanel ID="UPPAnticiposSel" runat="server" UpdateMode="Conditional">
                                             <ContentTemplate>
 
@@ -915,6 +915,12 @@
                                                 </asp:GridView>
                                             </ContentTemplate>
                                         </asp:UpdatePanel>
+                                        <div style=" vertical-align: bottom;  display: table-cell;">
+                                                <asp:Button runat="server" ID="btnProrateo" Visible="false" Text="Prorratear" CommandArgument="Compras" CssClass="btn btn-success" />
+                                                <asp:Button runat="server" ID="btnProrateo2" Visible="false" Text="Prorratear Nomina" CommandArgument="Nomina" CssClass="btn btn-success" />
+                                                <asp:Button runat="server" ID="BtnProrateoDeducible" Visible="false" Text="Prorratear 8.5%" CommandArgument="Prorratear Deducible" CssClass="btn btn-success" />                                
+                                        </div>
+                                      
                                     </div>
 
                                     <div class="col-md-6 ">
@@ -976,13 +982,7 @@
                                                     </td>
                                                     <td align="right">&nbsp
                                                         &nbsp; 
-                                                       
-                                                       
-
-                                                       
-
-
-
+                                                        
                                                         <asp:HyperLink ID="HLAplicaNCFact" NavigateUrl="#" Visible="false" data-toggle="modal" data-target="#FacturaNC" runat="server"><i title="Aplicar Notas de Credito" data-toggle="tooltip" class='fa fa-money font-green'></i></asp:HyperLink>
                                                     </td>
                                                 </tr>
@@ -1117,12 +1117,7 @@
                                             </table>
                                         </div>
                                     </div>
-
-                                    <div class="col-md-6 ">
-                                        <asp:Button runat="server" ID="btnProrateo" Visible="false" Text="Prorratear" CommandArgument="Compras" CssClass="btn btn-success" />
-                                        <asp:Button runat="server" ID="btnProrateo2" Visible="false" Text="Prorratear Nomina" CommandArgument="Nomina" CssClass="btn btn-success" />
-                                        <asp:Button runat="server" ID="BtnProrateoDeducible" Visible="false" Text="Prorratear 8.5%" CommandArgument="Prorratear Deducible" CssClass="btn btn-success" />
-                                    </div>
+                                     
                                 </div>
 
                             </ContentTemplate>
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 72bb963e5..0478b39c0 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1418,11 +1418,6 @@ Partial Class Compras_Compras
 
                 End If
 
-
-                If UsuarioActual.TienePermisoProceso(360) Then
-                    BtnProrateoDeducible.Visible = True
-                End If
-
             ElseIf Request("CveCompra") IsNot Nothing AndAlso IsNumeric(Request("CveCompra")) AndAlso Request("CveCompra").ToEntero > 0 Then
 
                 ViewState("CveCompra") = Request("CveCompra")
@@ -1462,9 +1457,9 @@ Partial Class Compras_Compras
                 UpLnkPaqueteriaGuias.Update()
             End If
 
-            If Not CveCompra > 0 Then
-                LIContratos.Visible = True
-            End If
+            If UsuarioActual.TienePermisoProceso(360) Then BtnProrateoDeducible.Visible = True
+
+            If Not CveCompra > 0 Then LIContratos.Visible = True
 
             'SI ES UNA COMPRA NUEVA SE PONE EL TOTAL, SI NO EL SALDO
             LblSaldoFactura.Text = If(CveCompra > 0, CompraSaldo.FormatoNumero, TxtTotal.Text.FormatoNumero)
@@ -10171,7 +10166,7 @@ Partial Class Compras_Compras
         CargaGvInv()
         CargaGVsAF()
         CargaGvPersonal()
-        Alert("El Concepto ha sido eliminado correctamente", TipoMensaje.MsgInformacion)
+        Alert("El Concepto ha sido eliminado correctamente", TipoMensaje.ToastInformacion)
     End Sub
     Private Sub GvDeudores_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDeudores.RowDataBound
         If e.Row.RowType = DataControlRowType.DataRow Then
diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx
index 8af65aaa1..e53333212 100644
--- a/Compras/eFacturas.aspx
+++ b/Compras/eFacturas.aspx
@@ -1107,6 +1107,19 @@
                                                             <asp:Label runat="server" Text='<%# Eval("UsuarioIng")%>'></asp:Label>
                                                         </ItemTemplate>
                                                     </asp:TemplateField>
+
+                                                    <asp:TemplateField HeaderText="" Visible="false">
+                                                        <ItemTemplate>
+                                                            <asp:LinkButton ID="LnkRemoveSolicitud" runat="server" OnClick="LnkRemoveSolicitud_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='fa fa-minus'></i>" 
+                                                                data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea cancelar la solicitud?" data-btn-ok-label="si" />
+                                                        </ItemTemplate>
+                                                    </asp:TemplateField>
+
+                                                    
+ 
+
+
+
                                                 </Columns>
                                             </asp:GridView>
                                         </div>
diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index ce502c1e2..8a138cf63 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -781,6 +781,11 @@ Partial Class Compras_eFacturas
             CargaGvBitacora()
             CargaDatos()
             MostrarSolcitudesSAT()
+
+            If UsuarioActual.CveRol = 1 Then
+                GVSolicitudesPendientes.Columns(8).Visible = True
+            End If
+
         End If
         removeasincevent()
     End Sub
@@ -5033,6 +5038,26 @@ Partial Class Compras_eFacturas
         RegistraScript("$('#DvmodalPersonalizar').modal('show');")
 
     End Sub
+
+    Protected Sub LnkRemoveSolicitud_Click(sender As Object, e As EventArgs)
+
+        Dim gvRow As GridViewRow = DirectCast((DirectCast(sender, LinkButton)).NamingContainer, GridViewRow)
+        Dim ProcesoOk As Boolean = False
+
+        Dim CveSolicitud = gvRow.DataKey("CveSolicitud").ToEntero
+        Dim Folio = gvRow.DataKey("Folio").ToEntero
+
+        Using nom As ClsNominas = New ClsNominas()
+            ProcesoOk = nom.SolicitudesCancelar(CveSolicitud, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)
+        End Using
+
+        If ProcesoOk Then
+            Alert($"Solicitud {Folio} cancelada correctamente.")
+            cargasolicitudes()
+        End If
+
+
+    End Sub
 End Class
 
 
@@ -5052,6 +5077,12 @@ Public Class GeneralesAPIeFacturas
     Public Function VerificaSolicitudesNominas(CveEmpresa As Integer, CveTipoSolicitud As Integer, CveSolicitud As Integer) As Object
         Return getData(Of Object)($"VerificaSolicitudesNominas/{CveEmpresa}/{CveTipoSolicitud}/{CveSolicitud}", Nothing, ADSNetLibraryzdE.HelpersE.ConexionesE.SIGAPIE.requestMethod.[GET], False)
     End Function
+
+    Public Function CancelarSolicitud(CveEmpresa As Integer, CveSolicitud As Integer, CveUsuario As Integer) As Object
+        Return getData(Of Object)($"CancelarSolicitud/{CveEmpresa}/{CveSolicitud}/{CveUsuario}", Nothing, ADSNetLibraryzdE.HelpersE.ConexionesE.SIGAPIE.requestMethod.[GET], False)
+    End Function
+
+
 End Class
 
 
diff --git a/Nomina/RepPersonalDIM.aspx b/Nomina/RepPersonalDIM.aspx
index 9260aaf08..4b82ca5f0 100644
--- a/Nomina/RepPersonalDIM.aspx
+++ b/Nomina/RepPersonalDIM.aspx
@@ -506,7 +506,7 @@
                              <asp:TemplateField  HeaderStyle-HorizontalAlign="Left" ItemStyle-HorizontalAlign="Right">
                                 <HeaderTemplate>
                                     Impuesto<br />
-                                    correspondiente(mes)
+                                    correspondiente<br />(mes)
                                 </HeaderTemplate>
                                 <ItemTemplate>
                                     <asp:Label ID="LblImpuestoCorrespondienteMes" runat="server" Text='<%# Eval("ImpuestoCorrespondienteMes", "{0:N2}") %>'></asp:Label>
@@ -574,7 +574,7 @@
                             </asp:TemplateField>
                              <asp:TemplateField  HeaderStyle-HorizontalAlign="Left" ItemStyle-HorizontalAlign="Right">
                                 <HeaderTemplate>
-                                    Gratificación anual (Gravado)
+                                    Gratificación <br />anual (Gravado)
                                 </HeaderTemplate>
                                 <ItemTemplate>
                                     <asp:Label ID="LblP002G" runat="server" Text='<%# Eval("P002G", "{0:N2}") %>'></asp:Label>
@@ -593,7 +593,7 @@
                                 <HeaderTemplate>
                                     Viáticos y<br />
                                     gastos de<br />
-                                    viaje (Gravado)
+                                    viaje <br />(Gravado)
                                 </HeaderTemplate>
                                 <ItemTemplate>
                                     <asp:Label ID="LblP050G" runat="server" Text='<%# Eval("P050G", "{0:N2}") %>'></asp:Label>
@@ -603,7 +603,7 @@
                                 <HeaderTemplate>
                                     Viáticos y<br />
                                     gastos de<br />
-                                    viaje (Exento)
+                                    viaje <br />(Exento)
                                 </HeaderTemplate>
                                 <ItemTemplate>
                                     <asp:Label ID="LblP050E" runat="server" Text='<%# Eval("P050E", "{0:N2}") %>'></asp:Label>
@@ -855,7 +855,7 @@
                                 <HeaderTemplate>
                                     Seguro de<br />
                                     gastos médicos<br />
-                                    mayores (Gravado)
+                                    mayores <br />(Gravado)
                                 </HeaderTemplate>
                                 <ItemTemplate>
                                     <asp:Label ID="LblP030G" runat="server" Text='<%# Eval("P030G", "{0:N2}") %>'></asp:Label>
@@ -865,7 +865,7 @@
                                 <HeaderTemplate>
                                     Seguro de<br />
                                     gastos médicos<br />
-                                    mayores (Exento)
+                                    mayores <br />(Exento)
                                 </HeaderTemplate>
                                 <ItemTemplate>
                                     <asp:Label ID="LblP030E" runat="server" Text='<%# Eval("P030E", "{0:N2}") %>'></asp:Label>
@@ -963,7 +963,7 @@
                                 <HeaderTemplate>
                                     Ayuda para<br />
                                     artículos<br />
-                                    escolares (Exento)
+                                    escolares <br />(Exento)
                                 </HeaderTemplate>
                                 <ItemTemplate>
                                     <asp:Label ID="LblP035E" runat="server" Text='<%# Eval("P035E", "{0:N2}") %>'></asp:Label>
@@ -973,7 +973,7 @@
                                 <HeaderTemplate>
                                     Dotación o<br />
                                     ayuda para<br />
-                                    anteojos (Gravado)
+                                    anteojos <br />(Gravado)
                                 </HeaderTemplate>
                                 <ItemTemplate>
                                     <asp:Label ID="LblP036G" runat="server" Text='<%# Eval("P036G", "{0:N2}") %>'></asp:Label>
@@ -983,7 +983,7 @@
                                 <HeaderTemplate>
                                     Dotación o<br />
                                     ayuda para<br />
-                                    anteojos (Exento)
+                                    anteojos <br />(Exento)
                                 </HeaderTemplate>
                                 <ItemTemplate>
                                     <asp:Label ID="LblP036E" runat="server" Text='<%# Eval("P036E", "{0:N2}") %>'></asp:Label>
@@ -992,7 +992,7 @@
                              <asp:TemplateField  HeaderStyle-HorizontalAlign="Left" ItemStyle-HorizontalAlign="Right">
                                 <HeaderTemplate>
                                     Ayuda para<br />
-                                    transporte (Gravado)
+                                    transporte <br />(Gravado)
                                 </HeaderTemplate>
                                 <ItemTemplate>
                                     <asp:Label ID="LblP013G" runat="server" Text='<%# Eval("P013G", "{0:N2}") %>'></asp:Label>
@@ -1001,7 +1001,7 @@
                              <asp:TemplateField  HeaderStyle-HorizontalAlign="Left" ItemStyle-HorizontalAlign="Right">
                                 <HeaderTemplate>
                                     Ayuda par<br />
-                                    a transporte (Exento)
+                                    a transporte <br />(Exento)
                                 </HeaderTemplate>
                                 <ItemTemplate>
                                     <asp:Label ID="LblP013E" runat="server" Text='<%# Eval("P013E", "{0:N2}") %>'></asp:Label>
@@ -1010,7 +1010,7 @@
                              <asp:TemplateField  HeaderStyle-HorizontalAlign="Left" ItemStyle-HorizontalAlign="Right">
                                 <HeaderTemplate>
                                     Cuotas sindicales<br />
-                                    pagadas patron(Gravado)
+                                    pagadas patron<br />(Gravado)
                                 </HeaderTemplate>
                                 <ItemTemplate>
                                     <asp:Label ID="LblP014G" runat="server" Text='<%# Eval("P014G", "{0:N2}") %>'></asp:Label>
@@ -1019,7 +1019,7 @@
                              <asp:TemplateField  HeaderStyle-HorizontalAlign="Left" ItemStyle-HorizontalAlign="Right">
                                 <HeaderTemplate>
                                     Cuotas sindicales<br />
-                                    pagadas patron(Exento)
+                                    pagadas patron<br />(Exento)
                                 </HeaderTemplate>
                                 <ItemTemplate>
                                     <asp:Label ID="LblP014E" runat="server" Text='<%# Eval("P014E", "{0:N2}") %>'></asp:Label>
@@ -1028,7 +1028,7 @@
                              <asp:TemplateField  HeaderStyle-HorizontalAlign="Left" ItemStyle-HorizontalAlign="Right">
                                 <HeaderTemplate>
                                     Subsidios por<br />
-                                    incapacidad (Gravado)
+                                    incapacidad <br />(Gravado)
                                 </HeaderTemplate>
                                 <ItemTemplate>
                                     <asp:Label ID="LblP015G" runat="server" Text='<%# Eval("P015G", "{0:N2}") %>'></asp:Label>
@@ -1037,7 +1037,7 @@
                              <asp:TemplateField  HeaderStyle-HorizontalAlign="Left" ItemStyle-HorizontalAlign="Right">
                                 <HeaderTemplate>
                                     Subsidios por<br />
-                                    incapacidad (Exento)
+                                    incapacidad <br />(Exento)
                                 </HeaderTemplate>
                                 <ItemTemplate>
                                     <asp:Label ID="LblP015E" runat="server" Text='<%# Eval("P015E", "{0:N2}") %>'></asp:Label>
@@ -1350,6 +1350,11 @@
 
                         </Columns>
                     </asp:GridView>
+
+
+
+                  
+
                 </ContentTemplate>
             </asp:UpdatePanel>
 
diff --git a/Nomina/RepPersonalDIM.aspx.vb b/Nomina/RepPersonalDIM.aspx.vb
index d264bf3ac..d697818ef 100644
--- a/Nomina/RepPersonalDIM.aspx.vb
+++ b/Nomina/RepPersonalDIM.aspx.vb
@@ -100,15 +100,53 @@ Partial Class Nomina_RepPersonalDIM
     End Sub
 
     Private Sub Imprimir(Optional reporte As String = "PDF")
+
+
+        Dim row As New GridViewRow(0, 0, DataControlRowType.Header, DataControlRowState.Normal)
+        Dim cell As New TableHeaderCell()
+        cell.Text = "ANEXO 1 INFORMACION DEL EMPLEADO ->"
+        cell.ColumnSpan = 28
+        cell.HorizontalAlign = HorizontalAlign.Left
+        row.Controls.Add(cell)
+
+        cell = New TableHeaderCell()
+        cell.ColumnSpan = 18
+        cell.Text = "ANEXO 1 PAGOS POR SEPARACION ->"
+        cell.HorizontalAlign = HorizontalAlign.Left
+        row.Controls.Add(cell)
+
+
+        cell = New TableHeaderCell()
+        cell.ColumnSpan = 2
+        cell.Text = " ANEXO 1  ASIM SAL-> "
+        cell.HorizontalAlign = HorizontalAlign.Left
+        row.Controls.Add(cell)
+
+
+        cell = New TableHeaderCell()
+        cell.ColumnSpan = 58
+        cell.Text = "ANEXO 1 PAGOS DEL PATRÓN EFECTUADOS A SUS TRABAJADORES ->"
+        cell.HorizontalAlign = HorizontalAlign.Left
+        row.Controls.Add(cell)
+
+        cell = New TableHeaderCell()
+        cell.ColumnSpan = 19
+        cell.Text = "ANEXO 1  IMPUESTO SOBRE LA RENTA (RESUMEN) ->"
+        cell.HorizontalAlign = HorizontalAlign.Left
+        row.Controls.Add(cell)
+
+        'row.BackColor = ColorTranslator.FromHtml("#3AC0F2")
+        GvDatos.HeaderRow.Parent.Controls.AddAt(0, row)
+
         ExportToExcelGembox(GvDatos, "RepPersonalDIM", UsuarioActual, "Reporte Personal DIM", "", DatosFiltros:=$"Ejercicio {DdlEjercicio.SelectedItem.Text}")
     End Sub
     Public Overrides Sub VerifyRenderingInServerForm(ByVal control As Control)
     End Sub
 
     Protected Sub LnkDescargaArchivo_Click(ByVal sender As Object, ByVal e As EventArgs) Handles LnkDescargaArchivo.Click
-        Dim tabla As DataTable = Dt_Datos
 
-        Dim contenidoBytes As Byte() = Encoding.UTF8.GetBytes(ConvertirTablaATexto(tabla))
+
+        Dim contenidoBytes As Byte() = Encoding.UTF8.GetBytes(ConvertirGVATexto())
 
         Using memoryStream As New MemoryStream(contenidoBytes)
             Response.Clear()
@@ -121,39 +159,27 @@ Partial Class Nomina_RepPersonalDIM
 
     End Sub
 
-    Public Function ConvertirTablaATexto(ByVal DT As DataTable) As String
-
-        Dim DTDatos As DataTable = DT.Copy()
-
-        Dim columnasARemover As New List(Of DataColumn)()
-
-
-        For Each columna As DataColumn In DTDatos.Columns
-            If columna.ColumnName.Contains("CvePersonal") Then
-                columnasARemover.Add(columna)
-            End If
-        Next
-
-
-        For Each columna As DataColumn In columnasARemover
-            DTDatos.Columns.Remove(columna)
-        Next
-
-        DTDatos.AcceptChanges()
+    Public Function ConvertirGVATexto() As String
 
         Dim sb As New StringBuilder
-        For Each fila As DataRow In DTDatos.Rows
-            For i As Integer = 0 To DTDatos.Columns.Count - 1
-                sb.Append(fila(i).ToString())
 
-                If i < DTDatos.Columns.Count - 1 Then
-                    sb.Append("|")
-                End If
-            Next
-            sb.AppendLine()
+        Dim countRows As Integer = 1
+        For Each GvRow As GridViewRow In GvDatos.Rows
+
+            If Not countRows = 1 Then
+                For Each cell As TableCell In GvRow.Cells
+                    For Each control As Control In cell.Controls
+                        If TypeOf control Is Label Then
+                            Dim label As Label = DirectCast(control, Label)
+                            sb.Append($"{label.Text.Trim.Replace("True", "1").Replace("False", "0")}|")
+                        End If
+                    Next
+                Next
+                sb.AppendLine()
+            End If
+            countRows = countRows + 1
         Next
-
-        Return sb.tostring
+        Return sb.ToString
 
     End Function
 
@@ -292,14 +318,46 @@ Partial Class Nomina_RepPersonalDIM
 
             ' TotalRowHeader += 2
 
+
+            'worksheet.Rows(TotalRowHeader).Cells.GetSubrange("A8:AB9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(61, 74, 26), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
+
+            'worksheet.Rows(TotalRowHeader).Cells.GetSubrange("AC8:AT9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(216, 191, 216), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
+
+            'worksheet.Rows(TotalRowHeader).Cells.GetSubrange("AU8:AV9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(59, 131, 189), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
+
+            'worksheet.Rows(TotalRowHeader).Cells.GetSubrange("AW8:DB9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(216, 191, 216), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
+
+            'worksheet.Rows(TotalRowHeader).Cells.GetSubrange("DC8:DS9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 140, 64), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
+
+
+            worksheet.Cells.GetSubrange("A8:AB9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(218, 247, 166), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
+
+            worksheet.Cells.GetSubrange("AC8:AT9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(216, 191, 216), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
+
+            worksheet.Cells.GetSubrange("AU8:AV9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(59, 131, 189), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
+
+            worksheet.Cells.GetSubrange("AW8:DB9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(216, 191, 216), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
+
+            worksheet.Cells.GetSubrange("DC8:DU9").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 140, 64), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
+
+            worksheet.Cells("DC8").Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 140, 64), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
+
             For i = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex
 
                 worksheet.Rows(TotalRowHeader).Cells(i).Style.Font.Size = 12 * 20
-                worksheet.Rows(TotalRowHeader).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Center
-                worksheet.Rows(TotalRowHeader).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Center
+                worksheet.Rows(TotalRowHeader).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left
+                worksheet.Rows(TotalRowHeader).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Bottom
 
-                worksheet.Rows(TotalRowHeader).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
-                worksheet.Rows(TotalRowHeader).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255)
+                'worksheet.Rows(TotalRowHeader).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
+                worksheet.Rows(TotalRowHeader).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(0, 0, 0)
+
+
+                worksheet.Rows(TotalRowHeader + 1).Cells(i).Style.Font.Size = 12 * 20
+                worksheet.Rows(TotalRowHeader + 1).Cells(i).Style.HorizontalAlignment = GemBox.Spreadsheet.HorizontalAlignmentStyle.Left
+                worksheet.Rows(TotalRowHeader + 1).Cells(i).Style.VerticalAlignment = GemBox.Spreadsheet.VerticalAlignmentStyle.Bottom
+
+                ' worksheet.Rows(TotalRowHeader + 1).Cells(i).Style.FillPattern.SetPattern(GemBox.Spreadsheet.FillPatternStyle.Solid, GemBox.Spreadsheet.SpreadsheetColor.FromArgb(75, 119, 190), GemBox.Spreadsheet.SpreadsheetColor.FromArgb(255, 255, 255))
+                worksheet.Rows(TotalRowHeader + 1).Cells(i).Style.Font.Color = GemBox.Spreadsheet.SpreadsheetColor.FromArgb(0, 0, 0)
 
                 If i > 0 Then
                     Try
@@ -330,21 +388,18 @@ Partial Class Nomina_RepPersonalDIM
             End If
 
 
+            worksheet.Columns(0).Width = 4000
+            worksheet.Columns(1).Width = 4000
+            worksheet.Columns(2).Width = 5500
+            worksheet.Columns(3).Width = 10000
+            worksheet.Columns(4).Width = 5000
+            worksheet.Columns(5).Width = 5000
+            worksheet.Columns(6).Width = 10000
+            worksheet.Columns(7).Width = 5000
+
             For I = celdasConTexto.FirstColumnIndex To celdasConTexto.LastColumnIndex
-
-                If I > 0 Then
-
-                    If 1 = 1 Then
-                        worksheet.Columns(I + 1).Style.NumberFormat = "#,##0.00"
-                    Else
-                        worksheet.Columns(I + 1).Style.NumberFormat = "#,##"
-                    End If
-
-                    Try
-                        worksheet.Columns(I).AutoFit(1)
-                    Catch ex As Exception
-                    End Try
-
+                If I > 7 Then
+                    worksheet.Columns(I).Width = 4500
                 End If
             Next