diff --git a/App_Code/ClsCompras.vb b/App_Code/ClsCompras.vb
index 67381324c..40bcd70e1 100644
--- a/App_Code/ClsCompras.vb
+++ b/App_Code/ClsCompras.vb
@@ -675,8 +675,9 @@ Public Class ClsCompras
     End Function
 
     Public Function GetRepComprasAF(FechaI As String, FechaF As String, CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer, Gpo As Integer, CveProyecto As Integer, CveSubProyecto As Integer,
-                                    TipoCambio As Integer, TCEspecifico As Double, CveClasificacion As Integer, CveActivoFijo As Integer, CveTipoActivoFijo As Integer, CveSubTipoActivoFijo As Integer, CvePS As Integer, Optional CveUsuarioConsulta As Integer = -1
-                                     ) As Boolean
+                                    TipoCambio As Integer, TCEspecifico As Double, CveClasificacion As Integer, CveActivoFijo As Integer, CveTipoActivoFijo As Integer, CveSubTipoActivoFijo As Integer, CvePS As Integer, Optional CveUsuarioConsulta As Integer = -1,
+                                    Optional CveClasificacion2 As Integer = -1
+                                    ) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Comp_ComprasAFGetRep")
 
@@ -697,6 +698,7 @@ Public Class ClsCompras
             .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo
             .Add("@CvePS", SqlDbType.Int).Value = CvePS
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
+            .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
 
 
             'CveClasificacion
@@ -714,7 +716,7 @@ Public Class ClsCompras
 
     Public Function GetRepComprasAFDetalle(FechaI As String, FechaF As String, CveProveedor As Integer, CveMoneda As Integer, CveEmpresa As Integer, Gpo As Integer, CveProyecto As Integer, CveSubProyecto As Integer,
                                     TipoCambio As Integer, TCEspecifico As Double, CveClasificacion As Integer, CveActivoFijo As Integer, CveTipoActivoFijo As Integer, CveSubTipoActivoFijo As Integer, CvePS As Integer,
-                                     Anio As Integer, Mes As Integer, AnioMes As String, Optional CveUsuarioConsulta As Integer = -1) As Boolean
+                                     Anio As Integer, Mes As Integer, AnioMes As String, Optional CveUsuarioConsulta As Integer = -1, Optional CveClasificacion2 As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_Comp_ComprasAFDetalleGetRep")
 
@@ -739,6 +741,7 @@ Public Class ClsCompras
             .Add("@CveSubTipoActivoFijo", SqlDbType.Int).Value = CveSubTipoActivoFijo
             .Add("@CvePS", SqlDbType.Int).Value = CvePS
             .Add("@CveUsuarioConsulta", SqlDbType.Int).Value = CveUsuarioConsulta
+            .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
 
             'CveClasificacion
         End With
diff --git a/CRM/RepAcercamientosProcesos.aspx.cs b/CRM/RepAcercamientosProcesos.aspx.cs
index e3e9ff01f..fe314794b 100644
--- a/CRM/RepAcercamientosProcesos.aspx.cs
+++ b/CRM/RepAcercamientosProcesos.aspx.cs
@@ -596,7 +596,7 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
 
     protected void LnkExcel_Click(object sender, EventArgs e)
     {
-        GVRepAcercamientosEtapas.ExportToExcelGembox("Reporte de Procesos de Acercamiento", UsuarioActual, "", "", "Reporte de Procesos de Acercamiento", "", -1);
+        GVRepAcercamientosEtapas.ExportToExcelGembox("Reporte de Procesos de Acercamiento", UsuarioActual, "", "", "Reporte de Procesos de Acercamiento");
     }
 
     public override void VerifyRenderingInServerForm(Control control)
diff --git a/CRM/RepAcercamientosRechazos.aspx.cs b/CRM/RepAcercamientosRechazos.aspx.cs
index ea1d906c8..f2778ba18 100644
--- a/CRM/RepAcercamientosRechazos.aspx.cs
+++ b/CRM/RepAcercamientosRechazos.aspx.cs
@@ -579,7 +579,7 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas
 
     protected void LnkExcel_Click(object sender, EventArgs e)
     {
-        GVRepAcercamientosEtapas.ExportToExcelGembox("Reporte de Rechazos de Acercamiento", UsuarioActual, "", "", "Reporte de Rechazos de Acercamiento", "", -1);
+        GVRepAcercamientosEtapas.ExportToExcelGembox("Reporte de Rechazos de Acercamiento", UsuarioActual, "", "", "Reporte de Rechazos de Acercamiento");
     }
 
     public override void VerifyRenderingInServerForm(Control control)
diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 5827d865e..b3270bc31 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -940,6 +940,7 @@ Partial Class PopUpVerFactura
 
 
 
+
             Dim PlacaVM As String = ""
             Dim AnioModeloVM As String = ""
             'TIMBRADO
@@ -980,7 +981,10 @@ Partial Class PopUpVerFactura
             DtUbicaciones.Columns.Add(New DataColumn("Nombre", GetType(String)))
             DtUbicaciones.Columns.Add(New DataColumn("FechaHoraSalida", GetType(DateTime)))
             DtUbicaciones.Columns.Add(New DataColumn("Direccion", GetType(String)))
+            DtUbicaciones.Columns.Add(New DataColumn("TipoUbicacion", GetType(String)))
 
+
+
             Dim DtMercancias As New DataTable()
             DtMercancias.Columns.Add(New DataColumn("Cantidad", GetType(Decimal)))
             DtMercancias.Columns.Add(New DataColumn("UnidadMedida", GetType(String)))
@@ -1151,6 +1155,8 @@ Partial Class PopUpVerFactura
                         Row("Direccion") = String.Format("{0} Col.{1},{2},{3}. CP {4}", calle, Colonia, Municipio, Estado, CP)
                     End If
 
+
+
                     DtUbicaciones.Rows.Add(Row)
                 Next
 
@@ -1226,6 +1232,9 @@ Partial Class PopUpVerFactura
                 params.Add(New ReportParameter("SubTotal", SubTotal.ToString()))
                 params.Add(New ReportParameter("Descuentos", Descuentos.ToString()))
                 params.Add(New ReportParameter("Total", Total.ToString()))
+
+
+
                 ' [@CertificadoContribuyente]
                 '[@CadenaOriginal]
 
@@ -1290,7 +1299,7 @@ Partial Class PopUpVerFactura
             Dim Path As String = String.Format("{0}\{1}\{2}\{3}.{4}", UsuarioActual.Empresa.Ruta, Parametros("EXT").ToString, Parametros("TIPODOCTO").ToString, Parametros("FOLIO").ToString, Exten)
             Dim Archivo As New System.IO.FileInfo(Path)
             Dim cvetimbre As Integer = Parametros("CVETIMBRE").ToString.ToEntero
-
+
             If Archivo.Exists Then
                 DescargarArchivoPDFTraslado(Archivo, Path)
             Else
@@ -1302,8 +1311,8 @@ Partial Class PopUpVerFactura
                     If Archivo.Exists Then
                         DescargarArchivoPDFTraslado(Archivo, Path)
                     End If
-                End If
-            End If
+                End If
+            End If
             Archivo = Nothing
         End If
     End Sub
@@ -1321,9 +1330,9 @@ Partial Class PopUpVerFactura
     Private Sub GeneraPDFFactura(ObjFactura As Modelos.Factura)
         Try
             ' Dim objFactura = CreaObjetosTraslado(CveMovimiento)
-            If objFactura IsNot Nothing Then
-                PdfFactura(objFactura)
-                objFactura.Dispose()
+            If ObjFactura IsNot Nothing Then
+                PdfFactura(ObjFactura)
+                ObjFactura.Dispose()
             End If
         Catch ex As Exception
             OnError("Ocurrió un error al generar el PDF", ex)
diff --git a/Compras/RepComprasAF.aspx b/Compras/RepComprasAF.aspx
index b6ee8e1f9..c77ccf991 100644
--- a/Compras/RepComprasAF.aspx
+++ b/Compras/RepComprasAF.aspx
@@ -92,6 +92,7 @@
                                     <asp:ListItem Text="Activo Fijo SubTipo" Value="8"></asp:ListItem>
                                     <asp:ListItem Text="Producto" Value="9"></asp:ListItem>
                                     <asp:ListItem Text="Clasificación" Value="10"></asp:ListItem>
+                                    <asp:ListItem Text="Clasificación2" Value="11"></asp:ListItem>
                                 </asp:DropDownList>
                             </div>
                         </div>
@@ -147,12 +148,21 @@
                         </div>
                     </div>
                     <div class="row">
+
                         <div class="col-md-1">Clasificación:</div>
                         <div class="col-md-2">
                             <asp:DropDownList ID="DdlClasificacion" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="95%">
                                 <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
                             </asp:DropDownList>
-                        </div> 
+                        </div>
+                        
+                        
+                        <div class="col-md-1">Clasificación 2:</div>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlClasificacion2" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="95%">
+                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div>  
 
                         <div class="col-md-1">Producto Servicio:</div>
                         <div class="col-md-2">
@@ -167,7 +177,8 @@
     <div class="col-md-8">
         <asp:UpdatePanel ID="UPDatos" runat="server" UpdateMode="Conditional">
             <ContentTemplate>
-                <asp:GridView ID="GvDatos" runat="server" data-sort="true" DataKeyNames="GPO,Cantidad,Total,Moneda" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros con los filtros especificados" ToolTip="Listado de Ventas" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
+                <asp:GridView ID="GvDatos" runat="server" data-sort="true" DataKeyNames="GPO,Cantidad,Total,Moneda" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros con los filtros especificados" 
+                    ToolTip="Listado de Ventas" CssClass="table table-striped table-advance table-hover Widthall ScrollAD" GridLines="None">
                     <Columns>
                         <asp:TemplateField HeaderText="Grupo">
                             <ItemTemplate>
diff --git a/Compras/RepComprasAF.aspx.vb b/Compras/RepComprasAF.aspx.vb
index 2c5fc308c..1e5e19842 100644
--- a/Compras/RepComprasAF.aspx.vb
+++ b/Compras/RepComprasAF.aspx.vb
@@ -90,6 +90,9 @@ Partial Class Compras_RepComprasAF
         DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
         DdlClasificacion.DataBind()
 
+        DdlClasificacion2.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
+        DdlClasificacion2.DataBind()
+
         DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
         DdlActivoFijo.DataBind()
 
@@ -154,10 +157,12 @@ Partial Class Compras_RepComprasAF
         Else
             TCEspecifico = -1
         End If
+
         If ObjCompras.GetRepComprasAF(FechaI, FechaF, DdlProveedores.SelectedValue.ToEntero, DdlMonedas.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero,
                                       DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico,
                                       DdlClasificacion.SelectedValue.ToEntero, DdlActivoFijo.SelectedValue.ToEntero, DdlTipoActivoFijo.SelectedValue.ToEntero, DdlSubTipoActivoFijo.SelectedValue.ToEntero,
-                                      CvePS, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
+                                      CvePS, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero) Then
+
             DTDatos = ObjCompras.DtResultados
             GvDatos.DataSource = ObjCompras.DtResultados
         Else
@@ -187,7 +192,7 @@ Partial Class Compras_RepComprasAF
             If CvePS = "" Or CvePS = "0" Then
                 CvePS = "-1"
             End If
-            Dim Liga As String = $"/Compras/RepComprasAFDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={ e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&CveProveedor={ e.Row.DBCampo("CveProveedor")}&CveActivoFijo={e.Row.DBCampo("CveActivoFijo")}&CveTipoActivoFijo={e.Row.DBCampo("CveTipoActivoFijo")}&CveSubTipoActivoFijo={e.Row.DBCampo("CveSubTipoActivoFijo")}&CveProyecto={ DdlProyecto.SelectedValue}&CveSubProyecto={DdlSubProyecto.SelectedValue}&CvePS={CvePS}&CveClasificacion={e.Row.DBCampo("CveClasificacion")}&CveMoneda={ e.Row.DBCampo("CveMoneda")}&FechaI={FechaI}&FechaF={FechaF}&PS={PS}"
+            Dim Liga As String = $"/Compras/RepComprasAFDetalle.aspx?GPO={DdlGrupo.SelectedValue}&Anio={e.Row.DBCampo("Anio")}&Mes={e.Row.DBCampo("Mes")}&AnioMes={ e.Row.DBCampo("AnioMes")}&Fecha={e.Row.DBCampo("Fecha")}&CveProveedor={ e.Row.DBCampo("CveProveedor")}&CveActivoFijo={e.Row.DBCampo("CveActivoFijo")}&CveTipoActivoFijo={e.Row.DBCampo("CveTipoActivoFijo")}&CveSubTipoActivoFijo={e.Row.DBCampo("CveSubTipoActivoFijo")}&CveProyecto={ DdlProyecto.SelectedValue}&CveSubProyecto={DdlSubProyecto.SelectedValue}&CvePS={CvePS}&CveClasificacion={e.Row.DBCampo("CveClasificacion")}&CveMoneda={ e.Row.DBCampo("CveMoneda")}&FechaI={FechaI}&FechaF={FechaF}&PS={PS}&CveClasificacion2={e.Row.DBCampo("CveClasificacion2")}"
             If e.Row.DBCampo("Orden") = "1" Then
                 e.Row.Cells(0).Text = String.Format("<a class='{0}' target='_blank' href='{1}'>{2}</a>", "Texto", Liga, e.Row.DataKey("GPO").ToString)
             Else
@@ -285,6 +290,11 @@ Partial Class Compras_RepComprasAF
         If DdlClasificacion.SelectedIndex > 0 Then
             ListaFiltros.Add("Clasificación: " & DdlClasificacion.SelectedItem.Text)
         End If
+
+        If DdlClasificacion2.SelectedIndex > 0 Then
+            ListaFiltros.Add("Clasificación: " & DdlClasificacion2.SelectedItem.Text)
+        End If
+
         For Each s As String In ListaFiltros
             If Contador > 0 Then
                 filtro = filtro & ", " & s
diff --git a/Compras/RepComprasAFDetalle.aspx b/Compras/RepComprasAFDetalle.aspx
index fc94f34da..b4d4f8667 100644
--- a/Compras/RepComprasAFDetalle.aspx
+++ b/Compras/RepComprasAFDetalle.aspx
@@ -190,6 +190,14 @@
                             </asp:DropDownList>
                         </div> 
 
+
+                         <div class="col-md-1">Clasificación 2:</div>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlClasificacion2" runat="server" CssClass=" form-control input-sm select2me" AppendDataBoundItems="true" AutoPostBack="true" DataTextField="Clasificacion" DataValueField="CveClasificacion" Width="95%">
+                                <asp:ListItem Selected="True" Text="Todas" Value="-1"></asp:ListItem>
+                            </asp:DropDownList>
+                        </div> 
+
                         <div class="col-md-1">Producto Servicio:</div>
                         <div class="col-md-2">
                            <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width: 100%;" CssClassDdl="select2me" DataTextField="PSCodigo" DataValueField="CvePS" Width="95%" />
@@ -218,12 +226,23 @@
                         </ItemTemplate>
                     </asp:TemplateField>
 
+
+                    <asp:TemplateField>
+                        <HeaderTemplate>
+                           SubProyecto
+                        </HeaderTemplate>
+                        <ItemTemplate>                            
+                            <asp:Label  ID="LblSubProyecto"  CssClass="ML Truncate"  runat="server" Text='<%#    Eval("SubProyecto")    %>'></asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
                      <asp:TemplateField>
                         <HeaderTemplate>
                             ActivoFijo
                         </HeaderTemplate>
                         <ItemTemplate>                           
-                            <asp:Label  ID="LblActivoFijo"  CssClass="ML Truncate"  runat="server" Text='<%#    Eval("Descripcion")    %>'></asp:Label>
+                            <%--<asp:Label  ID="LblActivoFijo"  CssClass="ML Truncate"  runat="server" Text='<%#    Eval("Descripcion")    %>'></asp:Label>--%>
+                            <asp:Label  ID="LblActivoFijo"  CssClass="ML Truncate"  runat="server" Text='<%#    Eval("CodigoAF")    %>'></asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
 
@@ -245,6 +264,37 @@
                         </ItemTemplate>
                     </asp:TemplateField>
 
+
+                      <asp:TemplateField>
+                        <HeaderTemplate>
+                            Responsable
+                        </HeaderTemplate>
+                        <ItemTemplate>                           
+                            <asp:Label  ID="LblResponsable"   runat="server"  CssClass="ML Truncate"  Text='<%#   Eval("NombreCompleto")    %>'></asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+                    <asp:TemplateField>
+                        <HeaderTemplate>
+                            Horometro/Odometro
+                        </HeaderTemplate>
+                        <ItemTemplate>                           
+                            <asp:Label  ID="LblHorometroOdometro"   runat="server"  CssClass="ML Truncate"  Text='<%#   Eval("AFMedida")    %>'></asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+
+                    <asp:TemplateField>
+                        <HeaderTemplate>
+                           Tipo Mantenimiento
+                        </HeaderTemplate>
+                        <ItemTemplate>                           
+                            <asp:Label  ID="LblAFTipoMantenimientoStr"   runat="server"  CssClass="ML Truncate"  Text='<%#   Eval("AFTipoMantenimientoStr")    %>'></asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+
+                    
+
                     <asp:TemplateField  ItemStyle-HorizontalAlign="Left">
                         <HeaderTemplate>
                            Unidad de Medida
diff --git a/Compras/RepComprasAFDetalle.aspx.vb b/Compras/RepComprasAFDetalle.aspx.vb
index e8de3702b..d903d5b4d 100644
--- a/Compras/RepComprasAFDetalle.aspx.vb
+++ b/Compras/RepComprasAFDetalle.aspx.vb
@@ -106,6 +106,7 @@ Partial Class Compras_RepComprasAFDetalle
                 DdlSubProyecto.SelectedValueExist(Request.QueryString("CveSubProyecto").ToString)
                 DdlProveedores.SelectedValueExist(Request.QueryString("CveProveedor").ToString)
                 DdlClasificacion.SelectedValueExist(Request.QueryString("CveClasificacion").ToString)
+                DdlClasificacion2.SelectedValueExist(Request.QueryString("CveClasificacion2").ToString)
 
                 If Request.QueryString("CvePS").ToString.Length > 0 Then
                     DdlPS.txtText.Value = Request.QueryString("PS").ToString
@@ -162,7 +163,7 @@ Partial Class Compras_RepComprasAFDetalle
             End If
 
             If UsuarioActual.CveEmpresa = 72 Then
-                GvDatos.Columns(2).Visible = True
+                GvDatos.Columns(3).Visible = True
             End If
 
         End If
@@ -185,6 +186,10 @@ Partial Class Compras_RepComprasAFDetalle
         DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
         DdlClasificacion.DataBind()
 
+        DdlClasificacion2.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
+        DdlClasificacion2.DataBind()
+        DdlClasificacion2.Items.Insert(0, New ListItem("Sin Clasificación", "-2"))
+
         DdlActivoFijo.DataSource = GlobalDTActivoFijos(UsuarioActual.CveEmpresa)
         DdlActivoFijo.DataBind()
         DdlActivoFijo.Items.Insert(0, New ListItem("Seleccione", "-1"))
@@ -276,7 +281,7 @@ Partial Class Compras_RepComprasAFDetalle
         If ObjCompras.GetRepComprasAFDetalle(FechaI, FechaF, DdlProveedores.SelectedValue.ToEntero, DdlMonedas.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, -1,
                                       DdlProyecto.SelectedValue.ToEntero, DdlSubProyecto.SelectedValue.ToEntero, RblTipoCambio.SelectedValue.ToEntero, TCEspecifico,
                                       DdlClasificacion.SelectedValue.ToEntero, DdlActivoFijo.SelectedValue.ToEntero, DdlTipoActivoFijo.SelectedValue.ToEntero, DdlSubTipoActivoFijo.SelectedValue.ToEntero,
-                                      CvePS, Anio.ToEntero, Mes.ToEntero, AnioMes, CveUsuarioConsulta:=UsuarioActual.CveUsuario) Then
+                                      CvePS, Anio.ToEntero, Mes.ToEntero, AnioMes, CveUsuarioConsulta:=UsuarioActual.CveUsuario, CveClasificacion2:=DdlClasificacion2.SelectedValue.ToEntero) Then
             DTDatos = ObjCompras.DtResultados
 
             GvDatos.DataSource = ObjCompras.DtResultados
@@ -434,6 +439,11 @@ Partial Class Compras_RepComprasAFDetalle
             ListaFiltros.Add("<b>Clasificación:</b> " & DdlClasificacion.SelectedItem.Text)
         End If
 
+
+        If DdlClasificacion2.SelectedIndex > 0 Then
+            ListaFiltros.Add("<b>Clasificación 2:</b> " & DdlClasificacion2.SelectedItem.Text)
+        End If
+
         For Each s As String In ListaFiltros
 
             If Contador > 0 Then
diff --git a/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb b/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb
index 3e4e49632..a4fcaef1c 100644
--- a/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogoAnual.aspx.vb
@@ -343,7 +343,15 @@ Partial Class Contabilidad2_RepAnexoCatalogoAnual
             SubProyecto = DdlSubProyecto.SelectedItem.Text
         End If
 
-        GvAnual.ExportToExcelGembox("AnexoCatálogoAnual", UsuarioActual, $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio2.SelectedValue}", "Anexo del Catálogo - Anual", SubProyecto, DdlDivisor.SelectedValue.ToEntero, DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}")
+        Dim SbFiltros As New StringBuilder()
+        SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio2.SelectedValue}")
+        SbFiltros.AppendFormat("SubProyecto: {0}|", SubProyecto)
+        SbFiltros.AppendFormat("Divisor : {0}|", DdlDivisor.SelectedItem.Text)
+
+
+
+        GvAnual.ExportToExcelGembox("AnexoCatálogoAnual", UsuarioActual, "Anexo del Catálogo - Anual", DatoTituloExtra:=$"Periodo{DdlPeriodo.SelectedItem.Text}", DatosFiltros:=SbFiltros.ToString())
+        'GvAnual.ExportToExcelGembox("AnexoCatálogoAnual", UsuarioActual, $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio2.SelectedValue}", "Anexo del Catálogo - Anual", SubProyecto, DdlDivisor.SelectedValue.ToEntero, DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}")
 
     End Sub
 
diff --git a/Contabilidad2/RepAnexoCatalogoCC.aspx.vb b/Contabilidad2/RepAnexoCatalogoCC.aspx.vb
index dbeabfa41..55871e9f4 100644
--- a/Contabilidad2/RepAnexoCatalogoCC.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogoCC.aspx.vb
@@ -339,7 +339,15 @@ Partial Class Contabilidad2_RepAnexoCatalogoCC
             SubProyecto = DdlSubProyecto.SelectedItem.Text
         End If
 
-        GvCC.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}", $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", SubProyecto, DdlDivisor.SelectedValue.ToEntero, DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}")
+
+        Dim SbFiltros As New StringBuilder()
+        SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}")
+        SbFiltros.AppendFormat("Estado de Resultados Horizontal por : {0}|", SubProyecto)
+        SbFiltros.AppendFormat("Divisor : {0}|", DdlDivisor.SelectedItem.Text)
+
+
+        GvCC.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}", DatosFiltros:=SbFiltros.ToString())
+        'GvCC.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}", $"Estado de Resultados Horizontal por {LblSubProyecto.Text}", SubProyecto, DdlDivisor.SelectedValue.ToEntero, DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}")
 
     End Sub
 
diff --git a/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb b/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb
index eccd5ea9b..ed9732f15 100644
--- a/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb
+++ b/Contabilidad2/RepAnexoCatalogoMensual.aspx.vb
@@ -334,7 +334,13 @@ Partial Class Contabilidad2_RepAnexoCatalogoMensual
             SubProyecto = DdlSubProyecto.SelectedItem.Text
         End If
 
-        GvMensual2.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}", "Anexo del Catálogo - Mensual", SubProyecto, DdlDivisor.SelectedValue.ToEntero, DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}")
+        Dim SbFiltros As New StringBuilder()
+        SbFiltros.AppendFormat("Fecha Inicio: {0} Fecha Fin: {1}|", $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}")
+        SbFiltros.AppendFormat("Divisor : {0}|", DdlDivisor.SelectedItem.Text)
+
+        GvMensual2.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, "Anexo del Catálogo - Mensual", DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}", DatosFiltros:=SbFiltros.ToString())
+        'GvMensual2.ExportToExcelGembox("AnexoCatálogoMensual", UsuarioActual, $"01/01/{DdlEjercicio.SelectedValue}", $"31/12/{DdlEjercicio.SelectedValue}", "Anexo del Catálogo - Mensual", SubProyecto, DdlDivisor.SelectedValue.ToEntero, DatoTituloExtra:=$"Periodo {DdlPeriodo.SelectedItem.Text}")
+
 
     End Sub
 
diff --git a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
index c64ce9ebd..54b24800a 100644
--- a/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
+++ b/Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc
@@ -584,22 +584,73 @@
         <TablixBody>
           <TablixColumns>
             <TablixColumn>
-              <Width>3.00921cm</Width>
+              <Width>2.03633cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>4.47377cm</Width>
+              <Width>2.54796cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>2.95726cm</Width>
+              <Width>4.20919cm</Width>
             </TablixColumn>
             <TablixColumn>
-              <Width>6.97146cm</Width>
+              <Width>2.24876cm</Width>
+            </TablixColumn>
+            <TablixColumn>
+              <Width>6.34152cm</Width>
             </TablixColumn>
           </TablixColumns>
           <TablixRows>
             <TablixRow>
               <Height>0.6cm</Height>
               <TablixCells>
+                <TablixCell>
+                  <CellContents>
+                    <Textbox Name="TipoUbicacion">
+                      <CanGrow>true</CanGrow>
+                      <KeepTogether>true</KeepTogether>
+                      <Paragraphs>
+                        <Paragraph>
+                          <TextRuns>
+                            <TextRun>
+                              <Value>=Fields!TipoUbicacion.Value</Value>
+                              <Style>
+                                <FontFamily>Myriad Pro</FontFamily>
+                                <FontSize>8pt</FontSize>
+                              </Style>
+                            </TextRun>
+                          </TextRuns>
+                          <Style>
+                            <TextAlign>Center</TextAlign>
+                          </Style>
+                        </Paragraph>
+                      </Paragraphs>
+                      <rd:DefaultName>TipoUbicacion</rd:DefaultName>
+                      <Style>
+                        <Border>
+                          <Color>#4f81bd</Color>
+                          <Style>Solid</Style>
+                          <Width>2pt</Width>
+                        </Border>
+                        <TopBorder>
+                          <Style>None</Style>
+                        </TopBorder>
+                        <BottomBorder>
+                          <Width>1pt</Width>
+                        </BottomBorder>
+                        <LeftBorder>
+                          <Style>None</Style>
+                        </LeftBorder>
+                        <RightBorder>
+                          <Style>None</Style>
+                        </RightBorder>
+                        <PaddingLeft>2pt</PaddingLeft>
+                        <PaddingRight>2pt</PaddingRight>
+                        <PaddingTop>2pt</PaddingTop>
+                        <PaddingBottom>2pt</PaddingBottom>
+                      </Style>
+                    </Textbox>
+                  </CellContents>
+                </TablixCell>
                 <TablixCell>
                   <CellContents>
                     <Textbox Name="UM3">
@@ -779,6 +830,46 @@
         </TablixBody>
         <TablixColumnHierarchy>
           <TablixMembers>
+            <TablixMember>
+              <TablixHeader>
+                <Size>0.52062cm</Size>
+                <CellContents>
+                  <Textbox Name="Textbox28">
+                    <CanGrow>true</CanGrow>
+                    <KeepTogether>true</KeepTogether>
+                    <Paragraphs>
+                      <Paragraph>
+                        <TextRuns>
+                          <TextRun>
+                            <Value>Tipo Ubicación</Value>
+                            <Style>
+                              <FontFamily>Myriad Pro</FontFamily>
+                              <FontSize>8pt</FontSize>
+                              <Color>White</Color>
+                            </Style>
+                          </TextRun>
+                        </TextRuns>
+                        <Style>
+                          <TextAlign>Center</TextAlign>
+                        </Style>
+                      </Paragraph>
+                    </Paragraphs>
+                    <rd:DefaultName>Textbox28</rd:DefaultName>
+                    <Style>
+                      <Border>
+                        <Color>#4f81bd</Color>
+                        <Style>Solid</Style>
+                      </Border>
+                      <BackgroundColor>#4f81bd</BackgroundColor>
+                      <PaddingLeft>2pt</PaddingLeft>
+                      <PaddingRight>2pt</PaddingRight>
+                      <PaddingTop>2pt</PaddingTop>
+                      <PaddingBottom>2pt</PaddingBottom>
+                    </Style>
+                  </Textbox>
+                </CellContents>
+              </TablixHeader>
+            </TablixMember>
             <TablixMember>
               <TablixHeader>
                 <Size>0.52062cm</Size>
@@ -1004,7 +1095,7 @@
         <Top>8.2018cm</Top>
         <Left>0.42363cm</Left>
         <Height>1.12062cm</Height>
-        <Width>19.10097cm</Width>
+        <Width>19.07303cm</Width>
         <ZIndex>3</ZIndex>
         <Style>
           <Border>
@@ -2850,7 +2941,7 @@
     <Height>7.34222in</Height>
     <Style />
   </Body>
-  <Width>7.82749in</Width>
+  <Width>7.82545in</Width>
   <Page>
     <PageHeader>
       <Height>3.02245cm</Height>
@@ -3401,6 +3492,10 @@
           <DataField>Direccion</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
+        <Field Name="TipoUbicacion">
+          <DataField>TipoUbicacion</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
       </Fields>
     </DataSet>
     <DataSet Name="DataSet3">
diff --git a/Empresas/Grales/Formatos/RepComprasAFDetalle.rdlc b/Empresas/Grales/Formatos/RepComprasAFDetalle.rdlc
index 934e16964..c94cb5d73 100644
--- a/Empresas/Grales/Formatos/RepComprasAFDetalle.rdlc
+++ b/Empresas/Grales/Formatos/RepComprasAFDetalle.rdlc
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="utf-8"?>
-<Report xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition" xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner">
+<Report xmlns:rd="http://schemas.microsoft.com/SQLServer/reporting/reportdesigner" xmlns:cl="http://schemas.microsoft.com/sqlserver/reporting/2010/01/componentdefinition" xmlns="http://schemas.microsoft.com/sqlserver/reporting/2010/01/reportdefinition">
   <AutoRefresh>0</AutoRefresh>
   <DataSources>
     <DataSource Name="DataSet">
@@ -45,6 +45,26 @@
           <DataField>Total</DataField>
           <rd:TypeName>System.String</rd:TypeName>
         </Field>
+        <Field Name="CodigoAF">
+          <DataField>CodigoAF</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="SubProyecto">
+          <DataField>SubProyecto</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="NombreCompleto">
+          <DataField>NombreCompleto</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
+        <Field Name="AFMedida">
+          <DataField>AFMedida</DataField>
+          <rd:TypeName>System.Numeric</rd:TypeName>
+        </Field>
+        <Field Name="AFTipoMantenimientoStr">
+          <DataField>AFTipoMantenimientoStr</DataField>
+          <rd:TypeName>System.String</rd:TypeName>
+        </Field>
         <Field Name="Orden">
           <DataField>Orden</DataField>
           <rd:TypeName>System.String</rd:TypeName>
@@ -85,7 +105,7 @@
             <Top>0.0441cm</Top>
             <Left>0.09525cm</Left>
             <Height>0.63675cm</Height>
-            <Width>25.79479cm</Width>
+            <Width>26.76762cm</Width>
             <Style>
               <Border>
                 <Style>None</Style>
@@ -100,7 +120,7 @@
             <Top>0.84237cm</Top>
             <Left>0.09525cm</Left>
             <Height>0cm</Height>
-            <Width>25.79479cm</Width>
+            <Width>26.76762cm</Width>
             <ZIndex>1</ZIndex>
             <Style>
               <Border>
@@ -111,26 +131,35 @@
           <Tablix Name="Tablix1">
             <TablixBody>
               <TablixColumns>
+                <TablixColumn>
+                  <Width>1.88881cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>2.69134cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>5.54514cm</Width>
+                </TablixColumn>
+                <TablixColumn>
+                  <Width>6.16934cm</Width>
+                </TablixColumn>
                 <TablixColumn>
                   <Width>2.5cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>7.28398cm</Width>
+                  <Width>2.02988cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>8.01688cm</Width>
+                  <Width>1.22736cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>2.10789cm</Width>
+                  <Width>1.36229cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>1.99729cm</Width>
+                  <Width>1.77949cm</Width>
                 </TablixColumn>
                 <TablixColumn>
-                  <Width>1.67979cm</Width>
-                </TablixColumn>
-                <TablixColumn>
-                  <Width>2.20896cm</Width>
+                  <Width>1.57396cm</Width>
                 </TablixColumn>
               </TablixColumns>
               <TablixRows>
@@ -147,7 +176,10 @@
                               <TextRuns>
                                 <TextRun>
                                   <Value>Serie Folio</Value>
-                                  <Style />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
                                 </TextRun>
                               </TextRuns>
                               <Style />
@@ -168,6 +200,40 @@
                         </Textbox>
                       </CellContents>
                     </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox14">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Sub Proyecto</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox14</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Color>LightGrey</Color>
+                              <Style>Solid</Style>
+                            </Border>
+                            <BackgroundColor>LightGrey</BackgroundColor>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox6">
@@ -178,7 +244,10 @@
                               <TextRuns>
                                 <TextRun>
                                   <Value>Descripcion</Value>
-                                  <Style />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
                                 </TextRun>
                               </TextRuns>
                               <Style />
@@ -209,7 +278,10 @@
                               <TextRuns>
                                 <TextRun>
                                   <Value>Producto</Value>
-                                  <Style />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
                                 </TextRun>
                               </TextRuns>
                               <Style />
@@ -230,6 +302,86 @@
                         </Textbox>
                       </CellContents>
                     </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox16">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Responsable</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox16</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Color>LightGrey</Color>
+                              <Style>Solid</Style>
+                            </Border>
+                            <BackgroundColor>LightGrey</BackgroundColor>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="Textbox18">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Horometro/</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>Odometro</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>Textbox18</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Color>LightGrey</Color>
+                              <Style>Solid</Style>
+                            </Border>
+                            <BackgroundColor>LightGrey</BackgroundColor>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Textbox5">
@@ -239,8 +391,11 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>Unidad M.</Value>
-                                  <Style />
+                                  <Value>U.M.</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
                                 </TextRun>
                               </TextRuns>
                               <Style />
@@ -271,7 +426,10 @@
                               <TextRuns>
                                 <TextRun>
                                   <Value>Cantidad</Value>
-                                  <Style />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
                                 </TextRun>
                               </TextRuns>
                               <Style />
@@ -302,7 +460,10 @@
                               <TextRuns>
                                 <TextRun>
                                   <Value>PU</Value>
-                                  <Style />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
                                 </TextRun>
                               </TextRuns>
                               <Style />
@@ -333,7 +494,10 @@
                               <TextRuns>
                                 <TextRun>
                                   <Value>Total</Value>
-                                  <Style />
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                    <FontWeight>Bold</FontWeight>
+                                  </Style>
                                 </TextRun>
                               </TextRuns>
                               <Style />
@@ -392,6 +556,39 @@
                         </Textbox>
                       </CellContents>
                     </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="SubProyecto">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!SubProyecto.Value</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>SubProyecto</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Color>=IIF(Fields!Orden.Value.ToString = "0","Silver","White")</Color>
+                              <Style>Solid</Style>
+                            </Border>
+                            <BackgroundColor>=IIF(Fields!Orden.Value.ToString = "0","Silver","White")</BackgroundColor>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="Descripcion">
@@ -400,7 +597,7 @@
                             <Paragraph>
                               <TextRuns>
                                 <TextRun>
-                                  <Value>=Fields!Descripcion.Value</Value>
+                                  <Value>=Fields!CodigoAF.Value</Value>
                                   <Style>
                                     <FontSize>8pt</FontSize>
                                   </Style>
@@ -456,6 +653,72 @@
                         </Textbox>
                       </CellContents>
                     </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="NombreCompleto">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!NombreCompleto.Value</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>NombreCompleto</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Color>=IIF(Fields!Orden.Value.ToString = "0","Silver","White")</Color>
+                              <Style>Solid</Style>
+                            </Border>
+                            <BackgroundColor>=IIF(Fields!Orden.Value.ToString = "0","Silver","White")</BackgroundColor>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
+                    <TablixCell>
+                      <CellContents>
+                        <Textbox Name="AFMedida">
+                          <CanGrow>true</CanGrow>
+                          <KeepTogether>true</KeepTogether>
+                          <Paragraphs>
+                            <Paragraph>
+                              <TextRuns>
+                                <TextRun>
+                                  <Value>=Fields!AFMedida.Value</Value>
+                                  <Style>
+                                    <FontSize>8pt</FontSize>
+                                  </Style>
+                                </TextRun>
+                              </TextRuns>
+                              <Style />
+                            </Paragraph>
+                          </Paragraphs>
+                          <rd:DefaultName>AFMedida</rd:DefaultName>
+                          <Style>
+                            <Border>
+                              <Color>=IIF(Fields!Orden.Value.ToString = "0","Silver","White")</Color>
+                              <Style>Solid</Style>
+                            </Border>
+                            <BackgroundColor>=IIF(Fields!Orden.Value.ToString = "0","Silver","White")</BackgroundColor>
+                            <PaddingLeft>2pt</PaddingLeft>
+                            <PaddingRight>2pt</PaddingRight>
+                            <PaddingTop>2pt</PaddingTop>
+                            <PaddingBottom>2pt</PaddingBottom>
+                          </Style>
+                        </Textbox>
+                      </CellContents>
+                    </TablixCell>
                     <TablixCell>
                       <CellContents>
                         <Textbox Name="UnidadMedida">
@@ -610,6 +873,9 @@
                 <TablixMember />
                 <TablixMember />
                 <TablixMember />
+                <TablixMember />
+                <TablixMember />
+                <TablixMember />
               </TablixMembers>
             </TablixColumnHierarchy>
             <TablixRowHierarchy>
@@ -626,7 +892,7 @@
             <Top>0.9482cm</Top>
             <Left>0.09525cm</Left>
             <Height>1.06771cm</Height>
-            <Width>25.79479cm</Width>
+            <Width>26.76762cm</Width>
             <ZIndex>2</ZIndex>
             <Style>
               <Border>
@@ -638,7 +904,7 @@
         <Height>0.94992in</Height>
         <Style />
       </Body>
-      <Width>10.30126in</Width>
+      <Width>10.57593in</Width>
       <Page>
         <PageHeader>
           <Height>2.25008cm</Height>
@@ -667,7 +933,7 @@
               <Top>0.18521cm</Top>
               <Left>0.09525cm</Left>
               <Height>0.6cm</Height>
-              <Width>25.79479cm</Width>
+              <Width>26.76762cm</Width>
               <Style>
                 <Border>
                   <Style>None</Style>
@@ -722,7 +988,7 @@
               <Top>1.10271cm</Top>
               <Left>0.09525cm</Left>
               <Height>0.52945cm</Height>
-              <Width>25.79479cm</Width>
+              <Width>26.76762cm</Width>
               <ZIndex>1</ZIndex>
               <Style>
                 <Border>
diff --git a/RH/RepCursos.aspx.vb b/RH/RepCursos.aspx.vb
index 8a78e8e49..1ee537f4c 100644
--- a/RH/RepCursos.aspx.vb
+++ b/RH/RepCursos.aspx.vb
@@ -86,7 +86,7 @@ Partial Class RH_RepCursos
     End Sub
 
     Protected Sub LnkExportar_Click(sender As Object, e As EventArgs) Handles LnkExportar.Click
-        Gv.ExportToExcelGembox("ReporteCapacitacion", UsuarioActual, "", "", "Report eCapacitación", "", 1)
+        Gv.ExportToExcelGembox("ReporteCapacitacion", UsuarioActual, "", "", "Report eCapacitación")
     End Sub
 
     Protected Sub Gv_RowDataBound(sender As Object, e As GridViewRowEventArgs)