diff --git a/App_Code/ClsCRM.vb b/App_Code/ClsCRM.vb
index 50c928d51..866c58dfa 100644
--- a/App_Code/ClsCRM.vb
+++ b/App_Code/ClsCRM.vb
@@ -1173,7 +1173,7 @@ Public Class ClsCRM
 
 
 
-    Public Function RepAgendasBitacoras(CveEmpresa As Integer, CveVendedor As Integer, CveTipoProceso As Integer, FechaInicio As Date, FechaFin As Date) As Boolean
+    Public Function RepAgendasBitacoras(CveEmpresa As Integer, CveVendedor As Integer, CveTipoProceso As Integer, FechaInicio As Date, FechaFin As Date, Optional CveTipoEvento As Integer = -1) As Boolean
         Dim retorno As Boolean = False
         DataAdapter("PA_CRM_RepAgendasBitacoras", CommandType.StoredProcedure)
         With SqlAdapter.SelectCommand.Parameters
@@ -1183,6 +1183,7 @@ Public Class ClsCRM
             .Add("@CveTipoProceso", SqlDbType.Int).Value = CveTipoProceso
             .Add("@FechaInicio", SqlDbType.Date).Value = FechaInicio
             .Add("@FechaFin", SqlDbType.Date).Value = FechaFin
+            .Add("@CveTipoEvento", SqlDbType.Int).Value = CveTipoEvento
 
 
         End With
diff --git a/CRM/RepAgendasBitacoras.aspx b/CRM/RepAgendasBitacoras.aspx
index 0ea6824c0..edbe65404 100644
--- a/CRM/RepAgendasBitacoras.aspx
+++ b/CRM/RepAgendasBitacoras.aspx
@@ -71,6 +71,15 @@
                                 <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudF" TargetControlID="TxtFechaFin" PopupButtonID="imgFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                             </div>
 
+                            <label class="col-md-1"  >Tipo Evento:</label>
+                            <div class="col-md-1">
+                                <asp:DropDownList ID="DdlTipoEvento" Width="100%" runat="server"  CssClass="form-control input-sm select2me" >
+                                    <asp:ListItem Value="-1">Todos</asp:ListItem>
+                                    <asp:ListItem Value="6">Bitácora</asp:ListItem>
+                                    <asp:ListItem Value="2">Agenda</asp:ListItem>
+                                </asp:DropDownList>
+                            </div>
+
 
                      
 
diff --git a/CRM/RepAgendasBitacoras.aspx.cs b/CRM/RepAgendasBitacoras.aspx.cs
index 8f2242b97..8b725b80c 100644
--- a/CRM/RepAgendasBitacoras.aspx.cs
+++ b/CRM/RepAgendasBitacoras.aspx.cs
@@ -38,7 +38,7 @@ public partial class CRM_AgendasBitacoras : ClsPaginas
         ClsCRM ObjCRM = new ClsCRM();
         //nt CveEmpresa, int CveVendedor, int CveTipoProceso, DateTime FechaInicio, DateTime FechaFin
 
-        if (ObjCRM.RepAgendasBitacoras(UsuarioActual.CveEmpresa, DdlVendedor.SelectedValue.ToEntero(),DdlTipoProceso.SelectedValue.ToEntero(), TxtFechaInicio.Text.ToDate(), TxtFechaFin.Text.ToDate()))
+        if (ObjCRM.RepAgendasBitacoras(UsuarioActual.CveEmpresa, DdlVendedor.SelectedValue.ToEntero(),DdlTipoProceso.SelectedValue.ToEntero(), TxtFechaInicio.Text.ToDate(), TxtFechaFin.Text.ToDate(), CveTipoEvento:DdlTipoEvento.SelectedValue.ToEntero()))
         {
             GVDatos.DataSource = ObjCRM.DtResultados;            
             GVDatos.DataBind();