- retroalimentación de vencimientos de créditos

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