From 390ebee321d601bd5839193c8b556c5ce3bc12af Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Tue, 4 Jan 2022 15:45:51 -0700 Subject: [PATCH] SIG. Carga de precio lista al cargar el cliente en ventas.aspx --- Ventas/Ventas.aspx.vb | 93 ++++++++++++++++++++++++------------------- 1 file changed, 52 insertions(+), 41 deletions(-) diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index aba1200fa..85ab6db76 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -1929,12 +1929,21 @@ Partial Class Ventas Private Property CvePrecioLista As Integer Get - Return ViewState("CvePrecioLista").ToString().ToEntero() + Return IfNull(ViewState("CvePrecioLista"), 0, ViewState("CvePrecioLista").ToString().ToEntero()).ToString().ToEntero() End Get Set(value As Integer) ViewState("CvePrecioLista") = value End Set End Property + Private Property CvePrecioListaCliente As Integer + Get + Return IfNull(ViewState("CvePrecioListaCliente"), 0, ViewState("CvePrecioListaCliente").ToString().ToEntero()).ToString().ToEntero() + End Get + Set(value As Integer) + ViewState("CvePrecioListaCliente") = value + End Set + End Property + Private Property FacturarSucursal As Boolean Get Return CBool(IfNull(ViewState("FacturarSucursal"), "False", ViewState("FacturarSucursal"))) @@ -2114,6 +2123,7 @@ Partial Class Ventas ViewState("ClienteRetIVA") = 0 ViewState("ClienteRetISR") = 0 ViewState("CvePrecioLista") = 0 + ViewState("CvePrecioListaCliente") = 0 idCuentaContabilizacion = 1 CveEmpresaCRM = 0 CveAcercamientoCRM = 0 @@ -5749,6 +5759,7 @@ Partial Class Ventas ViewState("CodCliente") = ObjCliente.Codigo ViewState("CvePrecioLista") = ObjCliente.CvePrecioLista + ViewState("CvePrecioListaCliente") = ObjCliente.CvePrecioLista ViewState("CliNoExt") = ObjCliente.NoExt ViewState("CliNoInt") = ObjCliente.NoInt @@ -16198,7 +16209,7 @@ Partial Class Ventas If TipoPrecioLista = 10 Then - CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero() + CvePrecioListaPS = Me.CvePrecioListaCliente 'GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero() If CvePrecioListaPS <= 0 Then CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero() @@ -16210,7 +16221,7 @@ Partial Class Ventas CvePrecioListaPS = GlobalDTSubProyectos(-1, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero(), CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("CvePrecioLista", "").ToEntero() If CvePrecioListaPS <= 0 Then - CvePrecioListaPS = GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero() + CvePrecioListaPS = Me.CvePrecioListaCliente 'GlobalDTCliente(UsuarioActual.CveEmpresa, Estatus:=-1, CveCliente:=CveCliente).FiltroPrimeroValor("CvePrecioLista").ToEntero() End If @@ -21931,10 +21942,10 @@ Partial Class Ventas Dim DtDireccionEnvio As DataTable = Nothing - Dim ObjClientes As New ClsClientes - If ObjClientes.DireccionEnvioGet(DdlDireccionEnvio.SelectedValue.ToEntero(), CveCliente, CveClienteSucursal) Then - DtDireccionEnvio = ObjClientes.DtResultados - End If + Dim ObjClientes As New ClsClientes + If ObjClientes.DireccionEnvioGet(DdlDireccionEnvio.SelectedValue.ToEntero(), CveCliente, CveClienteSucursal) Then + DtDireccionEnvio = ObjClientes.DtResultados + End If ObjClientes.Dispose() If DtDireccionEnvio IsNot Nothing And DtDireccionEnvio.Rows.Count > 0 Then @@ -21979,7 +21990,7 @@ Partial Class Ventas RegistraScript("$('#divAddDireccionEnvio').modal();") End Sub -#Region "D I R E C C I O N E N V I O - C O M B O S" +#Region "D I R E C C I O N E N V I O - C O M B O S" Protected Sub BtnDirClienteValidar_Click(sender As Object, e As EventArgs) DirClientevalidaCodigoPostal() End Sub @@ -21993,27 +22004,27 @@ Partial Class Ventas Private Sub CargaDirClientePais() - DdlDirClientePais.DataSource = GlobalDTGralPaises() - DdlDirClientePais.DataBind() - DdlDirClientePais.SelectedValueExist("151") - End Sub - - Private Sub CargaDirClienteEstado() - DdlDirClienteEstado.Items.Clear() - If DdlDirClientePais.SelectedValue.ToEntero > 0 Then - DdlDirClienteEstado.DataSource = GlobalDTGralEstados("-1", DdlDirClientePais.SelectedValue.ToEntero) - End If - DdlDirClienteEstado.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlDirClienteEstado.DataBind() + DdlDirClientePais.DataSource = GlobalDTGralPaises() + DdlDirClientePais.DataBind() + DdlDirClientePais.SelectedValueExist("151") End Sub - Private Sub CargaDirClienteColonia() - DdlDirClienteColonia.Items.Clear() + Private Sub CargaDirClienteEstado() + DdlDirClienteEstado.Items.Clear() + If DdlDirClientePais.SelectedValue.ToEntero > 0 Then + DdlDirClienteEstado.DataSource = GlobalDTGralEstados("-1", DdlDirClientePais.SelectedValue.ToEntero) + End If + DdlDirClienteEstado.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlDirClienteEstado.DataBind() + End Sub + + Private Sub CargaDirClienteColonia() + DdlDirClienteColonia.Items.Clear() If DdlDirClienteMunicipio.SelectedValue.ToEntero > 0 Then DdlDirClienteColonia.DataSource = GlobalDTGralColonias("-1", "-1", "-1", DdlDirClienteMunicipio.SelectedValue.ToEntero, CodigoPostal:=If(TxtEnvioCP.Text.Trim.Length > 0, TxtEnvioCP.Text.ToEntero, -1)) - End If - DdlDirClienteColonia.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlDirClienteColonia.DataBind() + End If + DdlDirClienteColonia.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlDirClienteColonia.DataBind() End Sub @@ -22030,24 +22041,24 @@ Partial Class Ventas End Sub Private Sub CargaDirClienteMunicipio() - DdlDirClienteMunicipio.Items.Clear() - If DdlDirClienteEstado.SelectedValue.ToEntero > 0 Then - DdlDirClienteMunicipio.DataSource = GlobalDTGralMunicipios("-1", DdlDirClienteEstado.SelectedValue.ToEntero) - End If - DdlDirClienteMunicipio.Items.Insert(0, New ListItem("Seleccione", "-1")) - DdlDirClienteMunicipio.DataBind() + DdlDirClienteMunicipio.Items.Clear() + If DdlDirClienteEstado.SelectedValue.ToEntero > 0 Then + DdlDirClienteMunicipio.DataSource = GlobalDTGralMunicipios("-1", DdlDirClienteEstado.SelectedValue.ToEntero) + End If + DdlDirClienteMunicipio.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlDirClienteMunicipio.DataBind() End Sub - Protected Sub DdlDirClientePais_SelectedIndexChanged(sender As Object, e As EventArgs) - CargaDirClienteEstado() - CargaDirClienteMunicipio() - CargaDirClienteColonia() - CargaDirClienteLocalidad() - End Sub - Protected Sub DdlDirClienteEstado_SelectedIndexChanged(sender As Object, e As EventArgs) - CargaDirClienteMunicipio() - CargaDirClienteColonia() - CargaDirClienteLocalidad() + Protected Sub DdlDirClientePais_SelectedIndexChanged(sender As Object, e As EventArgs) + CargaDirClienteEstado() + CargaDirClienteMunicipio() + CargaDirClienteColonia() + CargaDirClienteLocalidad() + End Sub + Protected Sub DdlDirClienteEstado_SelectedIndexChanged(sender As Object, e As EventArgs) + CargaDirClienteMunicipio() + CargaDirClienteColonia() + CargaDirClienteLocalidad() End Sub Protected Sub DdlDirClienteMunicipio_SelectedIndexChanged(sender As Object, e As EventArgs)