diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb
index 1afc4f4b2..206ce0908 100644
--- a/App_Code/ClsVentas.vb
+++ b/App_Code/ClsVentas.vb
@@ -4307,7 +4307,7 @@ Public Class ClsVentas
     End Function
 
     Public Function GetRepMetasVendedores(FechaMesActual As String, CveEmpresa As Integer, CveVendedor As Integer, CveCategoria As Integer, CveClasificacion As Integer,
-                                          CveClasificacion2 As Integer, CveMarca As Integer) As Boolean
+                                          CveClasificacion2 As Integer, CveMarca As Integer, CveSubProyecto As Integer) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_Vta_MetasVendedores", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
@@ -4318,6 +4318,7 @@ Public Class ClsVentas
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
             .Add("@CveClasificacion2", SqlDbType.Int).Value = CveClasificacion2
             .Add("@CveMarca", SqlDbType.Int).Value = CveMarca
+            .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
         End With
         Try
             SqlAdapter.Fill(Data)
diff --git a/Ventas/MetasVendedores.aspx b/Ventas/MetasVendedores.aspx
index 61dcbddc1..28ae1f483 100644
--- a/Ventas/MetasVendedores.aspx
+++ b/Ventas/MetasVendedores.aspx
@@ -68,9 +68,7 @@
                     <div class="titlefiltros caption magindate">
                         <div class="row">
 
-                            
-
-                            <div class="col-md-1 truncate">Fecha del mes: </div>
+                            <div class="col-md-1 truncate text-right">Fecha del mes: </div>
                             <div class="col-md-2 col-sm-2">
                                 <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 95px !important; padding: 0px;">
                                     <asp:TextBox Style="width: 80px !important;" ID="TxtFechaMes" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
@@ -89,7 +87,7 @@
                             </div>
                         </div>
                         <div class="row" style="margin-top: 10px">
-                            <label class="col-md-1 ">Marca: </label>
+                            <label class="col-md-1 text-right">Marca: </label>
                             <div class="col-md-3">
                                 <asp:DropDownList ID="DdlMarcaFiltro" runat="server" DataTextField="Marca" DataValueField="CveMarca" CssClass="form-control input-sm select2me"></asp:DropDownList>
                             </div>
@@ -104,7 +102,7 @@
                                 <asp:DropDownList ID="DdlCategoria" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveCategoria" DataTextField="Categoria"></asp:DropDownList>
                             </div>
                         </div>
-                        <div class="row">
+                        <div class="row" style="margin-top: 10px">
                             <label class="col-md-1 text-right">Clasificaciones: </label>
                             <div class="col-md-3">
                                 <asp:DropDownList ID="DdlClasificaciones" runat="server" Class="table-group-action-input form-control input-inline input-sm select2me" Width="50%" DataValueField="CveClasificacion" DataTextField="Clasificacion"></asp:DropDownList>
@@ -129,6 +127,43 @@
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>
+    <div id="dvCuerpo" style="width: 100%">
+        <asp:UpdatePanel ID="UPDatos" runat="server" RenderMode="Inline" UpdateMode="Conditional">
+            <ContentTemplate>
+                <asp:GridView ID="GV" runat="server" GridLines="None" BorderWidth="0" UseAccessibleHeader="true" DataKeyNames="Titulo,Etiqueta,RealMes,VtaMesAA,RealAcumulado,RealMesPorcentaje"
+                    CssClass="table table-striped table-advance table-hover Widthall ScrollAD" data-sort="true" ShowHeader="True" EmptyDataText="No se encontraron resultados." ShowHeaderWhenEmpty="true"
+                    AutoGenerateColumns="False" AllowPaging="False" ShowFooter="False">
+                    <Columns>
+                        <asp:TemplateField HeaderText="Grupo" ItemStyle-HorizontalAlign="Left">
+                            <ItemTemplate>
+                                <asp:Label ID="HlkGrupo" runat="server" Target="_blank" Text='<%# Eval("Titulo").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Real Mes" ItemStyle-HorizontalAlign="Center">
+                            <ItemTemplate>
+                                <asp:Label ID="lblRealMes" runat="server" Target="_blank" Text='<%# Eval("RealMes").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Ventata Mes Año Anterior" ItemStyle-HorizontalAlign="Center">
+                            <ItemTemplate>
+                                <asp:Label ID="lblVtaMesAA" runat="server" Target="_blank" Text='<%# Eval("VtaMesAA").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Real Acumulado" ItemStyle-HorizontalAlign="Center">
+                            <ItemTemplate>
+                                <asp:Label ID="lblRealAcumulado" runat="server" Target="_blank" Text='<%# Eval("RealAcumulado").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                        <asp:TemplateField HeaderText="Real Mes Porcentaje" ItemStyle-HorizontalAlign="Center">
+                            <ItemTemplate>
+                                <asp:Label ID="lblRealMesPorcentaje" runat="server" Target="_blank" Text='<%# Eval("RealMesPorcentaje").ToString() %>'> </asp:Label>
+                            </ItemTemplate>
+                        </asp:TemplateField>
+                    </Columns>
+                </asp:GridView>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
     <div id="DivAgregarTiposD" class="modal ADS fade" role="dialog">
         <div class="modal-dialog" style="width: 450px;">
             <asp:UpdatePanel runat="server" class="modal-content" ID="UpModalTiposD" UpdateMode="Conditional">
diff --git a/Ventas/MetasVendedores.aspx.vb b/Ventas/MetasVendedores.aspx.vb
index b630cf294..543c8205d 100644
--- a/Ventas/MetasVendedores.aspx.vb
+++ b/Ventas/MetasVendedores.aspx.vb
@@ -4,14 +4,26 @@ Imports Microsoft.Reporting.WebForms
 
 Partial Class MetasVendedores
     Inherits ClsPaginas
+    Private Property DtDatos As DataTable
+        Get
+            DtDatos = DirectCast(ViewState("DtDatos"), DataTable)
+        End Get
 
+        Set(ByVal value As DataTable)
+            ViewState("DtDatos") = value
+        End Set
+    End Property
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
             CargaDatosModal()
             CargaDatosFiltros()
+            CargarDatosReporte()
         End If
     End Sub
     Private Sub CargaDatosFiltros()
+        Dim dNow As Date = Now
+        TxtFechaMes.Text = dNow.ToString("dd/MM/yyyy")
+
         DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa)
         DdlSubProyectoFiltro.DataBind()
         DdlSubProyectoFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
@@ -55,6 +67,17 @@ Partial Class MetasVendedores
         DdlMarcas.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
 
+    Private Sub CargarDatosReporte()
+        Dim ObjVentas As New ClsVentas
+        If ObjVentas.GetRepMetasVendedores(TxtFechaMes.Text, UsuarioActual.CveEmpresa, DdlVendedorFiltro.SelectedValue.ToEntero, DdlCategoria.SelectedValue.ToEntero,
+                                           DdlClasificaciones.SelectedValue.ToEntero, DdlClasificacion2.SelectedValue.ToEntero, DdlMarcaFiltro.SelectedValue.ToEntero,
+                                           DdlSubProyectoFiltro.SelectedValue.ToEntero) Then
+            GV.DataSource = ObjVentas.DtResultados
+            DtDatos = ObjVentas.DtResultados
+        End If
+        ObjVentas.Dispose()
+        GV.DataBind()
+    End Sub
     Private Sub ResetDatosSeleccionadosModal()
         DdlVendedores.SelectedValue = "-1"
         TxtFechaI.Text = ""
@@ -83,4 +106,42 @@ Partial Class MetasVendedores
         RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarTiposD"))
         ResetDatosSeleccionadosModal()
     End Sub
+
+    Protected Sub btConsultar_Click(sender As Object, e As EventArgs) Handles btConsultar.Click
+        CargarDatosReporte()
+        UPDatos.Update()
+    End Sub
+
+    Protected Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GV.RowDataBound
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            Select Case e.Row.DataKey("Etiqueta")
+                Case "Categoria"
+                    e.Row.CssClass = "Totales"
+                Case "Clasificacion"
+                    e.Row.CssClass = "SubTotales2"
+                Case "Clasificacion2"
+                    e.Row.CssClass = "SubTotales"
+                Case "Marca"
+            End Select
+        End If
+    End Sub
+
+    Protected Sub LnkPDF_RowDataBound(sender As Object, e As EventArgs) Handles LnkPDF.Click
+        Dim Imagen As New System.IO.FileInfo(String.Format("{0}/Logo.png", UsuarioActual.Empresa.Ruta))
+        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+
+        Dim params As New List(Of ReportParameter)
+        params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
+        If Imagen.Exists Then
+            params.Add(New ReportParameter("pImg", logouri))
+        Else
+            params.Add(New ReportParameter("pImg", ""))
+        End If
+        params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
+        params.Add(New ReportParameter("FechaImpresion", Today))
+        params.Add(New ReportParameter("SubProyecto", DdlSubProyectoFiltro.SelectedItem.ToString))
+        params.Add(New ReportParameter("Agente", DdlVendedorFiltro.SelectedItem.ToString))
+
+        ImprimirPDF("Empresas/Grales/Formatos/MetasVendedores.rdlc", DtDatos, params, "Rep. Metas por vendedores", "PDF", RDSName:="DataSet1")
+    End Sub
 End Class