-

2021-12-11 16:57:19 -07:00
parent 1e02a1874d 90d3d47d0b
commit b07a1d8e5c
14 changed files with 528 additions and 52 deletions
--- 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
--- 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)
--- 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)
--- 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)
--- 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>
--- 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
--- 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
--- 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
--- 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

--- 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

--- 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

--- 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">
--- 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>
--- 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)