- retroalimentación de vencimientos de créditos

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

Ventas/CatClientes.aspx

@@ -108,17 +108,30 @@
                         <div class="col-md-2  truncate" style="max-width: 283px!important">
                             <asp:DropDownList ID="DdlVendedor" runat="server" DataTextField="Vendedor" DataValueField="CveVendedor" ValidationGroup="GrpFiltrar" CssClass=" form-control  input-sm select2me" Width="100%">
                             </asp:DropDownList>
-                        </div>
+                        </div> 
-
-
 
                     </div>
-                     
+                    <div class="row" id="divfiltro2" runat="server" visible="false">
+                        <div class="col-md-1  truncate" >En Demanda:</div>
+                        <div class=" col-md-2  truncate" style="max-width: 283px!important">
+                            <asp:DropDownList ID="DDlEnDemanda" runat="server"  CssClass=" form-control  input-sm select2me" ValidationGroup="GrpFiltrar" Width="100%">
+                                <asp:ListItem Value="-1" Selected="True">Todos</asp:ListItem>
+                                <asp:ListItem Value="1">Solo En Demanda</asp:ListItem>
+                                <asp:ListItem Value="2">No en Demanda</asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                        <div class="col-md-1  truncate" >En Quebranto:</div>
+                        <div class=" col-md-2  truncate" style="max-width: 283px!important">
+                            <asp:DropDownList ID="DdlEnQuebranto" runat="server"   CssClass=" form-control  input-sm select2me" ValidationGroup="GrpFiltrar" Width="100%">
+                                 <asp:ListItem Value="-1" Selected="True">Todos</asp:ListItem>
+                                 <asp:ListItem Value="1">Solo En Quebranto</asp:ListItem>
+                                 <asp:ListItem Value="2">No En Quebranto</asp:ListItem>
+                            </asp:DropDownList>
+                        </div>
+                    </div>                     
                 </div>
-
             </div>
 
-
         </ContentTemplate>
     </asp:UpdatePanel>
 

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)
+        If UsuarioActual.CveEmpresa = 119 Then
-        'DdlClienteAUnificar.DataBind()
+            divfiltro2.Visible = True
-
+        End If
-        'DdlClienteOriginal.DataSource = GlobalDTCliente(UsuarioActual.CveEmpresa)
-        'DdlClienteOriginal.DataBind()
 
         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
 
-
+        If RecargaDatos Then CargaDatos()
-        CargaDatos()
         UPDatos.Update()
 
     End Sub

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
+                TxtExtOtro.Text = ObjClientes.ExtOtros
-
+
-
-                'If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122, 145) Then
-                '    ActivarRegistroAutomatico()
-                'End If
-
                 ChkEnQuebranto.Checked = ObjClientes.EnQuebranto
                 ChkEnDemanda.Checked = ObjClientes.EnDemanda
                 TxtNombreFirmas.Text = ObjClientes.CreditoRegistroFirmas
 
-                If ObjClientes.EnQuebranto Then LblAlertaQuebranto.Text = "En Quebranto"
+                If ObjClientes.EnQuebranto Then LblAlertaQuebranto.Text = " En Quebranto "
-                If ObjClientes.EnDemanda Then LblAlertaQuebranto.Text &= "En Demanda"
+                If ObjClientes.EnDemanda Then LblAlertaQuebranto.Text &= " En Demanda "
 
                 '7eleven
                 TxtProveedor.Text = ObjClientes.SevenEleven_NumProveedor