diff --git a/App_Code/ClsClientes.vb b/App_Code/ClsClientes.vb index 896018f1c..37a7dfa78 100644 --- a/App_Code/ClsClientes.vb +++ b/App_Code/ClsClientes.vb @@ -4,6 +4,7 @@ Option Strict On Imports System.Data Imports System.Data.SqlClient Imports Extensiones +Imports StackExchange.Redis Public Class ClsClientes @@ -259,7 +260,7 @@ Public Class ClsClientes Public Function GetClientes(CveCliente As Integer, Nombre As String, Codigo As String, NombreCorto As String, RFC As String, Telefono As String, Mail As String, CveSubProyecto As Integer, CveEmpresa As Integer, Optional Estatus As Integer = 1, Optional Notificar As String = "-1", Optional CvePrecioLista As Integer = -1, Optional CveClienteClasificacion As Integer = -1, Optional TipoCliente As Integer = -1, Optional CveVendedor As Integer = -1, Optional PermiteCreditoFiltro As Integer = -1, Optional TopSelect As Integer = 10000, Optional CveUsuarioConsulta As Integer = -1, - Optional Cuenta As String = "-1") As Boolean + Optional Cuenta As String = "-1", Optional EnQuebranto As Integer = -1, Optional EnDemanda As Integer = -1) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_ClientesGet") @@ -283,6 +284,8 @@ Public Class ClsClientes .Add("@PermiteCredito", SqlDbType.Int).Value = PermiteCreditoFiltro .Add("@TopSelect", SqlDbType.Int).Value = TopSelect .Add("@Cuenta", SqlDbType.VarChar).Value = Cuenta + .Add("@EnQuebranto", SqlDbType.Int).Value = EnQuebranto + .Add("@EnDemanda", SqlDbType.Int).Value = EnDemanda End With Try diff --git a/Ventas/CatClientes.aspx b/Ventas/CatClientes.aspx index da087eb92..6e9660fbb 100644 --- a/Ventas/CatClientes.aspx +++ b/Ventas/CatClientes.aspx @@ -108,17 +108,30 @@
-
- - + - +
+
En Demanda:
+
+ + Todos + Solo En Demanda + No en Demanda + +
+
En Quebranto:
+
+ + Todos + Solo En Quebranto + No En Quebranto + +
+
- - diff --git a/Ventas/CatClientes.aspx.vb b/Ventas/CatClientes.aspx.vb index 06d87da1a..38c00e4bb 100644 --- a/Ventas/CatClientes.aspx.vb +++ b/Ventas/CatClientes.aspx.vb @@ -25,24 +25,10 @@ Partial Class CatClientes If Not Page.IsPostBack Then ViewState("Orden") = "" - CargaNombreClientes() - - + Inicializa() CargaSucursales() CargaClasificaciones() CargaVendedor() - - 'CargaCorporativo() - - 'CargaDatos() - - PanelContrato.Visible = True - MPContrato.Enabled = True - - - Me.Form.DefaultButton = LbFiltrar.UniqueID - - CargaPersonalizacion() End If @@ -54,14 +40,14 @@ Partial Class CatClientes Dim Nombre, RFC As String Nombre = "-1" RFC = "-1" - If TxtNombre.Text.Trim <> String.Empty Then Nombre = TxtNombre.Text.Trim - If TxtRFC.Text.Trim <> String.Empty Then RFC = TxtRFC.Text.Trim 'If ObjClientes.GetClientes(-1, Nombre, "-1", "-1", RFC, "-1", "-1", DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Estatus:=DdlEstatus.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClasificaciones.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PermiteCreditoFiltro:=If(ChkPermiteCredito.Checked, 1, -1)) Then - If ObjClientes.GetClientes(-1, Nombre, "-1", "-1", RFC, "-1", "-1", DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Estatus:=DdlEstatus.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClasificaciones.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, PermiteCreditoFiltro:=DdlPermiteCredito.SelectedValue.ToEntero) Then - + If ObjClientes.GetClientes(-1, Nombre, "-1", "-1", RFC, "-1", "-1", DdlSubProyecto.SelectedValue.ToEntero, UsuarioActual.CveEmpresa, Estatus:=DdlEstatus.SelectedValue.ToEntero, CveClienteClasificacion:=DdlClasificaciones.SelectedValue.ToEntero, TipoCliente:=DdlTipoCliente.SelectedValue.ToEntero, CveVendedor:=DdlVendedor.SelectedValue.ToEntero, + PermiteCreditoFiltro:=DdlPermiteCredito.SelectedValue.ToEntero, + EnDemanda:=DDlEnDemanda.SelectedValue.ToEntero, + EnQuebranto:=DdlEnQuebranto.SelectedValue.ToEntero) Then If ObjClientes.DtResultados.Rows.Count > 0 Then DTDatos = ObjClientes.DtResultados @@ -70,8 +56,6 @@ Partial Class CatClientes Alert("No se encontraron registros con los parametros solicitados.", Extensiones.TipoMensaje.MsgAdvertencia) End If End If - - ObjClientes.Dispose() If ViewState("Orden").ToString() <> String.Empty Then @@ -79,10 +63,8 @@ Partial Class CatClientes Else CargaGrid("") End If - UPDatos.Update() - End Sub Private Sub CargaSucursales() @@ -96,27 +78,26 @@ Partial Class CatClientes DdlClasificaciones.DataBind() DdlClasificaciones.Items.Insert(0, New ListItem("Todas", "-1")) End Sub - Private Sub CargaNombreClientes() + Private Sub Inicializa() + PanelContrato.Visible = True + MPContrato.Enabled = True + Me.Form.DefaultButton = LbFiltrar.UniqueID DdlClienteAUnificar.setEsWebService(True) DdlClienteAUnificar.SelectedValue = "-1" DdlClienteAUnificar.SelectedText = "Todos" - DdlClienteOriginal.setEsWebService(True) DdlClienteOriginal.SelectedValue = "-1" DdlClienteOriginal.SelectedText = "Todos" - 'DdlClienteAUnificar.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) - 'DdlClienteAUnificar.DataBind() - - 'DdlClienteOriginal.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa) - 'DdlClienteOriginal.DataBind() + If UsuarioActual.CveEmpresa = 119 Then + divfiltro2.Visible = True + End If UpBodyUnificar.Update() End Sub - Private Sub CargaVendedor() DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) DdlVendedor.DataBind() @@ -127,13 +108,8 @@ Partial Class CatClientes CargaDatos() - End Sub - - - - Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click GvDatos.ExportToExcel("RepClientes_" & NowADS().ToShortDateString) End Sub @@ -261,7 +237,7 @@ Partial Class CatClientes End If ObjCliente.Dispose() - CargaNombreClientes() + Inicializa() CargaDatos() End Sub #End Region @@ -276,8 +252,7 @@ Partial Class CatClientes GuardaPersonalizacion() End If - Personaliza() - + Personaliza(True) End Sub @@ -411,7 +386,6 @@ Partial Class CatClientes End If - If objUsuario.AddUsuariosPersonalizaciones(UsuarioActual, "CatClientes.aspx", String.Join("|", ListPersonalizada)) Then 'Alert("Personalizacion guardada") End If @@ -420,13 +394,12 @@ Partial Class CatClientes End Sub - Private Sub CargaPersonalizacion() + Private Sub CargaPersonalizacion(Optional RecargaDatos As Boolean = False) Dim strBasePersonalizacion As String = UsuarioActual.Personalizaciones("CatClientes.aspx") If strBasePersonalizacion.Trim.Length > 0 Then - ChkCodigo.Checked = False ChkNombre.Checked = False ChkRFC.Checked = False @@ -564,7 +537,7 @@ Partial Class CatClientes Next - Personaliza() + Personaliza(RecargaDatos) Else PersonalizaDefault() @@ -577,7 +550,7 @@ Partial Class CatClientes Private Sub PersonalizaDefault() End Sub - Private Sub Personaliza() + Private Sub Personaliza(Optional RecargaDatos As Boolean = False) GvDatos.Columns(0).Visible = ChkCodigo.Checked @@ -614,8 +587,7 @@ Partial Class CatClientes GvDatos.Columns(28).Visible = ChkPermiteCredito.Checked GvDatos.Columns(29).Visible = chkFechaLimiteCredito.Checked - - CargaDatos() + If RecargaDatos Then CargaDatos() UPDatos.Update() End Sub diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 661750fb4..8bb43f4a8 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1694,19 +1694,14 @@ Partial Class Clientes TxtObsDiasRevision.Text = ObjClientes.ObservacionRevision TxtReferenciaFiscal.Text = ObjClientes.ReferenciaFiscal TxtCelular.Text = ObjClientes.Celular - TxtExtOtro.Text = ObjClientes.ExtOtros - - - 'If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122, 145) Then - ' ActivarRegistroAutomatico() - 'End If - + TxtExtOtro.Text = ObjClientes.ExtOtros + ChkEnQuebranto.Checked = ObjClientes.EnQuebranto ChkEnDemanda.Checked = ObjClientes.EnDemanda TxtNombreFirmas.Text = ObjClientes.CreditoRegistroFirmas - If ObjClientes.EnQuebranto Then LblAlertaQuebranto.Text = "En Quebranto" - If ObjClientes.EnDemanda Then LblAlertaQuebranto.Text &= "En Demanda" + If ObjClientes.EnQuebranto Then LblAlertaQuebranto.Text = " En Quebranto " + If ObjClientes.EnDemanda Then LblAlertaQuebranto.Text &= " En Demanda " '7eleven TxtProveedor.Text = ObjClientes.SevenEleven_NumProveedor