From 2eaff5409141a2c8fc6dcf85afde5fa255bc2193 Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 21 Feb 2023 19:17:20 -0700 Subject: [PATCH] Mejora en carga de lista de precios --- Ventas/Clientes.aspx | 121 ++++++++++++++++++---------------------- Ventas/Clientes.aspx.vb | 19 +++++-- 2 files changed, 69 insertions(+), 71 deletions(-) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index dcea45992..4bed83d04 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -646,57 +646,46 @@
- +
-
+
- +
- -
- - - -
- -
- - - - - -
-
- - - - - -
-
-
- -
-
+
+ + + +
+
+
+
+
+
+ + + +
+
+
+
+ +
+
+
- - - - - -
@@ -712,23 +701,23 @@
- -
- - Frecuente - Venta Mostrador - - +
+
+
+ + Frecuente + Venta Mostrador + + +
+
+
+
+ + +
+
- -
- - -
- - - -
@@ -1132,7 +1121,7 @@
+ OnSelectedIndexChanged="DdlMetodoPago33_SelectedIndexChanged"> @@ -2017,13 +2006,13 @@ Pago múltiples facturas Pagar múltiples facturas   - + " style="display: inline-block; margin-right: -20px; width: 150px;" /> " style="margin-top: -3px; float: inherit;" class="btn btn-circle btn-sm label-info"> - + @@ -2126,7 +2115,7 @@ - " style="display: inline-block; margin-right: -20px; width: 150px;" /> " @@ -4276,13 +4265,13 @@
- Proyecto: + Proyecto:
- SubProyecto: + SubProyecto:
@@ -4546,15 +4535,15 @@
- +
- - - - + + + +
@@ -6732,7 +6721,7 @@ - + diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index 1d0794060..2feb7d74d 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -910,7 +910,8 @@ Partial Class Clientes CargaDocumentacionCliente() 'TxtPais.Text = "México" - End If + End If + If UsuarioActual.Empresa.CvePlataforma = 3 Then LbAddDispositivo.Visible = True @@ -1334,7 +1335,13 @@ Partial Class Clientes DdlMetodoPagoSucursal.DataBind() 'DdlMetodoPago.DataBind() End Sub - Private Sub CargaPrecioLista() + Private Sub CargaPrecioLista() + 'SI NO TIENE LA FUNCIONALIDAD DE LISTA DE PRECIOS + If Not GlobalDTPrecioListas(UsuarioActual.CveEmpresa).Rows.Count > 0 Then + DdlSubProyecto.AutoPostBack = False + DivPrecioLista.Visible = False + End If + DdlPrecioLista.DataSource = GlobalDTPrecioListas(UsuarioActual.CveEmpresa) DdlPrecioLista.DataBind() DdlPrecioLista.Items.Insert(0, New ListItem(" - ", "-1")) @@ -5838,13 +5845,15 @@ Partial Class Clientes Protected Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) If DdlSubProyecto.SelectedValue.ToEntero() > 0 Then - Dim Dr As DataRow = GlobalDTSubProyectos(-1, DdlSubProyecto.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa).Rows(0) + Dim Dr As DataRow = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyecto.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0) If Dr IsNot Nothing Then If Dr("CvePrecioLista").ToString().ToEntero() > 0 Then DdlPrecioLista.SelectedValueExist(Dr("CvePrecioLista").ToString()) End If End If End If + + UpDatos.Update() End Sub #End Region @@ -8470,8 +8479,8 @@ Partial Class Clientes End Sub - Protected Sub DdlProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyectoFiltro.SelectedIndexChanged - CargarSubProyecto(DdlSubProyecto, DdlProyectoFiltro.SelectedValue) + Protected Sub DdlProyectoFiltro_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProyectoFiltro.SelectedIndexChanged + CargarSubProyecto(DdlSubProyectoFiltro, DdlProyectoFiltro.SelectedValue) End Sub Protected Sub DdlClasificacionFilto_SelectedIndexChanged(sender As Object, e As EventArgs)