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/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..a16109925 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%" />
diff --git a/Compras/RepComprasAFDetalle.aspx.vb b/Compras/RepComprasAFDetalle.aspx.vb
index e8de3702b..3da3a329f 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