diff --git a/Ventas/RepVentasUtilidad.aspx b/Ventas/RepVentasUtilidad.aspx
index 1f1d3c39f..6c1579866 100644
--- a/Ventas/RepVentasUtilidad.aspx
+++ b/Ventas/RepVentasUtilidad.aspx
@@ -201,6 +201,12 @@
                          <div class="col-md-2">
                             <asp:Dropdownlist runat="server" ID="DdlMarcas" CssStyle="width: 100%;"  CssClass="form-control  input-small input-sm select2me" Width="100%" DataTextField="Marca" DataValueField="CveMarca" />
                         </div>
+                         <div class="col-md-1 truncate">
+                             Proveedor:
+                         </div>
+                         <div class="col-md-2">
+                             <ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
+                         </div>
                     </div>
                 </div>
             </div>
@@ -256,15 +262,15 @@
 
             <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron Ventas Utilidad con los filtros especificados"  CssClass="table  table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None">
                 <Columns>
-                    <asp:HyperLinkField  ItemStyle-HorizontalAlign="Center" HeaderText="Serie Folio"   DataTextField="SerieFolio" DataTextFormatString="{0}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
-                    <asp:HyperLinkField  ItemStyle-HorizontalAlign="Center" HeaderText="Fecha"   DataTextField="FechaVenta" DataTextFormatString="{0:d}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
-                    <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" HeaderText="SubTotal"   DataTextField="SubTotal" DataTextFormatString="{0:N}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
-                    <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" HeaderText="Descuento"   DataTextField="Descuento" DataTextFormatString="{0:N}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
-                    <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" HeaderText="Bonificacion"   DataTextField="Bonificacion" DataTextFormatString="{0:N}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
-                    <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" HeaderText="SubTotal2"   DataTextField="SubTotal2" DataTextFormatString="{0:N}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
+                    <asp:HyperLinkField  ItemStyle-HorizontalAlign="Center" HeaderText="Serie Folio"   DataTextField="SerieFolio" DataTextFormatString="{0}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion,CveMarca,CveProveedorCompra" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveProveedorCompra={10}"/>
+                    <asp:HyperLinkField  ItemStyle-HorizontalAlign="Center" HeaderText="Fecha"   DataTextField="FechaVenta" DataTextFormatString="{0:d}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion,CveMarca,CveProveedorCompra" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveProveedorCompra={10}"/>
+                    <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" HeaderText="SubTotal"   DataTextField="SubTotal" DataTextFormatString="{0:N}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion,CveMarca,CveProveedorCompra" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveProveedorCompra={10}"/>
+                    <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" HeaderText="Descuento"   DataTextField="Descuento" DataTextFormatString="{0:N}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion,CveMarca,CveProveedorCompra" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveProveedorCompra={10}"/>
+                    <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" HeaderText="Bonificacion"   DataTextField="Bonificacion" DataTextFormatString="{0:N}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion,CveMarca,CveProveedorCompra" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveProveedorCompra={10}"/>
+                    <asp:HyperLinkField  ItemStyle-HorizontalAlign="Right" HeaderText="SubTotal2"   DataTextField="SubTotal2" DataTextFormatString="{0:N}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion,CveMarca,CveProveedorCompra" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveProveedorCompra={10}"/>
                     <asp:HyperLinkField Text="Ir" DataNavigateUrlFields="CveVenta" ItemStyle-Width="2.5%" ItemStyle-HorizontalAlign="Center" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" />
-                     <asp:HyperLinkField  ItemStyle-HorizontalAlign="Center" HeaderText="Folio"  ItemStyle-CssClass="Texto"  DataTextField="FolioMovto" DataTextFormatString="{0}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
-                     <asp:HyperLinkField  ItemStyle-HorizontalAlign="Center" HeaderText="Fecha"   DataTextField="FechaMovto" DataTextFormatString="{0:d}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}"/>
+                     <asp:HyperLinkField  ItemStyle-HorizontalAlign="Center" HeaderText="Folio"  ItemStyle-CssClass="Texto"  DataTextField="FolioMovto" DataTextFormatString="{0}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion,CveMarca,CveProveedorCompra" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveProveedorCompra={10}"/>
+                     <asp:HyperLinkField  ItemStyle-HorizontalAlign="Center" HeaderText="Fecha"   DataTextField="FechaMovto" DataTextFormatString="{0:d}" DataNavigateUrlFields="CveVenta,CveVendedor,FechaI,FechaF,CveCliente,Orden,CveSubProyecto,CvePS,CveClasificacion,CveMarca,CveProveedorCompra" DataNavigateUrlFormatString="RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveProveedorCompra={10}"/>
                     <asp:TemplateField HeaderText="Costo" ItemStyle-HorizontalAlign="Right" ItemStyle-Width="10%">
                         <ItemTemplate>
                             <asp:HyperLink ID="HLCosto" runat="server" Text='<%# If(Eval("Costo").ToString() = "0", "-", Eval("Costo", "{0:#,##0.00}")) %>'> </asp:HyperLink>
diff --git a/Ventas/RepVentasUtilidad.aspx.vb b/Ventas/RepVentasUtilidad.aspx.vb
index 687557038..220472136 100644
--- a/Ventas/RepVentasUtilidad.aspx.vb
+++ b/Ventas/RepVentasUtilidad.aspx.vb
@@ -73,6 +73,11 @@ Partial Class Ventas_RepVentasUtilidad
         'Carga Productos
         DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
 
+        DdlProveedores.setEsWebService(True)
+        DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedores.SelectedText = "Todos"
+        DdlProveedores.SelectedValue = "-1"
+
         If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then
             DdlPS.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacion.SelectedValue)
             DdlPS.SelectedText = "Todos"
@@ -99,6 +104,7 @@ Partial Class Ventas_RepVentasUtilidad
         Dim CveCategoria As String = If(Request("CveCategoria") IsNot Nothing AndAlso Request("CveCategoria") <> "", Request("CveCategoria"), "-1").ToString
         Dim CvePS As String = If(Request("CvePS") IsNot Nothing AndAlso Request("CvePS") <> "", Request("CvePS"), "-1").ToString
         Dim CveMarca As String = If(Request("CveMarca") IsNot Nothing AndAlso Request("CveMarca") <> "", Request("CveMarca"), "-1").ToString
+        Dim CveProveedorCompra As Integer = If(Request("CveProveedorCompra") IsNot Nothing AndAlso Request("CveProveedorCompra") <> "", Request("CveProveedorCompra"), "-1").ToString.ToEntero
 
         DdlSubProyecto.SelectedValuesIfExistM(CveSubProyecto)
         DdlVendedor.SelectedValuesIfExistM(CveVendedor)
@@ -117,6 +123,11 @@ Partial Class Ventas_RepVentasUtilidad
 
         DdlMarcas.SelectedValueExist(CveMarca)
 
+        If CveProveedorCompra > 0 Then
+            DdlProveedores.SelectedValue = CveProveedorCompra.ToString
+            DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedorCompra).FiltroPrimeroValor("RazonSocial", "").ToString
+        End If
+
         txtFechaI.Text = FechaI
         txtFechaF.Text = FechaF
 
@@ -164,7 +175,7 @@ Partial Class Ventas_RepVentasUtilidad
         Dim Sucursales As String = IIf(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM).ToString
         Dim Vendedores As String = IIf(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM).ToString
 
-        If ObjVentas.GetReporteVentasUtilidad(Vendedores, DdlClientes.SelectedValue.ToEntero, Sucursales, FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1) Then
+        If ObjVentas.GetReporteVentasUtilidad(Vendedores, DdlClientes.SelectedValue.ToEntero, Sucursales, FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1, DdlProveedores.SelectedValue.ToEntero) Then
             DtVentas = ObjVentas.DtResultados
             GvDatos.DataSource = ObjVentas.DtResultados
             GvDatos.DataBind()
@@ -244,9 +255,8 @@ Partial Class Ventas_RepVentasUtilidad
                 e.Row.Cells(15).ToolTip = "Factura sin pago registrado"
             End If
 
-
-            Dim Liga As String = String.Format("/Ventas/RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}",
-                                            e.Row.DBCampo("CveVenta"), e.Row.DBCampo("CveVendedor"), e.Row.DBCampo("FechaI").ToDate, e.Row.DBCampo("FechaF").ToDate, e.Row.DBCampo("CveCliente"), e.Row.DBCampo("Orden"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveClasificacion"))
+            Dim Liga As String = String.Format("/Ventas/RepVentasUtilidadDetalle.aspx?CveVenta={0}&CveVendedor={1}&FechaI={2:d}&FechaF={3:d}&CveCliente={4}&Orden={5}&CveSubProyecto={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveProveedorCompra={10}",
+                                            e.Row.DBCampo("CveVenta"), e.Row.DBCampo("CveVendedor"), e.Row.DBCampo("FechaI").ToDate, e.Row.DBCampo("FechaF").ToDate, e.Row.DBCampo("CveCliente"), e.Row.DBCampo("Orden"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveClasificacion"), -1, e.Row.DBCampo("CveProveedorCompra"))
             e.Row.FCHyperLink("HLCosto").NavigateUrl = Liga
             e.Row.FCHyperLink("HlGanancia").NavigateUrl = Liga
             e.Row.FCHyperLink("HlPorGanancia").NavigateUrl = Liga
@@ -316,7 +326,7 @@ Partial Class Ventas_RepVentasUtilidad
         Dim Sucursales As String = IIf(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM).ToString
         Dim Vendedores As String = IIf(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM).ToString
 
-        If ObjVentas.GetReporteVentasUtilidad(Vendedores, DdlClientes.SelectedValue.ToEntero, Sucursales, FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1) Then
+        If ObjVentas.GetReporteVentasUtilidad(Vendedores, DdlClientes.SelectedValue.ToEntero, Sucursales, FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1, DdlProveedores.SelectedValue.ToEntero) Then
 
             Dim FechaInicio As String = txtFechaI.Text
             Dim FechaFin As String = txtFechaF.Text
diff --git a/Ventas/RepVentasUtilidadDetalle.aspx b/Ventas/RepVentasUtilidadDetalle.aspx
index dc2597cf4..0c916ed82 100644
--- a/Ventas/RepVentasUtilidadDetalle.aspx
+++ b/Ventas/RepVentasUtilidadDetalle.aspx
@@ -216,7 +216,12 @@
                          <div class="col-md-2">
                             <asp:Dropdownlist runat="server" ID="DdlMarcas" CssStyle="width: 100%;"  CssClass="form-control  input-small input-sm select2me" Width="100%" DataTextField="Marca" DataValueField="CveMarca" />
                         </div>
-
+                        <div class="col-md-1 truncate">
+                            Proveedor:
+                        </div>
+                        <div class="col-md-2">
+                            <ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
+                        </div>
                     </div>
                 </div>
             </div>
diff --git a/Ventas/RepVentasUtilidadDetalle.aspx.vb b/Ventas/RepVentasUtilidadDetalle.aspx.vb
index dda14fbed..82d5ab49d 100644
--- a/Ventas/RepVentasUtilidadDetalle.aspx.vb
+++ b/Ventas/RepVentasUtilidadDetalle.aspx.vb
@@ -98,6 +98,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle
             Orden = IfNull(Request("Orden"), "-1").ToString.ToEntero
             CvePS = IfNull(Request("CvePS"), "-1").ToString.ToEntero
             CveClasificacion = IfNull(Request("CveClasificacion"), "-1").ToString.ToEntero
+
             CargaCombos()
 
             CargaDatos()
@@ -122,9 +123,9 @@ Partial Class Ventas_RepVentasUtilidadDetalle
     Private Sub CargaCombos()
 
         'Carga Clientes
-        DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
-        DdlClientes.DataBind()
-        If CveCliente > 0 Then DdlClientes.SelectedValueExist(CveCliente)
+        'DdlClientes.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
+        'DdlClientes.DataBind()
+        'If CveCliente > 0 Then DdlClientes.SelectedValueExist(CveCliente)
 
         'CargaSubProyectos
         DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
@@ -140,6 +141,11 @@ Partial Class Ventas_RepVentasUtilidadDetalle
             DdlVendedor.Enabled = False
         End If
 
+        DdlProveedores.setEsWebService(True)
+        DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedores.SelectedText = "Todos"
+        DdlProveedores.SelectedValue = "-1"
+
         'Carga Productos
         DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
 
@@ -158,14 +164,21 @@ Partial Class Ventas_RepVentasUtilidadDetalle
         DdlMarcas.DataBind()
         DdlMarcas.Items.Insert(0, New ListItem("Todas", "-1"))
 
+        Dim CveProveedorCompra As Integer = If(Request("CveProveedorCompra") IsNot Nothing AndAlso Request("CveProveedorCompra") <> "", Request("CveProveedorCompra"), "-1").ToString.ToEntero
+
+        If CveProveedorCompra > 0 Then
+            DdlProveedores.SelectedValue = CveProveedorCompra.ToString
+            DdlProveedores.SelectedText = GlobalDTCompProveedores(UsuarioActual.CveEmpresa, CveProveedor:=CveProveedorCompra).FiltroPrimeroValor("RazonSocial", "").ToString
+        End If
+
         'Cargo Clasificaciones
         DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa)
         DdlClasificacion.DataBind()
 
         DdlClasificacion.SelectedValueExist(CveClasificacion)
         DdlPS.SelectedValue = CvePS.ToString
-        If CvePS.ToEntero > 0 AndAlso GlobalDTPS(UsuarioActual.CveEmpresa, CvePS.ToEntero).Rows.Count > 0 Then
-            DdlPS.SelectedText = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS.ToEntero).Rows(0)("PSCodigo").ToString
+        If CvePS.ToEntero > 0 AndAlso GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS.ToEntero).Rows.Count > 0 Then
+            DdlPS.SelectedText = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS.ToEntero).Rows(0)("PSCodigo").ToString
         Else
             DdlPS.SelectedText = "Todos"
         End If
@@ -178,7 +191,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle
         Dim Vendedores As String = IIf(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM).ToString
 
         If ObjVentas.GetReporteVentasUtilidadDetalle(Vendedores, If(CveVenta = -1, Orden, CveVenta), DdlClientes.SelectedValue.ToEntero, Sucursales,
-                                                     FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, -1, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1) Then
+                                                     FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, -1, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1, DdlProveedores.SelectedValue.ToEntero) Then
             DtVentas = ObjVentas.DtResultados
             GvDatos.DataSource = ObjVentas.DtResultados
             GvDatos.DataBind()
@@ -299,7 +312,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle
         Dim Sucursales As String = IIf(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM).ToString
         Dim Vendedores As String = IIf(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM).ToString
         If ObjVentas.GetReporteVentasUtilidadDetalle(Vendedores, CveVenta, DdlClientes.SelectedValue.ToEntero, Sucursales,
-                                                     FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, -1, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1) Then
+                                                     FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, -1, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1, DdlProveedores.SelectedValue.ToEntero) Then
 
             Dim FechaInicio As String = txtFechaI.Text
             Dim FechaFin As String = txtFechaF.Text
@@ -357,7 +370,7 @@ Partial Class Ventas_RepVentasUtilidadDetalle
         Dim Sucursales As String = IIf(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM).ToString
         Dim Vendedores As String = IIf(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM).ToString
         If ObjVentas.GetReporteVentasUtilidadDetalle(Vendedores, CveVenta, DdlClientes.SelectedValue.ToEntero, Sucursales,
-                                                     FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, -1, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1) Then
+                                                     FechaI, FechaF, UsuarioActual.CveEmpresa, DdlPS.SelectedValue.ToEntero, -1, DdlClasificacion.SelectedValue.ToEntero, DdlMarcas.SelectedValue.ToEntero, -1, DdlProveedores.SelectedValue.ToEntero) Then
 
             Dim FechaInicio As String = txtFechaI.Text
             Dim FechaFin As String = txtFechaF.Text
diff --git a/Ventas/RepVentasUtilidadPadre.aspx b/Ventas/RepVentasUtilidadPadre.aspx
index f46aebd0c..f73dec580 100644
--- a/Ventas/RepVentasUtilidadPadre.aspx
+++ b/Ventas/RepVentasUtilidadPadre.aspx
@@ -136,6 +136,7 @@
                                     <asp:ListItem Text="Clasificación" Value="8"></asp:ListItem>
                                     <asp:ListItem Text="Categoría" Value="10"></asp:ListItem>
                                     <asp:ListItem Text="Marca" Value="9"></asp:ListItem>
+                                     <asp:ListItem Text="Proveedor" Value="11"></asp:ListItem>
                                 </asp:DropDownList>
                             </div>
                         </div>
@@ -200,6 +201,12 @@
                                 <asp:ListItem Text="No" Value="0"></asp:ListItem>
                                </asp:Dropdownlist>
                         </div>
+                         <div class="col-md-1 truncate">
+                             Proveedor:
+                         </div>
+                         <div class="col-md-2">
+                             <ADS:Dropdownlost ID="DdlProveedores" runat="server" CssStyle="width: 100%;" Width="100%" DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
+                         </div>
                     </div>
                 </div>
             </div>
@@ -243,7 +250,7 @@
                 DataKeyNames=""
                 CssClass="table  table-advance table-hover Widthall ScrollAD" data-sort="true" GridLines="None" Width="100%" OnRowDataBound="GvDatos_RowDataBound">
                 <Columns>
-                    <asp:HyperLinkField ItemStyle-HorizontalAlign="Left" Target="_blank" HeaderText="Grupo" DataTextField="GPO" DataNavigateUrlFields="FechaI,FechaF,CveSubProyecto,CveCliente,CveVendedor,Grupo,GPO,CvePS,CveClasificacion,CveMarca,CveCategoria" DataNavigateUrlFormatString="RepVentasUtilidad.aspx?FechaI={0}&FechaF={1}&CveSubProyecto={2}&CveCliente={3}&CveVendedor={4}&Gpo={5}&CveGpo={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveCategoria={10}" />
+                    <asp:HyperLinkField ItemStyle-HorizontalAlign="Left" Target="_blank" HeaderText="Grupo" DataTextField="GPO" DataNavigateUrlFields="FechaI,FechaF,CveSubProyecto,CveCliente,CveVendedor,Grupo,GPO,CvePS,CveClasificacion,CveMarca,CveCategoria,CveProveedorCompra" DataNavigateUrlFormatString="RepVentasUtilidad.aspx?FechaI={0}&FechaF={1}&CveSubProyecto={2}&CveCliente={3}&CveVendedor={4}&Gpo={5}&CveGpo={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveCategoria={10}&CveProveedorCompra={11}" />
                     <asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="Ventas" DataField="Ventas" DataFormatString="{0:N2}" />
                     <%--<asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="Crédito" DataField="Credito" DataFormatString="{0:N2}" />
                     <asp:BoundField ItemStyle-HorizontalAlign="Right" HeaderText="% Crédito" DataField="PorcentajeCredito"  ItemStyle-Width="30px"  />
diff --git a/Ventas/RepVentasUtilidadPadre.aspx.vb b/Ventas/RepVentasUtilidadPadre.aspx.vb
index 9b41dca55..0ca159b91 100644
--- a/Ventas/RepVentasUtilidadPadre.aspx.vb
+++ b/Ventas/RepVentasUtilidadPadre.aspx.vb
@@ -2,7 +2,6 @@
 Option Strict On
 
 Imports System.Data
-Imports System.Drawing
 Imports Extensiones
 Imports Microsoft.Reporting.WebForms
 Partial Class Ventas_RepVentasUtilidadPadre
@@ -82,6 +81,11 @@ Partial Class Ventas_RepVentasUtilidadPadre
         DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
 
+        DdlProveedores.setEsWebService(True)
+        DdlProveedores.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedores.SelectedText = "Todos"
+        DdlProveedores.SelectedValue = "-1"
+
         'Carga Vendedor
         DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
         DdlVendedor.DataBind()
@@ -161,7 +165,7 @@ Partial Class Ventas_RepVentasUtilidadPadre
         If ObjVentas.GetReportePadreVentasUtilidad(If(DdlVendedor.GetSelectedValuesM = "", "-1", DdlVendedor.GetSelectedValuesM), DdlClientesWS.SelectedValue.ToEntero,
                                                     If(DdlSubProyecto.GetSelectedValuesM = "", "-1", DdlSubProyecto.GetSelectedValuesM), txtFechaI.Text.ToDate, txtFechaF.Text.ToDate,
                                                     UsuarioActual.CveEmpresa, DdlGrupo.SelectedValue.ToEntero, DdlPS.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero, DdlClasificacion.SelectedValue.ToEntero,
-                                                   DdlMarcas.SelectedValue.ToEntero, DdlGarantia.SelectedValue.ToEntero, DdlFilial.SelectedValue.ToEntero) Then
+                                                   DdlMarcas.SelectedValue.ToEntero, DdlGarantia.SelectedValue.ToEntero, DdlFilial.SelectedValue.ToEntero, DdlProveedores.SelectedValue.ToEntero) Then
             GvDatos.DataSource = ObjVentas.DtResultados
             DtDatos = ObjVentas.DtResultados
         End If
@@ -276,9 +280,9 @@ Partial Class Ventas_RepVentasUtilidadPadre
                 e.Row.CssClass = "Totales"
                 e.Row.Cells(0).Text = "Total"
                 Dim Css As String = "Texto"
-                Dim Liga As String = String.Format("/Ventas/RepVentasUtilidad.aspx?FechaI={0}&FechaF={1}&CveSubProyecto={2}&CveCliente={3}&CveVendedor={4}&Gpo={5}&CveGpo={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveCategoria={10}",
+                Dim Liga As String = String.Format("/Ventas/RepVentasUtilidad.aspx?FechaI={0}&FechaF={1}&CveSubProyecto={2}&CveCliente={3}&CveVendedor={4}&Gpo={5}&CveGpo={6}&CvePS={7}&CveClasificacion={8}&CveMarca={9}&CveCategoria={10}&CveProveedorCompra={11}",
                                                    e.Row.DBCampo("FechaI"), e.Row.DBCampo("FechaF"), e.Row.DBCampo("CveSubProyecto"), e.Row.DBCampo("CveCliente"), e.Row.DBCampo("CveVendedor"),
-                                                   e.Row.DBCampo("Grupo"), e.Row.DBCampo("GPO"), e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("CveMarca"), e.Row.DBCampo("CveCategoria"))
+                                                   e.Row.DBCampo("Grupo"), e.Row.DBCampo("GPO"), e.Row.DBCampo("CvePS"), e.Row.DBCampo("CveClasificacion"), e.Row.DBCampo("CveMarca"), e.Row.DBCampo("CveCategoria"), e.Row.DBCampo("CveProveedorCompra"))
                 e.Row.Cells(0).Text = String.Format("<a class=""{0}"" href=""{1}"">{2}</a>", Css, Liga, e.Row.Cells(0).Text)
 
                 'e.Row.Cells(3).Text =
@@ -358,7 +362,7 @@ Partial Class Ventas_RepVentasUtilidadPadre
         If TxtModalFechaInicio.Text = "" Then FechaI = MinFecha
         If TxtModalFechaFin.Text = "" Then FechaF = MaxFecha
 
-        If ObjVentas.GetReporteVentasUtilidad("-1", -1, "-1", FechaI, FechaF, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1) Then
+        If ObjVentas.GetReporteVentasUtilidad("-1", -1, "-1", FechaI, FechaF, UsuarioActual.CveEmpresa, -1, -1, -1, -1, -1, -1) Then
             GvPorcentajes.DataSource = ObjVentas.DtResultados.FiltraParametros($" CveVenta > 0 AND PorNeto <= {TxtModalPorcentaje.Text.ToDecimal} AND TipoDocto = 'Ing' AND CveEstatusFactura IN(2,3) ")
         End If