diff --git a/CRM/Acercamiento.aspx.cs b/CRM/Acercamiento.aspx.cs
index 3b8469ae4..9bd14d662 100644
--- a/CRM/Acercamiento.aspx.cs
+++ b/CRM/Acercamiento.aspx.cs
@@ -366,6 +366,7 @@ public partial class CRM_Acercamiento : ClsPaginas
             }
 
             CargaImagenes();
+            CargaDdl();
 
             UpEncabezado.Update();
             UPAcercamiento.Update();
@@ -398,8 +399,6 @@ public partial class CRM_Acercamiento : ClsPaginas
 
         RecuperaCve();
         TxtFechaApertura.Text = DateTime.Now.ToShortDateString();
-
-        CargaDdl();
     }
 
     protected void RecuperaCve()
@@ -420,7 +419,7 @@ public partial class CRM_Acercamiento : ClsPaginas
 
         if (ObjCRM.GetProbabilidadAcercamiento(UsuarioActual.CveEmpresa, 1))
         {
-            DdlProbabilidadAcercamiento.DataSource = ObjCRM.DtResultados;
+            DdlProbabilidadAcercamiento.DataSource = ObjCRM.DtResultados.FiltraParametros(String.Format("CveTipoProceso = {0}", CveTipoProceso));
         }
         if (ObjCRM.GetEmpresasCRM(UsuarioActual.CveEmpresa))
         {
@@ -434,7 +433,7 @@ public partial class CRM_Acercamiento : ClsPaginas
         //}
         if (ObjCRM.GetMedioCaptacion(UsuarioActual.CveEmpresa, 1))
         {
-            DdlMedioCaptacion.DataSource = ObjCRM.DtResultados;
+            DdlMedioCaptacion.DataSource = ObjCRM.DtResultados.FiltraParametros(String.Format("CveTipoProceso = {0}",CveTipoProceso));
             DdlMedioCaptacion.Items.Insert(0, new ListItem("Seleccione ", "-1"));
         }
 
diff --git a/CRM/CatMediosCaptacion.aspx b/CRM/CatMediosCaptacion.aspx
index 40fd45942..60d82a951 100644
--- a/CRM/CatMediosCaptacion.aspx
+++ b/CRM/CatMediosCaptacion.aspx
@@ -27,7 +27,7 @@
                 <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
                 <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
             </div>
-            <asp:GridView ID="GVDatos" runat="server" DataKeyNames="CveMedioCaptacion,MedioCaptacion, Descripcion, Estatus, CveEstatus, UsuarioIng, CveUsuarioIng, FechaIng" EmptyDataText="No se han registrado Medios de Captación"
+            <asp:GridView ID="GVDatos" runat="server" DataKeyNames="CveMedioCaptacion,MedioCaptacion, Descripcion, Estatus, CveEstatus, UsuarioIng, CveUsuarioIng, FechaIng,CveTipoProceso, TipoProceso" EmptyDataText="No se han registrado Medios de Captación"
                 EmptyDataRowStyle-HorizontalAlign="Center" CssClass="table table-striped table-advance table-hover ScrollAD Widthall mysmallbtn" data-sort="true"
                 GridLines="None" AutoGenerateColumns="false" OnRowDeleting="GVDatos_RowDeleting" OnRowDataBound="GVDatos_RowDataBound">
                 <Columns>
@@ -52,6 +52,11 @@
                             <asp:Label ID="lblUsuarioIng" runat="server" Text='<%# Eval("UsuarioIng")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Tipo Proceso" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Left">
+                        <ItemTemplate>
+                            <asp:Label ID="lblTipoProceso" runat="server" Text='<%# Eval("TipoProceso")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
                     <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" HeaderText="Comandos">
                         <ItemTemplate>
                             <asp:LinkButton ID="LnkEditar" runat="server" OnClick="LnkEditar_Click" data-toggle="tooltip" CssClass="btn btn-circle btn-sm green" title="Editar" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
@@ -87,6 +92,10 @@
                             <label runat="server" id="lblEstatus" for="<%= ChkEstatus.ClientID.ToString()%>">Estatus:</label>
                             <asp:CheckBox ID="ChkEstatus" runat="server" />
                         </div>
+                        <div class="form-group form-md-line-input input-iconright" id="DivTipoProceso" runat="server">
+                            <label runat="server" id="LblTipoProceso" for="<%= DdlTipoProceso.ClientID.ToString()%>">Tipo Proceso:</label><br />
+                            <asp:DropDownList runat="server" ID="DdlTipoProceso" CssClass="form-control input-sm select2me" Width="50%" DataValueField="CveTipoProceso" DataTextField="TipoProceso"/>
+                        </div>
                     </div>
                     <div class="modal-footer">
                         <asp:Button ID="BtnGuardar" OnClick="BtnGuardar_Click" runat="server" Text="Agregar" CssClass="btn btn-primary" ValidationGroup="VGGuardar" />
diff --git a/CRM/CatMediosCaptacion.aspx.cs b/CRM/CatMediosCaptacion.aspx.cs
index 2091083ef..fac8b05b1 100644
--- a/CRM/CatMediosCaptacion.aspx.cs
+++ b/CRM/CatMediosCaptacion.aspx.cs
@@ -54,6 +54,7 @@ public partial class CRM_CatMediosCaptacion : ClsPaginas
         if (!IsPostBack)
         {
             CargaDatos();
+            CargarModalDatos();
         }
     }
 
@@ -71,6 +72,19 @@ public partial class CRM_CatMediosCaptacion : ClsPaginas
         GVDatos.DataBind();
         UPDatos.Update();
     }
+
+    private void CargarModalDatos()
+    {
+        ClsCRM ObjCRM = new ClsCRM();
+        if (ObjCRM.GetTipoProceso(UsuarioActual.CveEmpresa))
+        {
+            DdlTipoProceso.DataSource = ObjCRM.DtResultados;
+        }
+        ObjCRM.Dispose();
+        DdlTipoProceso.DataBind();
+        DdlTipoProceso.Items.Insert(0,new ListItem("Seleccione","-1"));
+    }
+
     protected void limpiarCamposModal()
     {
         if (EsEditar == 1)
@@ -88,6 +102,7 @@ public partial class CRM_CatMediosCaptacion : ClsPaginas
         TxtMedioCaptacion.Text = "";
         TxtDescripcion.Text = "";
         ChkEstatus.Checked = true;
+        DdlTipoProceso.SelectedValue = "-1";
     }
     #endregion
 
@@ -142,7 +157,7 @@ public partial class CRM_CatMediosCaptacion : ClsPaginas
         TxtMedioCaptacion.Text = GvRow.DataKey("MedioCaptacion").ToString();
         TxtDescripcion.Text = GvRow.DataKey("Descripcion").ToString();
         ChkEstatus.Checked = GvRow.DataKey("CveEstatus").ToString() == "True" ? true : false;
-
+        DdlTipoProceso.SelectedValue = GvRow.DataKey("CveTipoProceso").ToString();
         UPModal.Update();
 
         this.RegistraScript("$('#DivModal').modal();");
@@ -160,14 +175,14 @@ public partial class CRM_CatMediosCaptacion : ClsPaginas
 
         if (EsEditar == 0)
         {
-            if (ObjCRM.AddMedioCaptacion(MedioCaptacion, Descripcion, UsuarioActual.CveEmpresa, CveUsuarioIng))
+            if (ObjCRM.AddMedioCaptacion(MedioCaptacion, Descripcion, UsuarioActual.CveEmpresa, CveUsuarioIng,DdlTipoProceso.SelectedValue.ToEntero()))
             {
                 Alert("El Medio de Captación fue creado correctamente.", ModExtensiones.TipoMensaje.MsgInformacion);
             }
         }
         else
         {
-            if (ObjCRM.UpdateMedioCaptacion(MedioCaptacion, Descripcion, Estatus, CveMedioCaptacion))
+            if (ObjCRM.UpdateMedioCaptacion(MedioCaptacion, Descripcion, Estatus, CveMedioCaptacion,DdlTipoProceso.SelectedValue.ToEntero()))
             {
                 Alert("El Medio de Captación fue actualizado correctamente.", ModExtensiones.TipoMensaje.MsgInformacion);
             }
diff --git a/CRM/CatProbabilidadAcercamiento.aspx b/CRM/CatProbabilidadAcercamiento.aspx
index 67b5be56e..e2978bb2b 100644
--- a/CRM/CatProbabilidadAcercamiento.aspx
+++ b/CRM/CatProbabilidadAcercamiento.aspx
@@ -27,7 +27,7 @@
                 <input type="text" id="TxtBusqueda" class="form-control input-sm" onkeyup="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVDatos.ClientID) %>" style="display: inline-block; margin-right: -20px; width: 150px;" />
                 <a href="javascript:;" onclick="<%= String.Format("FiltrarTabla('TxtBusqueda','{0}')", GVDatos.ClientID) %>" style="margin-top: -3px;" class="btn btn-circle btn-sm label-info"><i class="icon-magnifier"></i></a>
             </div>
-            <asp:GridView ID="GVDatos" runat="server" DataKeyNames="CveProbabilidadAcercamiento, ProbabilidadAcercamiento, Estatus, CveEstatus, CveEmpresa, UsuarioIng, CveUsuarioIng, FechaIng"
+            <asp:GridView ID="GVDatos" runat="server" DataKeyNames="CveProbabilidadAcercamiento, ProbabilidadAcercamiento, Estatus, CveEstatus, CveEmpresa, UsuarioIng, CveUsuarioIng, FechaIng,CveTipoProceso,TipoProceso"
                 EmptyDataText="No se han registrado conceptos de Probabilidades de Acercamiento" EmptyDataRowStyle-HorizontalAlign="Center"
                 CssClass="table table-striped table-advance table-hover ScrollAD Widthall mysmallbtn" data-sort="true" GridLines="None"
                 AutoGenerateColumns="false" OnRowDeleting="GVDatos_RowDeleting" OnRowDataBound="GVDatos_RowDataBound">
@@ -53,6 +53,11 @@
                             <asp:Label ID="lblUsuarioIng" runat="server" Text='<%# Eval("UsuarioIng")%>'> </asp:Label>
                         </ItemTemplate>
                     </asp:TemplateField>
+                    <asp:TemplateField HeaderText="Tipo Proceso que Ingresó" ItemStyle-Width="25%" ItemStyle-HorizontalAlign="Left">
+                        <ItemTemplate>
+                            <asp:Label ID="lblTipoProceso" runat="server" Text='<%# Eval("TipoProceso")%>'> </asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
                     <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%" HeaderText="Comandos">
                         <ItemTemplate>
                             <asp:LinkButton ID="LnkEditar" runat="server" OnClick="LnkEditar_Click" data-toggle="tooltip" CssClass="btn btn-circle btn-sm green" title="Editar" Text="<i class='fa fa-pencil'></i>"></asp:LinkButton>
@@ -88,6 +93,10 @@
                             <label runat="server" id="lblEstatus" for="<%= ChkEstatus.ClientID.ToString()%>">Estatus:</label>
                             <asp:CheckBox ID="ChkEstatus" runat="server" />
                         </div>
+                        <div class="form-group form-md-line-input input-iconright" id="DivTipoProceso" runat="server">
+                            <label runat="server" id="LblTipoProceso" for="<%= DdlTipoProceso.ClientID.ToString()%>">Tipo Proceso:</label><br />
+                            <asp:DropDownList runat="server" ID="DdlTipoProceso" CssClass="form-control input-sm select2me" Width="50%" DataValueField="CveTipoProceso" DataTextField="TipoProceso"/>
+                        </div>
                     </div>
                     <div class="modal-footer">
                         <asp:Button ID="BtnGuardar" OnClick="BtnGuardar_Click" runat="server" Text="Agregar" CssClass="btn btn-primary" ValidationGroup="VGGuardar" />
diff --git a/CRM/CatProbabilidadAcercamiento.aspx.cs b/CRM/CatProbabilidadAcercamiento.aspx.cs
index 0c3d41a3b..9b9d51d3d 100644
--- a/CRM/CatProbabilidadAcercamiento.aspx.cs
+++ b/CRM/CatProbabilidadAcercamiento.aspx.cs
@@ -55,6 +55,7 @@ public partial class CRM_CatProbabilidadAcercamiento : ClsPaginas
         if (!IsPostBack)
         {
             CargaDatos();
+            CargarModalDatos();
         }
     }
 
@@ -72,6 +73,19 @@ public partial class CRM_CatProbabilidadAcercamiento : ClsPaginas
         GVDatos.DataBind();
         UPDatos.Update();
     }
+
+    private void CargarModalDatos()
+    {
+        ClsCRM ObjCRM = new ClsCRM();
+        if (ObjCRM.GetTipoProceso(UsuarioActual.CveEmpresa))
+        {
+            DdlTipoProceso.DataSource = ObjCRM.DtResultados;
+        }
+        ObjCRM.Dispose();
+        DdlTipoProceso.DataBind();
+        DdlTipoProceso.Items.Insert(0, new ListItem("Seleccione", "-1"));
+    }
+
     protected void limpiarCamposModal()
     {
         if (EsEditar == 1)
@@ -86,6 +100,7 @@ public partial class CRM_CatProbabilidadAcercamiento : ClsPaginas
             BtnGuardar.Text = "Guardar";
             DivEstatus.Visible = false;
         }
+        DdlTipoProceso.SelectedValue = "-1";
         TxtProbabilidadAcercamiento.Text = "";
         //TxtDescripcion.Text = "";
         ChkEstatus.Checked = true;
@@ -113,7 +128,7 @@ public partial class CRM_CatProbabilidadAcercamiento : ClsPaginas
         TxtProbabilidadAcercamiento.Text = GvRow.DataKey("ProbabilidadAcercamiento").ToString();
         //TxtDescripcion.Text = GvRow.DataKey("Descripcion").ToString();
         ChkEstatus.Checked = GvRow.DataKey("CveEstatus").ToString() == "True" ? true : false;
-
+        DdlTipoProceso.SelectedValue = GvRow.DataKey("CveTipoProceso").ToString();
         UPModal.Update();
 
         this.RegistraScript("$('#DivModal').modal();");
@@ -131,14 +146,14 @@ public partial class CRM_CatProbabilidadAcercamiento : ClsPaginas
 
         if (EsEditar == 0)
         {
-            if (ObjCRM.AddProbabilidadAcercamiento(ProbabilidadAcercamiento, UsuarioActual.CveEmpresa, CveUsuarioIng))
+            if (ObjCRM.AddProbabilidadAcercamiento(ProbabilidadAcercamiento, UsuarioActual.CveEmpresa, CveUsuarioIng,DdlTipoProceso.SelectedValue.ToEntero()))
             {
                 Alert("La Probabilidad de Acercamiento fue creada correctamente.", ModExtensiones.TipoMensaje.MsgInformacion);
             }
         }
         else
         {
-            if (ObjCRM.UpdateProbabilidadAcercamiento(ProbabilidadAcercamiento, Estatus, CveProbabilidadAcercamiento))
+            if (ObjCRM.UpdateProbabilidadAcercamiento(ProbabilidadAcercamiento, Estatus, CveProbabilidadAcercamiento,DdlTipoProceso.SelectedValue.ToEntero()))
             {
                 Alert("La Probabilidad de Acercamiento fue actualizada correctamente.", ModExtensiones.TipoMensaje.MsgInformacion);
             }
diff --git a/CRM/EmpresaCRM.aspx b/CRM/EmpresaCRM.aspx
index 30ac67e1c..778b5a390 100644
--- a/CRM/EmpresaCRM.aspx
+++ b/CRM/EmpresaCRM.aspx
@@ -589,7 +589,7 @@
 
                             <div class="row">
                                 <div class="form-group col-md-6 form-md-line-input input-iconright">
-                                    <asp:DropDownList ID="DdlTipoProceso" DataTextField="TipoProceso" DataValueField="CveTipoProceso" runat="server" Width="100%" AppendDataBoundItems="true" Class="form-control input-sm select2me"></asp:DropDownList>
+                                    <asp:DropDownList ID="DdlTipoProceso" DataTextField="TipoProceso" DataValueField="CveTipoProceso" runat="server" Width="100%" AppendDataBoundItems="true" Class="form-control input-sm select2me" OnSelectedIndexChanged="DdlTipoProceso_Change" AutoPostBack="true"></asp:DropDownList>
                                     <label for="<%= DdlTipoProceso.ClientID.ToString()%>"><span style="color: #F3565D">*</span> Proceso:</label>
                                     <asp:RequiredFieldValidator ID="RFVTipoProceso" CssClass="help-block errorimput" runat="server" ControlToValidate="DdlTipoProceso" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Tipo de Proceso''</b> es necesario." InitialValue="-1" ValidationGroup="VGAcercamiento"></asp:RequiredFieldValidator>
                                 </div>
diff --git a/CRM/EmpresaCRM.aspx.cs b/CRM/EmpresaCRM.aspx.cs
index 1ae0436d9..3e3673985 100644
--- a/CRM/EmpresaCRM.aspx.cs
+++ b/CRM/EmpresaCRM.aspx.cs
@@ -191,6 +191,32 @@ public partial class CRM_EmpresaCRM : ClsPaginas
             ViewState["CreoCliente"] = value;
         }
     }
+
+    private DataTable DtMedioCaptacion
+    {
+        get
+        {
+            return (DataTable)ViewState["DtMedioCaptacion"];
+        }
+
+        set
+        {
+            ViewState["DtMedioCaptacion"] = value;
+        }
+    }
+
+    private DataTable DtProbabilidadAcercamiento
+    {
+        get
+        {
+            return (DataTable)ViewState["DtProbabilidadAcercamiento"];
+        }
+
+        set
+        {
+            ViewState["DtProbabilidadAcercamiento"] = value;
+        }
+    }
     #endregion 
 
     protected void Page_Load(object sender, EventArgs e)
@@ -518,8 +544,9 @@ public partial class CRM_EmpresaCRM : ClsPaginas
         {
             DdlMedioCaptacion.DataSource = ObjCRM.DtResultados;
             DdlMedioCaptacion.Items.Insert(0, new ListItem("Seleccione ", "-1"));
-
+            DdlMedioCaptacionAcercamiento.Items.Clear();
             DdlMedioCaptacionAcercamiento.DataSource = ObjCRM.DtResultados;
+            DtMedioCaptacion = ObjCRM.DtResultados;
             DdlMedioCaptacionAcercamiento.Items.Insert(0, new ListItem("Seleccione ", "-1"));
         }
         ObjCRM.Dispose();
@@ -629,6 +656,21 @@ public partial class CRM_EmpresaCRM : ClsPaginas
             CargaEventoBitacora();
         }
     }
+
+    protected void DdlTipoProceso_Change(object sender, EventArgs e)
+    {
+        DdlMedioCaptacionAcercamiento.Items.Clear();
+        DdlMedioCaptacionAcercamiento.DataSource = DtMedioCaptacion.FiltraParametros(String.Format("CveTipoProceso = {0}",DdlTipoProceso.SelectedValue.ToEntero()));
+        DdlMedioCaptacionAcercamiento.DataBind();
+        DdlMedioCaptacionAcercamiento.Items.Insert(0,new ListItem("Seleccione","-1"));
+
+        DdlProbabilidadAcercamiento.Items.Clear();
+        DdlProbabilidadAcercamiento.DataSource = DtProbabilidadAcercamiento.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero()));
+        DdlProbabilidadAcercamiento.DataBind();
+        DdlProbabilidadAcercamiento.Items.Insert(0, new ListItem("Seleccione", "-1"));
+
+        UpAltaAcercamiento.Update();
+    }
     #endregion
 
     #region "ELIMINAR EMPRESA"
@@ -1236,7 +1278,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
         {
             DdlTipoProceso.DataSource = ObjCRM.DtResultados;
 
-            if (ObjCRM.DtResultados.Rows.Count > 1)
+            if (ObjCRM.DtResultados.Rows.Count > 0)
                 DdlTipoProceso.Items.Insert(0, new ListItem("Seleccione ", "-1"));
 
             DdlTipoProceso.DataBind();
@@ -1247,6 +1289,8 @@ public partial class CRM_EmpresaCRM : ClsPaginas
             DdlProbabilidadAcercamiento.DataSource = ObjCRM.DtResultados;
             DdlProbabilidadAcercamiento.DataBind();
             DdlProbabilidadAcercamiento.Items.Insert(0, new ListItem("Seleccione ", "-1"));
+
+            DtProbabilidadAcercamiento = ObjCRM.DtResultados;
         }
 
         DdlVendedor.DataSource = get_GlobalDTVendedores(UsuarioActual.CveEmpresa);
@@ -1293,6 +1337,10 @@ public partial class CRM_EmpresaCRM : ClsPaginas
         }
         else
         {
+            ClsCRM ObjCRM = new ClsCRM();
+            CargaMetodosCaptacion();
+            InicializaAcercamientos(ObjCRM);
+            ObjCRM.Dispose();
             limpiarCamposModalAcercamiento();
             this.RegistraScript("$('#DivModalAltaAcercamiento').modal();");
             UpAltaAcercamiento.Update();
diff --git a/CRM/PopUpBuscarAcercamiento.aspx b/CRM/PopUpBuscarAcercamiento.aspx
index ec39a8719..d1ad5a07d 100644
--- a/CRM/PopUpBuscarAcercamiento.aspx
+++ b/CRM/PopUpBuscarAcercamiento.aspx
@@ -34,7 +34,7 @@
                     </td>
                     <td class="text-right" style="width: 140px;"><b>Tipo de Proceso:</b></td>
                     <td>
-                        <asp:DropDownList ID="DdlTipoProceso" runat="server" AppendDataBoundItems="true" DataTextField="TipoProceso" DataValueField="CveTipoProceso" Class="table-group-action-input form-control input-inline input-sm select2me" Width="200px"></asp:DropDownList>
+                        <asp:DropDownList ID="DdlTipoProceso" runat="server" AppendDataBoundItems="true" DataTextField="TipoProceso" DataValueField="CveTipoProceso" Class="table-group-action-input form-control input-inline input-sm select2me" Width="200px" OnSelectedIndexChanged="DdlTipoProceso_Change" AutoPostBack="true"></asp:DropDownList>
                     </td>
                 </tr>
 
diff --git a/CRM/PopUpBuscarAcercamiento.aspx.cs b/CRM/PopUpBuscarAcercamiento.aspx.cs
index f19dd40f4..982fd1a6c 100644
--- a/CRM/PopUpBuscarAcercamiento.aspx.cs
+++ b/CRM/PopUpBuscarAcercamiento.aspx.cs
@@ -10,6 +10,46 @@ using System.Data;
 
 public partial class CRM_PopUpBuscarAcercamiento : ClsPaginas
 {
+
+    private DataTable DtMedioCaptacion
+    {
+        get
+        {
+            return (DataTable)ViewState["DtMedioCaptacion"];
+        }
+
+        set
+        {
+            ViewState["DtMedioCaptacion"] = value;
+        }
+    }
+
+    private DataTable DtProbabilidadAcercamiento
+    {
+        get
+        {
+            return (DataTable)ViewState["DtProbabilidadAcercamiento"];
+        }
+
+        set
+        {
+            ViewState["DtProbabilidadAcercamiento"] = value;
+        }
+    }
+
+    private DataTable DtRechazo
+    {
+        get
+        {
+            return (DataTable)ViewState["DtRechazo"];
+        }
+
+        set
+        {
+            ViewState["DtRechazo"] = value;
+        }
+    }
+
     protected void Page_Load(object sender, EventArgs e)
     {
         if (!IsPostBack)
@@ -26,8 +66,10 @@ public partial class CRM_PopUpBuscarAcercamiento : ClsPaginas
 
         if (ObjCRM.GetProbabilidadAcercamiento(UsuarioActual.CveEmpresa, 1))
         {
+            DdlProbabilidad.Items.Clear();
             DdlProbabilidad.DataSource = ObjCRM.DtResultados;
             DdlProbabilidad.Items.Insert(0, new ListItem("Todas ", "-1"));
+            DtProbabilidadAcercamiento = ObjCRM.DtResultados;
         }
         if (ObjCRM.GetEmpresasCRM(UsuarioActual.CveEmpresa))
         {
@@ -41,14 +83,18 @@ public partial class CRM_PopUpBuscarAcercamiento : ClsPaginas
         }
         if (ObjCRM.GetMedioCaptacion(UsuarioActual.CveEmpresa, 1))
         {
+            DdlMedioCaptacion.Items.Insert(0, new ListItem("Seleccione", "-1"));
             DdlMedioCaptacion.DataSource = ObjCRM.DtResultados;
             DdlMedioCaptacion.Items.Insert(0, new ListItem("Todos ", "-1"));
+            DtMedioCaptacion = ObjCRM.DtResultados;
         }
 
         if (ObjCRM.GetRechazoMotivo(UsuarioActual.CveEmpresa, 1))
         {
+            DdlRechazoMotivo.Items.Clear();
             DdlRechazoMotivo.DataSource = ObjCRM.DtResultados;
             DdlRechazoMotivo.Items.Insert(0, new ListItem("Todos ", "-1"));
+            DtRechazo = ObjCRM.DtResultados;
         }
 
         DdlVendedor.DataSource = get_GlobalDTVendedores(UsuarioActual.CveEmpresa);
@@ -63,6 +109,26 @@ public partial class CRM_PopUpBuscarAcercamiento : ClsPaginas
         DdlMedioCaptacion.DataBind();
         DdlRechazoMotivo.DataBind();
     }
+
+    protected void DdlTipoProceso_Change(object sender, EventArgs e)
+    {
+        DdlMedioCaptacion.Items.Clear();
+        DdlMedioCaptacion.DataSource = DtMedioCaptacion.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero()));
+        DdlMedioCaptacion.DataBind();
+        DdlMedioCaptacion.Items.Insert(0, new ListItem("Seleccione", "-1"));
+
+        DdlProbabilidad.Items.Clear();
+        DdlProbabilidad.DataSource = DtProbabilidadAcercamiento.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero()));
+        DdlProbabilidad.DataBind();
+        DdlProbabilidad.Items.Insert(0, new ListItem("Seleccione", "-1"));
+
+        DdlRechazoMotivo.Items.Clear();
+        DdlRechazoMotivo.DataSource = DtRechazo.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero()));
+        DdlRechazoMotivo.DataBind();
+        DdlRechazoMotivo.Items.Insert(0, new ListItem("Seleccione", "-1"));
+
+        UpFiltros.Update();
+    }
     #endregion
 
     #region "CARGA DATOS"
diff --git a/CRM/RepAcercamientos.aspx.cs b/CRM/RepAcercamientos.aspx.cs
index 8e9a254bf..b9443e390 100644
--- a/CRM/RepAcercamientos.aspx.cs
+++ b/CRM/RepAcercamientos.aspx.cs
@@ -42,18 +42,24 @@ public partial class CRM_RepAcercamientos : ClsPaginas
     {
         CveVendedor = DdlVendedor.SelectedValue.ToEntero();
 
-        string FechaInicio = TxtFechaInicio.Text == "" ? "-1" : TxtFechaInicio.Text;
-        string FechaFin = TxtFechaFin.Text == "" ? "-1" : TxtFechaFin.Text;
-
-        ClsCRM ObjCRM = new ClsCRM();
-        if (ObjCRM.GetAcercamiento(UsuarioActual.CveEmpresa, CveVendedor: CveVendedor, FechaInicio: FechaInicio, FechaFin: FechaFin))
+        if (CveVendedor > 0)
         {
-            GVDatos.DataSource = ObjCRM.DtResultados;
-            GVDatos.DataBind();
-        }
+            string FechaInicio = TxtFechaInicio.Text == "" ? "-1" : TxtFechaInicio.Text;
+            string FechaFin = TxtFechaFin.Text == "" ? "-1" : TxtFechaFin.Text;
 
-        ObjCRM.Dispose();
-        UPDatos.Update();
+            ClsCRM ObjCRM = new ClsCRM();
+            if (ObjCRM.GetAcercamiento(UsuarioActual.CveEmpresa, CveVendedor: CveVendedor, FechaInicio: FechaInicio, FechaFin: FechaFin))
+            {
+                GVDatos.DataSource = ObjCRM.DtResultados;
+                GVDatos.DataBind();
+            }
+
+            ObjCRM.Dispose();
+            UPDatos.Update();
+        }else
+        {
+            Alert("El Campo Vendedor es requerido",ModExtensiones.TipoMensaje.MsgError);
+        }
     }
 
     protected void GVDatos_RowDataBound(object sender, GridViewRowEventArgs e)
diff --git a/CRM/RepAcercamientosProcesos.aspx b/CRM/RepAcercamientosProcesos.aspx
index 125880f0c..20b4d8e37 100644
--- a/CRM/RepAcercamientosProcesos.aspx
+++ b/CRM/RepAcercamientosProcesos.aspx
@@ -28,6 +28,7 @@
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
+    Reporte de Procesos Acercamientos
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
     <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
@@ -49,7 +50,7 @@
                 <div class="row">
                     <div class="col-sm-3">
                         <div class="form-group form-md-line-input input-iconright">
-                            <asp:DropDownList ID="DdlTipoProceso" runat="server" DataTextField="TipoProceso" DataValueField="CveTipoProceso" CssClass="form-control input-sm select2me Widthall"></asp:DropDownList>
+                            <asp:DropDownList ID="DdlTipoProceso" runat="server" DataTextField="TipoProceso" DataValueField="CveTipoProceso" CssClass="form-control input-sm select2me Widthall" OnSelectedIndexChanged="DdlTipoProceso_Change" AutoPostBack="true"></asp:DropDownList>
                             <asp:Label runat="server" Text="Proceso:" AssociatedControlID="DdlTipoProceso"></asp:Label>
                         </div>
                     </div>
diff --git a/CRM/RepAcercamientosProcesos.aspx.cs b/CRM/RepAcercamientosProcesos.aspx.cs
index 638ebb44d..420dff2cd 100644
--- a/CRM/RepAcercamientosProcesos.aspx.cs
+++ b/CRM/RepAcercamientosProcesos.aspx.cs
@@ -27,6 +27,32 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
         get { return DtDatos = (DataTable)ViewState["DtDatos"]; }
         set { ViewState["DtDatos"] = value; }
     }
+
+    private DataTable DtMedioCaptacion
+    {
+        get
+        {
+            return (DataTable)ViewState["DtMedioCaptacion"];
+        }
+
+        set
+        {
+            ViewState["DtMedioCaptacion"] = value;
+        }
+    }
+
+    private DataTable DtProbabilidadAcercamiento
+    {
+        get
+        {
+            return (DataTable)ViewState["DtProbabilidadAcercamiento"];
+        }
+
+        set
+        {
+            ViewState["DtProbabilidadAcercamiento"] = value;
+        }
+    }
     #endregion
 
     protected void Page_Load(object sender, EventArgs e)
@@ -58,11 +84,14 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
         DdlVendedor.DataSource = get_GlobalDTVendedores(UsuarioActual.CveEmpresa);
         if (ObjCRM.GetMedioCaptacion(UsuarioActual.CveEmpresa))
         {
+            DdlMedioCaptacion.Items.Clear();
             DdlMedioCaptacion.DataSource = ObjCRM.DtResultados;
+            DtMedioCaptacion = ObjCRM.DtResultados;
         }
         if (ObjCRM.GetProbabilidadAcercamiento(UsuarioActual.CveEmpresa, -1))
         {
             DdlProbabilidad.DataSource = ObjCRM.DtResultados;
+            DtProbabilidadAcercamiento = ObjCRM.DtResultados;
         }
         ObjCRM.Dispose();
 
@@ -73,6 +102,7 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
         DdlVendedor.Items.Insert(0, new ListItem("Seleccione ", "-1"));
         DdlMedioCaptacion.Items.Insert(0, new ListItem("Seleccione ", "-1"));
         DdlProbabilidad.Items.Insert(0, new ListItem("Seleccione ", "-1"));
+        DdlTipoProceso.Items.Insert(0, new ListItem("Seleccione", "-1"));
         DdlVendedor.SelectedValue = "-1";
         DdlMedioCaptacion.SelectedValue = "-1";
         DdlProbabilidad.SelectedValue = "-1";
@@ -289,4 +319,19 @@ public partial class CRM_RepAcercamientosProcesos : ClsPaginas
         }
         UPModalProd.Update();
     }
+
+    protected void DdlTipoProceso_Change(object sender, EventArgs e)
+    {
+        DdlMedioCaptacion.Items.Clear();
+        DdlMedioCaptacion.DataSource = DtMedioCaptacion.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero()));
+        DdlMedioCaptacion.DataBind();
+        DdlMedioCaptacion.Items.Insert(0, new ListItem("Seleccione", "-1"));
+
+        DdlProbabilidad.Items.Clear();
+        DdlProbabilidad.DataSource = DtProbabilidadAcercamiento.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero()));
+        DdlProbabilidad.DataBind();
+        DdlProbabilidad.Items.Insert(0, new ListItem("Seleccione", "-1"));
+
+        upDatosRepA.Update();
+    }
 }
\ No newline at end of file
diff --git a/CRM/RepAcercamientosRechazos.aspx b/CRM/RepAcercamientosRechazos.aspx
index 256a90cbb..380159036 100644
--- a/CRM/RepAcercamientosRechazos.aspx
+++ b/CRM/RepAcercamientosRechazos.aspx
@@ -28,6 +28,7 @@
     </style>
 </asp:Content>
 <asp:Content ID="Content3" ContentPlaceHolderID="E" runat="Server">
+    Reporte de Rechazos Acercamientos
 </asp:Content>
 <asp:Content ID="Content4" ContentPlaceHolderID="HB" runat="Server">
     <asp:UpdatePanel ID="UpAcciones" runat="server" UpdateMode="Conditional">
diff --git a/CRM/RepAcercamientosRechazos.aspx.cs b/CRM/RepAcercamientosRechazos.aspx.cs
index ddb34f196..2556b6ca7 100644
--- a/CRM/RepAcercamientosRechazos.aspx.cs
+++ b/CRM/RepAcercamientosRechazos.aspx.cs
@@ -27,6 +27,32 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas
         get { return DtDatos = (DataTable)ViewState["DtDatos"]; }
         set { ViewState["DtDatos"] = value; }
     }
+
+    private DataTable DtMedioCaptacion
+    {
+        get
+        {
+            return (DataTable)ViewState["DtMedioCaptacion"];
+        }
+
+        set
+        {
+            ViewState["DtMedioCaptacion"] = value;
+        }
+    }
+
+    private DataTable DtProbabilidadAcercamiento
+    {
+        get
+        {
+            return (DataTable)ViewState["DtProbabilidadAcercamiento"];
+        }
+
+        set
+        {
+            ViewState["DtProbabilidadAcercamiento"] = value;
+        }
+    }
     #endregion
 
     protected void Page_Load(object sender, EventArgs e)
@@ -59,10 +85,12 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas
         if (ObjCRM.GetMedioCaptacion(UsuarioActual.CveEmpresa))
         {
             DdlMedioCaptacion.DataSource = ObjCRM.DtResultados;
+            DtMedioCaptacion = ObjCRM.DtResultados;
         }
         if (ObjCRM.GetProbabilidadAcercamiento(UsuarioActual.CveEmpresa, -1))
         {
             DdlProbabilidad.DataSource = ObjCRM.DtResultados;
+            DtProbabilidadAcercamiento = ObjCRM.DtResultados;
         }
         ObjCRM.Dispose();
 
@@ -289,4 +317,19 @@ public partial class CRM_RepAcercamientosRechazos : ClsPaginas
         }
         UPModalProd.Update();
     }
+
+    protected void DdlTipoProceso_Change(object sender, EventArgs e)
+    {
+        DdlMedioCaptacion.Items.Clear();
+        DdlMedioCaptacion.DataSource = DtMedioCaptacion.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero()));
+        DdlMedioCaptacion.DataBind();
+        DdlMedioCaptacion.Items.Insert(0, new ListItem("Seleccione", "-1"));
+
+        DdlProbabilidad.Items.Clear();
+        DdlProbabilidad.DataSource = DtProbabilidadAcercamiento.FiltraParametros(String.Format("CveTipoProceso = {0}", DdlTipoProceso.SelectedValue.ToEntero()));
+        DdlProbabilidad.DataBind();
+        DdlProbabilidad.Items.Insert(0, new ListItem("Seleccione", "-1"));
+
+        upDatosRepA.Update();
+    }
 }
\ No newline at end of file
diff --git a/Contabilidad2/CatCuentas.aspx.vb b/Contabilidad2/CatCuentas.aspx.vb
index ec0703e44..1f9f6f9d5 100644
--- a/Contabilidad2/CatCuentas.aspx.vb
+++ b/Contabilidad2/CatCuentas.aspx.vb
@@ -295,49 +295,58 @@ Partial Class Contabilidad2_CatCuentas
         Dim PorcentajeImpuesto As Decimal = TxtPorcentaje.Text.ToDecimal() / 100
         Dim CveBancoCuenta As Integer = ddlBancos.SelectedValue.ToEntero
         Dim CveAlmacen As Integer = DdlAlmacen.SelectedValue.ToEntero()
-        If ObjConta.UpdateCuenta(IDSelected.ToEntero, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToString.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString,
-                                CveConceptoAdmin:=CveConceptoAdmin, CveProveedor:=CveProveedor, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto, CveBancoCuenta:=CveBancoCuenta, CveAlmacen:=CveAlmacen) Then
 
-            Dim codigo As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}")
+        If DdlAgrupadorSAT.SelectedValue.ToEntero > 0 Then
 
-            If UsuarioActual.Empresa.TipoContabilidad <> 1 Then
+            If ObjConta.UpdateCuenta(IDSelected.ToEntero, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero,
+                                 TxtDigAgrup.Text.ToString.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString, CveConceptoAdmin:=CveConceptoAdmin,
+                                 CveProveedor:=CveProveedor, CveCliente:=CveCliente, CveClasificacion:=CveClasificacion, PorcentajeImpuesto:=PorcentajeImpuesto,
+                                 CveBancoCuenta:=CveBancoCuenta, CveAlmacen:=CveAlmacen) Then
 
-                Using ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa)
+                Dim codigo As String = DtDatos.FiltroPrimeroValor("Codigo", $"CveCuenta={IDSelected}")
 
-                    If ObjConta2.GetCuentas(-1, "-1", -1) Then
-                        Dim Id As Integer = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigo}'").ToEntero
-                        Dim IdAgrupador As Integer
+                If UsuarioActual.Empresa.TipoContabilidad <> 1 Then
 
-                        If ObjConta2.GetAgrupadoresSAT() Then
-                            IdAgrupador = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"CodigoNombre='{DdlAgrupadorSAT.SelectedItem.Text}'").ToEntero
-                        End If
-                        If Id > 0 Then
-                            If ObjConta2.UpdateCuenta(Id, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero, IdAgrupador, SubCuentaDe:=Tsubcuenta.Text.Trim) > 0 Then
+                    Using ObjConta2 As New ClsContPAQi(UsuarioActual.Empresa)
+
+                        If ObjConta2.GetCuentas(-1, "-1", -1) Then
+                            Dim Id As Integer = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"Codigo='{codigo}'").ToEntero
+                            Dim IdAgrupador As Integer
+
+                            If ObjConta2.GetAgrupadoresSAT() Then
+                                IdAgrupador = ObjConta2.DtResultados.FiltroPrimeroValor("Id", $"CodigoNombre='{DdlAgrupadorSAT.SelectedItem.Text}'").ToEntero
+                            End If
+                            If Id > 0 Then
+                                If ObjConta2.UpdateCuenta(Id, Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero, DdlMoneda.SelectedValue.ToEntero, IdAgrupador, SubCuentaDe:=Tsubcuenta.Text.Trim) > 0 Then
+                                End If
                             End If
                         End If
-                    End If
-                End Using
+                    End Using
+                End If
+
+                Dim customerRow As Data.DataRow
+                customerRow = DtDatos.Select(String.Format("CveCuenta = {0}", IDSelected))(0)
+                customerRow("Nombre") = Tnombre.Text
+                DtDatos.AcceptChanges()
+
+                CargaDatos()
+                ArbolCuentas.DataSource = DtDatos
+
+                Dim item As CheckBox = DirectCast(ArbolCuentas.FindControl(String.Format("chk{0}", IDSelected)), CheckBox)
+                item.Text = String.Format("{0} - {1}", customerRow("CuentaFormato").ToString, Tnombre.Text)
+                'updatos.Visible = False
+                'Guardar.Visible = False
+                LimpiarCampos()
+                'RegistraScript("$get('BtnCambiaAgrupadorSAT').click();")
+                updatos.Update()
+
+                Alert("La cuenta se guardo correctamente")
             End If
-
-            Dim customerRow As Data.DataRow
-            customerRow = DtDatos.Select(String.Format("CveCuenta = {0}", IDSelected))(0)
-            customerRow("Nombre") = Tnombre.Text
-            DtDatos.AcceptChanges()
-
-            CargaDatos()
-            ArbolCuentas.DataSource = DtDatos
-
-            Dim item As CheckBox = DirectCast(ArbolCuentas.FindControl(String.Format("chk{0}", IDSelected)), CheckBox)
-            item.Text = String.Format("{0} - {1}", customerRow("CuentaFormato").ToString, Tnombre.Text)
-            'updatos.Visible = False
-            'Guardar.Visible = False
-            LimpiarCampos()
-            'RegistraScript("$get('BtnCambiaAgrupadorSAT').click();")
-            updatos.Update()
-
-            Alert("La cuenta se guardo correctamente")
+        Else
+            Alert("Es necesario agregar el campo 'Agrupador SAT'", TipoMensaje.MsgError)
         End If
 
+
         ObjConta.Dispose()
 
     End Sub
@@ -356,17 +365,14 @@ Partial Class Contabilidad2_CatCuentas
         Dim CuentaEfectivo As Integer = 0
         Dim Afectable As Integer = 1 'If(DcuentaMayor.SelectedValue <> 2, 0, 1) ' cuando sea tipo 2, va a ser afectable
         Tcuenta.Text.Replace("-", "")
+        Dim idnew As Integer = 0
 
-        Dim idnew As Integer = ObjConta.AddCuenta(
-                IDSelected,
-                TxtCuenta.Text.Replace("-", ""),
-                Tnombre.Text,
-                DTcuenta.SelectedValue.ToString,
-                DcuentaMayor.SelectedValue.ToString.ToEntero,
-                DdlMoneda.SelectedValue.ToEntero,
-                TxtDigAgrup.Text.ToEntero,
-                DdlAgrupadorSAT.SelectedValue.ToEntero,
-                TxtNomIngles.Text.ToString)
+        If DdlAgrupadorSAT.SelectedValue.ToEntero > 0 Then
+            idnew = ObjConta.AddCuenta(IDSelected, TxtCuenta.Text.Replace("-", ""), Tnombre.Text, DTcuenta.SelectedValue.ToString, DcuentaMayor.SelectedValue.ToString.ToEntero,
+                                        DdlMoneda.SelectedValue.ToEntero, TxtDigAgrup.Text.ToEntero, DdlAgrupadorSAT.SelectedValue.ToEntero, TxtNomIngles.Text.ToString)
+        Else
+            Alert("Es necesario agregar el campo 'Agrupador SAT'", TipoMensaje.MsgError)
+        End If
 
         If idnew > 0 Then
 
diff --git a/Ventas/RepTopClientesVentas.aspx.vb b/Ventas/RepTopClientesVentas.aspx.vb
index 69bfc29ed..c2f37c1ef 100644
--- a/Ventas/RepTopClientesVentas.aspx.vb
+++ b/Ventas/RepTopClientesVentas.aspx.vb
@@ -105,10 +105,12 @@ Partial Class Ventas_RepTopClientesVentas
     End Sub
 
     Private Sub CambioGrafica()
+        Dim DtClientesAux As New DataTable
+        DtClientesAux = DtClientes.FiltraParametros("CveCliente > 0")
         Dim Dt As New DataTable()
         Dt.Columns.Add("Cliente")
         Dt.Columns.Add("Importe")
-        For Each Dr As DataRow In DtClientes.Rows
+        For Each Dr As DataRow In DtClientesAux.Rows
             Dim Row As DataRow = Nothing
             Row = Dt.NewRow()
             Row("Cliente") = Dr("NombreComercial").ToString