CAMBIOS AGREGANDO CAMPOS DE PS Y GIRO DE EMPRESAS EN CLIENTES

App_Code/ClsCRM.vb

@@ -431,7 +431,8 @@ Public Class ClsCRM
         Return Retorno
     End Function
 
-    Public Function AddEmpresaCRM(NombreEmpresa As String, RFC As String, CveMedioCaptacion As Integer, CveEmpresa As Integer, CveUsuarioIng As Integer, CveEncuestaAplicada As Integer, CveVendedor As Integer, Optional CveSubProyecto As Integer = -1, Optional Correo As String = "-1") As Integer
+    Public Function AddEmpresaCRM(NombreEmpresa As String, RFC As String, CveMedioCaptacion As Integer, CveEmpresa As Integer, CveUsuarioIng As Integer, CveEncuestaAplicada As Integer, CveVendedor As Integer,
+                                  Optional CveSubProyecto As Integer = -1, Optional Correo As String = "-1", Optional CveGiroClasificacion As Integer = -1) As Integer
         Dim CveEmpresaCRM As Integer = -1
         DataAdapter("PA_CRM_EmpresaAdd")
         With SqlAdapter.SelectCommand.Parameters
@@ -444,6 +445,7 @@ Public Class ClsCRM
             .Add("@CveVendedor", SqlDbType.Int).Value = CveVendedor
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@Correo", SqlDbType.VarChar).Value = Correo
+            .Add("@CveGiroClasificacion", SqlDbType.Int).Value = CveGiroClasificacion
 
             .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
         End With
@@ -456,7 +458,8 @@ Public Class ClsCRM
         Return CveEmpresaCRM
     End Function
 
-    Public Function UpdateEmpresCRM(NombreEmpresa As String, RFC As String, CveMedioCaptacion As Integer, CveEmpresaCRM As Integer, CveVendedor As Integer, CveUsuarioMod As Integer, Optional CveCliente As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional Correo As String = "-1") As Boolean
+    Public Function UpdateEmpresCRM(NombreEmpresa As String, RFC As String, CveMedioCaptacion As Integer, CveEmpresaCRM As Integer, CveVendedor As Integer, CveUsuarioMod As Integer,
+                                    Optional CveCliente As Integer = -1, Optional CveSubProyecto As Integer = -1, Optional Correo As String = "-1", Optional CveGiroClasificacion As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_CRM_EmpresaUpdate")
         With SqlAdapter.SelectCommand.Parameters
@@ -469,6 +472,7 @@ Public Class ClsCRM
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
             .Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto
             .Add("@Correo", SqlDbType.VarChar).Value = Correo
+            .Add("@CveGiroClasificaciones", SqlDbType.Int).Value = CveGiroClasificacion
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -651,7 +655,8 @@ Public Class ClsCRM
     Public Function GetAcercamiento(CveEmpresa As Integer, Optional CveEmpresaCRM As Integer = -1, Optional CveAcercamiento As Integer = -1, Optional CveTipoProceso As Integer = -1,
                                     Optional CveVendedor As Integer = -1, Optional FechaInicio As String = "-1", Optional FechaFin As String = "-1", Optional NombreAcercamiento As String = "-1",
                                     Optional CveMedioCaptacion As Integer = -1, Optional CveRechazoMotivo As Integer = -1, Optional CveProbabilidad As Integer = -1,
-                                    Optional FechaApertura As String = "-1", Optional FechaCierre As String = "-1", Optional TopSelect As Integer = 10000) As Boolean
+                                    Optional FechaApertura As String = "-1", Optional FechaCierre As String = "-1", Optional TopSelect As Integer = 10000, Optional CvePS As Integer = -1,
+                                    Optional CveGiroClasificacion As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_CRM_AcercamientoGet")
         With SqlAdapter.SelectCommand.Parameters
@@ -675,6 +680,9 @@ Public Class ClsCRM
             .Add("@FechaCierre", SqlDbType.VarChar).Value = FechaCierre
 
             .Add("@TopSelect", SqlDbType.Int).Value = TopSelect
+
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@CveGiroClasificacion", SqlDbType.Int).Value = CveGiroClasificacion
         End With
         Try
             SqlAdapter.Fill(Data)
@@ -688,7 +696,7 @@ Public Class ClsCRM
     Public Function AddAcercamiento(CveEmpresaCRM As Integer, CveContactoPrincipal As Integer, CveTipoProceso As Integer, CveEtapaProcesoActual As Integer, CveVendedor As Integer, CveMedioCaptacion As Integer,
                                     CveRechazoMotivo As Integer, CveProbabilidadAcercamiento As Integer, FechaApertura As DateTime, NombreAcercamiento As String, Descripcion As String, Importe As Double, Comision As Double,
                                     Prioridad As Integer, CveEmpresa As Integer, CveUsuarioIng As Integer,
-                                    Optional FechaCierre As Nullable(Of DateTime) = Nothing) As Integer
+                                    Optional FechaCierre As Nullable(Of DateTime) = Nothing, Optional CvePS As Integer = -1) As Integer
 
         Dim _CveAcercamiento As Integer = -1
         DataAdapter("PA_CRM_AcercamientoAdd")
@@ -714,6 +722,7 @@ Public Class ClsCRM
             .Add("@Prioridad", SqlDbType.Int).Value = Prioridad
             .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
             .Add("@CveUsuarioIng", SqlDbType.Int).Value = CveUsuarioIng
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
 
             .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue
         End With
@@ -729,7 +738,7 @@ Public Class ClsCRM
     Public Function UpdateAcercamiento(CveAcercamiento As Integer, CveContactoPrincipal As Integer, CveTipoProceso As Integer, CveEtapaProcesoActual As Integer, CveVendedor As Integer, CveMedioCaptacion As Integer,
                                     CveProbabilidadAcercamiento As Integer, NombreAcercamiento As String, Descripcion As String, Importe As Double, Comision As Double,
                                     Prioridad As Integer, CveUsuarioMod As Integer, Optional CveRechazoMotivo As Integer = -1, Optional CveEncuestaAplicadaProceso As Integer = -1,
-                                    Optional FechaApertura As Nullable(Of DateTime) = Nothing, Optional FechaCierre As Nullable(Of DateTime) = Nothing) As Boolean
+                                    Optional FechaApertura As Nullable(Of DateTime) = Nothing, Optional FechaCierre As Nullable(Of DateTime) = Nothing, Optional CvePS As Integer = -1) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_CRM_AcercamientoUpdate")
         With SqlAdapter.SelectCommand.Parameters
@@ -755,6 +764,7 @@ Public Class ClsCRM
             .Add("@CveRechazoMotivo", SqlDbType.Int).Value = CveRechazoMotivo
             .Add("@FechaApertura", SqlDbType.DateTime).Value = IIf(FechaApertura Is Nothing, SqlTypes.SqlDateTime.Null, FechaApertura)
             .Add("@FechaCierre", SqlDbType.DateTime).Value = IIf(FechaCierre Is Nothing, SqlTypes.SqlDateTime.Null, FechaCierre)
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
         End With
         Try
             SqlAdapter.Fill(Data)

CRM/Acercamiento.aspx

@@ -405,12 +405,15 @@
                                         </div>
                                         <%-- style="padding-bottom: 17px;" --%>
                                         <div class="form-group form-md-line-input input-iconright">
-                                            <asp:TextBox ID="TxtDescripcion" CssClass="form-control MultiLineTextBox" onkeyDown="checkTextAreaMaxLength(this,event,'200');" TextMode="MultiLine" Rows="3" CausesValidation="true" runat="server" MaxLength="200"></asp:TextBox>
+                                            <asp:TextBox ID="TxtDescripcion" CssClass="form-control MultiLineTextBox" onkeyDown="checkTextAreaMaxLength(this,event,'200');" TextMode="MultiLine" Rows="2" CausesValidation="true" runat="server" MaxLength="200"></asp:TextBox>
                                             <%--<asp:RequiredFieldValidator ID="RFVDescripcion" runat="server" ControlToValidate="TxtDescripcion" CssClass="help-block errorimput" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Descripción''</b> es necesario, por favor ingréselo." ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>--%>
                                             <label style="height: 83px;" for="<%= TxtDescripcion.ClientID.ToString()%>">Descripción del Proyecto:</label>
                                             <i></i>
                                         </div>
-
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <label style="color:#888888" for="<%= DdlPS.ClientID.ToString()%>">Producto Servicio:</label>
+                                            <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClassDdl="form-control select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
+                                        </div>
                                     </div>
                                 </div>
                             </div>

CRM/Acercamiento.aspx.cs

@@ -234,6 +234,18 @@ public partial class CRM_Acercamiento : ClsPaginas
             ViewState["CveAcercamientoGasto"] = value;
         }
     }
+    private int CvePS
+    {
+        get
+        {
+            return ViewState["CvePS"] == null ? -1 : ViewState["CvePS"].ToString().ToEntero();
+        }
+
+        set
+        {
+            ViewState["CvePS"] = value;
+        }
+    }
     #endregion
 
     protected void Page_Load(object sender, EventArgs e)
@@ -269,6 +281,7 @@ public partial class CRM_Acercamiento : ClsPaginas
                     }
                 }
             }
+            CargarPS();
         }
     }
 
@@ -322,6 +335,8 @@ public partial class CRM_Acercamiento : ClsPaginas
                 CveEncuestaAplicadaProceso = (ObjCRM.DtResultados.FiltroPrimeroValor("CveEncuestaAplicadaProceso").ToEntero() > 0) ? ObjCRM.DtResultados.FiltroPrimeroValor("CveEncuestaAplicadaProceso").ToEntero() : -1;
                 //CveEtapaBitacoraSeleccionada = CveEtapaActual;
 
+                CvePS = ObjCRM.DtResultados.FiltroPrimeroValor("CvePS").ToEntero();
+
                 HdfEtapaSeleccionada.Value = CveEtapaActual.ToString();
                 //INHABILITAMOS CAMPOS QUE NO SE PUEDEN EDITAR
                 DdlEmpresaCRM.Enabled = false;
@@ -556,6 +571,17 @@ public partial class CRM_Acercamiento : ClsPaginas
         if (DTEtapasProceso.FiltroPrimeroValor("CveTipoEtapa", String.Format("CveEtapaProceso = {0}", DdlEtapaProceso.SelectedValue.ToEntero())).Contiene("1", "2", "3"))
             GuardarCambioEtapa();
     }
+
+    private void CargarPS()
+    {
+        DdlPS.setEsWebService(true);
+        if(CvePS > 0)
+        {
+            string productoAsignado = get_GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CvePS: CvePS).FiltroPrimeroValor("PSCodigo");
+            DdlPS.SelectedValue = CvePS.ToString();
+            DdlPS.SelectedText = productoAsignado;
+        }
+    }
     #endregion
 
     #region "GUARDAR"
@@ -605,7 +631,7 @@ public partial class CRM_Acercamiento : ClsPaginas
             }
 
             if ((CveEncuestaAplicadaProceso != 0) && ObjCRM.UpdateAcercamiento(CveAcercamiento, CveContactoPrincipal, CveTipoProceso, CveEtapaProcesoActualActualizar, CveVendedor, CveMedioCaptacion, CveProbabilidadAcercamiento,
-                                            NombreAcercamiento, Descripcion, Importe, Comision, Prioridad, UsuarioActual.CveUsuario, CveEncuestaAplicadaProceso: CveEncuestaAplicadaProceso, FechaApertura: FechaApertura, FechaCierre: FechaCierre))
+                                            NombreAcercamiento, Descripcion, Importe, Comision, Prioridad, UsuarioActual.CveUsuario, CveEncuestaAplicadaProceso: CveEncuestaAplicadaProceso, FechaApertura: FechaApertura, FechaCierre: FechaCierre, CvePS:DdlPS.SelectedValue.ToEntero()))
             {
                 //String MensajeBitacora = (CveEtapaProcesoActualActualizar != CveEtapaActual) ? String.Format("Se actualizó la etapa del acercamiento a {0}.", DTEtapasProceso.FiltroPrimeroValor("EtapaProceso", "CveEtapaProceso = " + CveEtapaProcesoActualActualizar)) : String.Format("Se actualizó el Acercamiento {0} con Vendedor {2} y Contacto Principal {3}.", NombreAcercamiento, DdlTipoProceso.SelectedItem, DdlVendedor.SelectedItem, DdlContactoPrincipal.SelectedValue == "-1" ? "aun no asignado" : DdlContactoPrincipal.SelectedItem.Text);
 
@@ -671,7 +697,7 @@ public partial class CRM_Acercamiento : ClsPaginas
         int CveUsuarioIng = UsuarioActual.CveUsuario;
 
         if (ObjCRM.UpdateAcercamiento(CveAcercamiento, CveContactoPrincipal, CveTipoProceso, CveEtapaProcesoActualActualizar, CveVendedor, CveMedioCaptacion, CveProbabilidadAcercamiento,
-                                      NombreAcercamiento, Descripcion, Importe, Comision, Prioridad, UsuarioActual.CveUsuario, CveEncuestaAplicadaProceso: CveEncuestaAplicadaProceso, FechaApertura: FechaApertura, FechaCierre: FechaCierre))
+                                      NombreAcercamiento, Descripcion, Importe, Comision, Prioridad, UsuarioActual.CveUsuario, CveEncuestaAplicadaProceso: CveEncuestaAplicadaProceso, FechaApertura: FechaApertura, FechaCierre: FechaCierre, CvePS: DdlPS.SelectedValue.ToEntero()))
         {
             CveEtapaActual = CveEtapaProcesoActualActualizar;
             HdfEtapaSeleccionada.Value = CveEtapaProcesoActualActualizar.ToString();

CRM/EmpresaCRM.aspx

@@ -109,6 +109,11 @@
                                             <asp:RequiredFieldValidator ID="RFVSubProyecto" CssClass="help-block errorimput" runat="server" ControlToValidate="DdlSucursales" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Sucursal''</b> es necesario." InitialValue="-1" ValidationGroup="GrpGuardar"></asp:RequiredFieldValidator>
                                         </div>
 
+                                        <div class="form-group form-md-line-input input-iconright">
+                                            <asp:DropDownList ID="DdlGiroClasificacion" Width="50%" runat="server" DataValueField="CveClienteClasificacion" DataTextField="ClienteClasificacion" AppendDataBoundItems="true" CssClass="form-control input-sm select2me"></asp:DropDownList>
+                                            <label for="<%=DdlGiroClasificacion.ClientID.ToString()%>">Giro:</label>
+                                        </div>
+
 
                                         <%-- DATOS DINAMICOS - TABLA ENCUESTA --%>
                                         <asp:UpdatePanel ID="UpDatosTecnicos" runat="server" UpdateMode="Conditional">
@@ -676,6 +681,12 @@
                                 </div>
 
                             </div>
+                            <div class="row">
+                                <div class="form-group col-md-6 form-md-line-input input-iconright">
+                                    <label style="color:#888888" for="<%= DdlPS.ClientID.ToString()%>">Producto Servicio:</label>
+                                    <ADS:Dropdownlost runat="server" ID="DdlPS" CssStyle="width:100%" CssClassDdl="form-control select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
+                                </div>
+                            </div>
 
                         </div>
 

CRM/EmpresaCRM.aspx.cs

@@ -217,6 +217,19 @@ public partial class CRM_EmpresaCRM : ClsPaginas
             ViewState["DtProbabilidadAcercamiento"] = value;
         }
     }
+
+    private int CveGiroClasificacion
+    {
+        get
+        {
+            return ViewState["CveGiroClasificacion"].ToString().ToEntero();
+        }
+
+        set
+        {
+            ViewState["CveGiroClasificacion"] = value;
+        }
+    }
     #endregion 
 
     protected void Page_Load(object sender, EventArgs e)
@@ -237,6 +250,8 @@ public partial class CRM_EmpresaCRM : ClsPaginas
                 CargaDatosTecnicos();
             }
             VerificaPermisos();
+            CargaClasificaciones();
+            DdlPS.setEsWebService(true);
         }
     }
 
@@ -274,7 +289,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
             {
                 string Mensaje = "";
                 //DATOS GENERALES
-                CveEmpresaCRM = ObjCRM.AddEmpresaCRM(NombreEmpresa, RFC, CveMedioCaptacion, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, CveEncuestaAplicada, CveVendedorActualizar, CveSubProyecto, Correo);
+                CveEmpresaCRM = ObjCRM.AddEmpresaCRM(NombreEmpresa, RFC, CveMedioCaptacion, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, CveEncuestaAplicada, CveVendedorActualizar, CveSubProyecto, Correo, DdlGiroClasificacion.SelectedValue.ToEntero());
 
                 if (CveEmpresaCRM > 0)
                 {
@@ -321,7 +336,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
                 CveEncuestaAplicada = GuardaDatosTecnicos(ObjDatosTecnicos, CveEncuestaAplicada);
             }
 
-            if ((CveEncuestaAplicada != 0) && ObjCRM.UpdateEmpresCRM(NombreEmpresa, RFC, CveMedioCaptacion, CveEmpresaCRM, CveVendedorActualizar, UsuarioActual.CveUsuario, CveSubProyecto: CveSubProyecto, Correo: Correo))
+            if ((CveEncuestaAplicada != 0) && ObjCRM.UpdateEmpresCRM(NombreEmpresa, RFC, CveMedioCaptacion, CveEmpresaCRM, CveVendedorActualizar, UsuarioActual.CveUsuario, CveSubProyecto: CveSubProyecto, Correo: Correo,CveGiroClasificacion:DdlGiroClasificacion.SelectedValue.ToEntero()))
             {
                 if (!ObjBitacora.AddEventoBitacora(String.Format("Se actualizó la empresa {0} con RFC {1}", NombreEmpresa, RFC), "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveEmpresaCRM: CveEmpresaCRM))
                 {
@@ -628,8 +643,9 @@ public partial class CRM_EmpresaCRM : ClsPaginas
                 CveVendedor = ObjCRM.DtResultados.FiltroPrimeroValor("CveVendedorAsignado").ToEntero();
                 CveSubProyecto = ObjCRM.DtResultados.FiltroPrimeroValor("CveSubProyecto").ToEntero();
                 CveCliente = ObjCRM.DtResultados.FiltroPrimeroValor("CveCliente").ToEntero();
+                CveGiroClasificacion = ObjCRM.DtResultados.FiltroPrimeroValor("CveGiroClasificacion").ToEntero();
 
-                if(!(CveCliente > 0))
+                if (!(CveCliente > 0))
                 {
                     HplCrearCliente.Visible = true;
                     HplCrearCliente.NavigateUrl = String.Format("/Ventas/Clientes.aspx?CveEmpresaCRM={0}", CveEmpresaCRM);
@@ -652,6 +668,8 @@ public partial class CRM_EmpresaCRM : ClsPaginas
                 BtnEliminarEmpresa.Enabled = false;
 
                 DivBitacora.Visible = false;
+
+                CveGiroClasificacion = -1;
             }
 
             ObjCRM.Dispose();
@@ -665,6 +683,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
         else
         {
             CreaTempDTContactos();
+            CveGiroClasificacion = -1;
         }
 
         DdlVendedorAsignado.SelectedValueExist(CveVendedor);
@@ -1429,7 +1448,7 @@ public partial class CRM_EmpresaCRM : ClsPaginas
         if (ObjCRM.DtResultados.Rows.Count > 0)
         {
             CveAcercamiento = ObjCRM.AddAcercamiento(CveEmpresaCRM, CveContactoPrincipal, CveTipoProceso, CveEtapaProcesoActual, CveVendedor, CveMedioCaptacion, CveRechazoMotivo, CveProbabilidadAcercamiento,
-                                        FechaApertura, NombreAcercamiento, Descripcion, Importe, Comision, Prioridad, UsuarioActual.CveEmpresa, CveUsuarioIng);
+                                        FechaApertura, NombreAcercamiento, Descripcion, Importe, Comision, Prioridad, UsuarioActual.CveEmpresa, CveUsuarioIng, CvePS:DdlPS.SelectedValue.ToEntero());
         }else
         {
             Alert("No tiene 'Etapa Proceso' con el 'Proceso' seleccionado al agregar el Acercamiento",ModExtensiones.TipoMensaje.MsgAdvertencia);
@@ -1487,7 +1506,9 @@ public partial class CRM_EmpresaCRM : ClsPaginas
                 BtnEliminarEmpresa.Visible = false;
 
             if (!UsuarioActual.TienePermisoProceso(251))
+            {
                 LnkAgregarAcercamiento.Visible = false;
+            }
 
             if ((UsuarioActual.CveVendedor != CveVendedor))
             {
@@ -1545,4 +1566,13 @@ public partial class CRM_EmpresaCRM : ClsPaginas
         CargaMetodosCaptacion();
         UpDatos.Update();
     }
+
+    private void CargaClasificaciones()
+    {
+        DataTable dtGiroClasificaciones = get_GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa);
+        DdlGiroClasificacion.DataSource = dtGiroClasificaciones;
+        DdlGiroClasificacion.DataBind();
+        DdlGiroClasificacion.Items.Insert(0, new ListItem("Seleccione", "-1"));
+        DdlGiroClasificacion.SelectedValueExist(CveGiroClasificacion);
+    }
 }

CRM/RepAcercamientos.aspx

@@ -20,7 +20,7 @@
                 <div class="portlet-title portlet-filterT smalltitle">
                     <div class="tools">
                         <asp:Button ID="BtnConsultar" runat="server" Text="Consultar" OnClick="BtnConsultar_Click" class="btn btn-primary" ValidationGroup="Valida" />
-                        <%--<a href="javascript:;" class="expand"></a>--%>
+                        <a href="javascript:;" class="expand"></a>
                     </div>
 
                     <div class="titlefiltros  caption">
@@ -54,13 +54,24 @@
                                 <ajax:CalendarExtender runat="server" ID="CEFechaSolicitudF" TargetControlID="TxtFechaFin" PopupButtonID="imgFechaFin" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                             </div>
 
+                            <label class="col-md-1" style="width: 30px; margin-top: 5px;">PS:</label>
+                            <div class="col-md-2">
+                                <div style="width:100%">
+                                    <ADS:Dropdownlost runat="server" Width="100%" ID="DdlPS" CssClassDdl="table-group-action-input form-control input-inline input-small input-sm select2me" DataTextField="PSCodigo" DataValueField="CvePS" />
+                                </div>
+                            </div>
+
                         </div>
                     </div>
                 </div>
-                <%-- <div class="portlet-body" style="display: none;">
+                 <div class="portlet-body" style="display: none;">
                     <div class="row" style="margin-left: 10px; margin-top: 10px;">
+                        <label class="col-md-1" style="width: 90px;"">Giro:</label>
+                        <div class="col-md-2">
+                            <asp:DropDownList ID="DdlGiroClasificacion" Width="100%" runat="server" DataValueField="CveClienteClasificacion" DataTextField="ClienteClasificacion" AppendDataBoundItems="true" CssClass="form-control input-sm select2me"></asp:DropDownList>
+                        </div>
                     </div>
-                </div>--%>
+                </div>
             </div>
         </ContentTemplate>
     </asp:UpdatePanel>

CRM/RepAcercamientos.aspx.cs

@@ -5,6 +5,7 @@ using System.Web;
 using System.Web.UI;
 using System.Web.UI.WebControls;
 using Extensiones;
+using System.Data;
 
 public partial class CRM_RepAcercamientos : ClsPaginas
 {
@@ -42,13 +43,13 @@ public partial class CRM_RepAcercamientos : ClsPaginas
     {
         CveVendedor = DdlVendedor.SelectedValue.ToEntero();
 
-        if (CveVendedor > 0)
+        if (true)
         {
             string FechaInicio = TxtFechaInicio.Text == "" ? "-1" : TxtFechaInicio.Text;
             string FechaFin = TxtFechaFin.Text == "" ? "-1" : TxtFechaFin.Text;
-
+            int CvePS = DdlPS.SelectedValue.ToEntero() == 0 ? -1 : DdlPS.SelectedValue.ToEntero();
             ClsCRM ObjCRM = new ClsCRM();
-            if (ObjCRM.GetAcercamiento(UsuarioActual.CveEmpresa, CveVendedor: CveVendedor, FechaInicio: FechaInicio, FechaFin: FechaFin))
+            if (ObjCRM.GetAcercamiento(UsuarioActual.CveEmpresa, CveVendedor: CveVendedor, FechaInicio: FechaInicio, FechaFin: FechaFin, CvePS: CvePS, CveGiroClasificacion:DdlGiroClasificacion.SelectedValue.ToEntero()))
             {
                 GVDatos.DataSource = ObjCRM.DtResultados;
                 GVDatos.DataBind();
@@ -84,6 +85,12 @@ public partial class CRM_RepAcercamientos : ClsPaginas
         //CALCULAMOS EL INTERVALO DE LA SEMANA ACTUAL
         TxtFechaInicio.Text = DateTime.Now.AddDays(-((int)DateTime.Now.DayOfWeek) + 1).ToShortDateString();
         //TxtFechaFin.Text = DateTime.Now.AddDays((7 - (int)DateTime.Now.DayOfWeek)).ToShortDateString();
+        DdlPS.setEsWebService(true);
+
+        DataTable dtGiroClasificaciones = get_GlobalDTClienteClasificaciones(UsuarioActual.CveEmpresa);
+        DdlGiroClasificacion.DataSource = dtGiroClasificaciones;
+        DdlGiroClasificacion.DataBind();
+        DdlGiroClasificacion.Items.Insert(0, new ListItem("Seleccione", "-1"));
     }
     #endregion
 }

Ventas/Clientes.aspx

@@ -577,10 +577,10 @@
                                             <asp:TextBox ID="TxtPagina" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
                                             <label for="<%= TxtPagina.ClientID.ToString()%>">Página: </label>
                                         </div>
-                                        <div class="form-group form-md-line-input">
+                                        <%--<div class="form-group form-md-line-input">
                                             <asp:TextBox ID="TxtGiro" CssClass="form-control" runat="server" MaxLength="50"></asp:TextBox>
                                             <label for="<%= TxtGiro.ClientID.ToString()%>">Giro:</label>
-                                        </div>
+                                        </div>--%>
                                         <div class="form-group form-md-line-input input-iconright">
                                             <asp:TextBox ID="TxtNotificar" CssClass="form-control" runat="server" MaxLength="300"></asp:TextBox>
                                             <asp:RegularExpressionValidator ID="REVEnotificar" runat="server" CssClass="help-block errorimput" ValidationExpression="(([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)(\s*;\s*|\s*$))*" ControlToValidate="TxtNotificar" ErrorMessage="<b><span style='text-decoration: underline'>ERROR:</span></b><br />El campo <b>''Notificar A''</b> no es válido, por favor ingrése uno correcto." ValidationGroup="GrpGuardar"></asp:RegularExpressionValidator>
@@ -607,7 +607,7 @@
                                         <div class="form-group form-md-line-input input-iconright" id="DivPortletAsignaciones" runat="server">
                                             <asp:DropDownList ID="DdlClasificacion" DataValueField="CveClienteClasificacion" DataTextField="ClienteClasificacion" Width="150px" runat="server" CssClass="form-control  select2me">
                                             </asp:DropDownList>
-                                            <label for="<%= DdlClasificacion.ClientID.ToString()%>">Clasificación:</label>
+                                            <label for="<%= DdlClasificacion.ClientID.ToString()%>">Giro:</label>
                                         </div>
 
                                         <div class="form-group form-md-line-input input-iconright" id="Div1" runat="server">

Ventas/Clientes.aspx.vb

@@ -1465,7 +1465,7 @@ Partial Class Clientes
                 TxtEmailCotizacion.Text = ObjClientes.MailCotizacion
                 TxtNotificar.Text = ObjClientes.NotificarA
                 TxtPagina.Text = ObjClientes.Pagina
-                TxtGiro.Text = ObjClientes.Giro
+                'TxtGiro.Text = ObjClientes.Giro
                 DdlPrecioLista.SelectedValue = ObjClientes.CvePrecioLista.ToString
                 TxtCC.Text = ObjClientes.NotificarA
                 ChkMail.Checked = ObjClientes.EnviarFactura
@@ -2520,11 +2520,11 @@ Partial Class Clientes
                 MetodoPago = 1
             End If
 
-
+            Dim Giro As String = If(DdlClasificacion.SelectedValue.ToEntero() <> -1, DdlClasificacion.SelectedItem.Text, "")
 
 
             If ObjClientes.AddCliente(TxtNombre.Text.Trim, TxtNombreComercial.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtCiudad.Text.Trim, DdlEstadoSAT.SelectedItem.Text.Trim, DdlSATPais.SelectedItem.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim, TxtTelefono.Text.Trim.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""),
-                                    TxtContacto.Text.Trim, TxtEmail.Text.Trim, TxtEmailCotizacion.Text.Trim, TxtNotificar.Text.Trim, TxtPagina.Text.Trim, TxtGiro.Text.Trim, DdlPrecioLista.SelectedValue.ToEntero, ChkMail.Checked, TxtRetIVA.Text.ToDouble,
+                                    TxtContacto.Text.Trim, TxtEmail.Text.Trim, TxtEmailCotizacion.Text.Trim, TxtNotificar.Text.Trim, TxtPagina.Text.Trim, Giro, DdlPrecioLista.SelectedValue.ToEntero, ChkMail.Checked, TxtRetIVA.Text.ToDouble,
                                     TxtRetISR.Text.ToDouble, ChkRetIVAFletesAcarreos.Checked, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, TxtNombreCorto.Text.Trim, DdlVendedor.SelectedValue.ToEntero, TxtPlazoCobranza.Text.Trim.ToEntero, TxtPlazoCobranzaRemision.Text.Trim.ToEntero,
                                     DiasPago, DdlTipoPago.SelectedValue, DdlCtaContableClientes.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableAnticipos.SelectedValue.ToEntero,
                                     DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetIVA.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetISR.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableFondoGarantia.SelectedValue.ToEntero,
@@ -2617,9 +2617,9 @@ Partial Class Clientes
             Else
                 NombreCliente = TxtNombre.Text.Trim()
             End If
-
+            Dim Giro As String = If(DdlClasificacion.SelectedValue.ToEntero() <> -1, DdlClasificacion.SelectedItem.Text, "")
             If ObjClientes.UpdateCliente(NombreCliente, TxtNombreComercial.Text.Trim, TxtDireccion.Text.Trim, TxtNoExt.Text.Trim, TxtNoInt.Text.Trim, TxtColonia.Text.Trim, TxtLocalidad.Text.Trim, TxtCiudad.Text.Trim, DdlEstadoSAT.SelectedItem.Text.Trim, DdlSATPais.SelectedItem.Text.Trim, TxtRFC.Text.Trim, TxtCP.Text.Trim,
-                                        TxtTelefono.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), TxtContacto.Text.Trim, TxtEmail.Text.Trim, TxtEmailCotizacion.Text.Trim, TxtNotificar.Text.Trim, TxtPagina.Text, TxtGiro.Text, DdlPrecioLista.SelectedValue.ToEntero, ChkMail.Checked, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, ChkRetIVAFletesAcarreos.Checked,
+                                        TxtTelefono.Text.Trim.Replace(" ", "").Replace("(", "").Replace(")", "").Replace("-", "").Replace("_", ""), TxtContacto.Text.Trim, TxtEmail.Text.Trim, TxtEmailCotizacion.Text.Trim, TxtNotificar.Text.Trim, TxtPagina.Text, Giro, DdlPrecioLista.SelectedValue.ToEntero, ChkMail.Checked, TxtRetIVA.Text.ToDouble, TxtRetISR.Text.ToDouble, ChkRetIVAFletesAcarreos.Checked,
                                         ChkEstado.Checked, TxtNombreCorto.Text.Trim, DdlVendedor.SelectedValue.ToEntero, TxtPlazoCobranza.Text.Trim.ToEntero, TxtPlazoCobranzaRemision.Text.Trim.ToEntero, DiasPago, DdlTipoPago.SelectedValue,
                                         DdlCtaContableClientes.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableAnticipos.SelectedValue.ToEntero, DdlCtaContableAnticipos.SelectedItem.Text, DdlCtaContableRetIVA.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableRetISR.SelectedValue.ToEntero,
                                         DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableFondoGarantia.SelectedValue.ToEntero, DdlCtaContableClientes.SelectedItem.Text, DdlCtaContableCompClientes.SelectedValue.ToEntero, DdlCtaContableCompClientes.SelectedItem.Text, DdlCtaContableCompAnticipos.SelectedValue.ToEntero, DdlCtaContableCompAnticipos.SelectedItem.Text,