From 05730afaa8a0a3fc66143a53b41f7faf4adddf2e Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Thu, 2 Dec 2021 19:56:36 -0700 Subject: [PATCH] E140. Catalogo de vendedores de sucursal en clientes.aspx, seleccionar desde ventas.aspx --- App_Code/ClsPaginas.vb | 10 ++-- Ventas/Clientes.aspx | 58 +++++++++++++++++++++- Ventas/Clientes.aspx.vb | 104 +++++++++++++++++++++++++++++++++++----- Ventas/Ventas.aspx.vb | 30 ++++++++++++ 4 files changed, 186 insertions(+), 16 deletions(-) diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index fe7ea1016..7ff070146 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -3871,7 +3871,7 @@ Public Class ClsPaginas - Property GlobalDTClientesVendedoresSubProyectos(CveEmpresa As Integer) As DataTable + Property GlobalDTClientesVendedoresSubProyectos(CveEmpresa As Integer, Optional CveCliente As Integer = -1, Optional CveSubProyecto As Integer = -1) As DataTable Get Dim AppNombre As String = String.Format("GlobalDTClientesVendedoresSubProyectos-{0}", CveEmpresa) @@ -3880,9 +3880,13 @@ Public Class ClsPaginas If ObjInv.GetClientesVendedoresSubProyectos(-1, -1, -1, CveEmpresa) Then Application(AppNombre) = ObjInv.DtResultados ObjInv.Dispose() End If + Dim Str As StringBuilder = New StringBuilder() + Str.Append("1 = 1 ") + If CveCliente <> -1 Then Str.AppendFormat(" AND CveCliente = {0} ", CveCliente) + If CveSubProyecto <> -1 Then Str.AppendFormat(" AND CveSubProyecto = {0} ", CveSubProyecto) - GlobalDTClientesVendedoresSubProyectos = DirectCast(Application(AppNombre), DataTable) - + Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString, "", DataViewRowState.CurrentRows) + GlobalDTClientesVendedoresSubProyectos = Dv.ToTable End Get Set(value As DataTable) Dim AppNombre As String = String.Format("GlobalDTClientesVendedoresSubProyectos-{0}", CveEmpresa) diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 819293028..c7af0aff2 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -617,9 +617,11 @@
+ - + +
@@ -6448,6 +6450,60 @@
<%--FIN MODAL CLIENTE PERSONAL ENTREGA--%> + + diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index ef1112da5..9f106336c 100644 --- a/Ventas/Clientes.aspx.vb +++ b/Ventas/Clientes.aspx.vb @@ -1373,12 +1373,15 @@ Partial Class Clientes Dim item As New ListItem("Seleccione", "-1") DdlVendedor.DataSource = dt DdlVendedorSucursal.DataSource = dt + DdlVendedorSucursalAsignar.DataSource = dt DdlVendedor.DataBind() DdlVendedorSucursal.DataBind() + DdlVendedorSucursalAsignar.DataBind() DdlVendedor.Items.Insert(0, item) - DdlVendedorSucursal.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlVendedorSucursal.Items.Insert(0, New ListItem("Seleccione", "-1")) + DdlVendedorSucursalAsignar.Items.Insert(0, New ListItem("Seleccione", "-1")) End Sub @@ -1464,6 +1467,11 @@ Partial Class Clientes If ObjClientes.Pais = "" Then ObjClientes.Pais = "México" + + If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveCliente > 0 Then + LnkAgregarVendedorSucursal.Visible = True + End If + 'Campos para Modificación LtlCliente.Text = ObjClientes.Nombre TxtNombre.Text = ObjClientes.Nombre @@ -8563,7 +8571,11 @@ Partial Class Clientes 'CargaSubProyectos DdlSubProyectoFiltro.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) - DdlSubProyectoFiltro.DataBind() + DdlSubProyectoFiltro.DataBind() + + DdlSucursalVendedor.DataSource = GlobalDTSubProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1, 1) + DdlSucursalVendedor.DataBind() + DdlSucursalVendedor.Items.Insert(0, New ListItem("Seleccione", "-1")) 'Vendedor DdlVendedorFiltro.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) @@ -8577,17 +8589,17 @@ Partial Class Clientes DdlPSFiltro.setEsWebService(True) 'If UsuarioActual.Empresa.Funcionalidad(105) = "1" Then - DdlPSFiltro.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacionFilto.SelectedValue) - DdlPSFiltro.SelectedText = "" - DdlPSFiltro.SelectedValue = "-1" - 'Else - ' DdlPSFiltro.ddl.Items.Clear() - ' DdlPSFiltro.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacionFilto.SelectedValue.ToEntero()) - ' DdlPSFiltro.ddl.DataBind() - ' DdlPSFiltro.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1")) - 'End If + DdlPSFiltro.ddlWS.Attributes.Add("data-cveclasificacion", DdlClasificacionFilto.SelectedValue) + DdlPSFiltro.SelectedText = "" + DdlPSFiltro.SelectedValue = "-1" + 'Else + ' DdlPSFiltro.ddl.Items.Clear() + ' DdlPSFiltro.ddl.DataSource = GlobalDTPSSimplificado(UsuarioActual.CveEmpresa, CveClasificacion:=DdlClasificacionFilto.SelectedValue.ToEntero()) + ' DdlPSFiltro.ddl.DataBind() + ' DdlPSFiltro.ddl.Items.Insert(0, New ListItem("Seleccione el Producto", "-1")) + 'End If - CargaGrupo() + CargaGrupo() CargaTipoCentroCosto() End Sub @@ -10827,6 +10839,74 @@ Partial Class Clientes End If End Sub + Protected Sub LnkAgregarVendedorSucursal_Click(sender As Object, e As EventArgs) Handles LnkAgregarVendedorSucursal.Click + If CveCliente > 0 Then + DdlVendedorSucursalAsignar.SelectedValueExist("-1") + DdlSucursalVendedor.SelectedValueExist("-1") + CargaProveedoresSucursales() + RegistraScript("$('#DivVendedoresSucursales').modal('show');") + End If + End Sub + + Private Sub CargaProveedoresSucursales() + Using ObjVentas As New ClsVentas + If ObjVentas.GetClientesVendedoresSubProyectos(Me.CveCliente, -1, -1, UsuarioActual.CveEmpresa) Then + GvVendedoresSucursales.DataSource = ObjVentas.DtResultados + End If + End Using + GvVendedoresSucursales.DataBind() + UpVendedoresSucursales.Update() + End Sub + + + Protected Sub LnkEliminarVendedorSucursal_Click(sender As Object, e As EventArgs) + Dim CveVendedor As Integer = DdlVendedorSucursalAsignar.SelectedValue.ToEntero() + Dim CveSubProyecto As Integer = DdlSucursalVendedor.SelectedValue.ToEntero() + + Using ObjVentas As New ClsVentas + If ObjVentas.RemoveClientesVendedoresSubProyectos(Me.CveCliente, CveVendedor, CveSubProyecto, UsuarioActual.CveEmpresa) Then + Alert("Se eliminó el vendedor a la sucursal") + End If + End Using + + DdlVendedorSucursalAsignar.SelectedValueExist("-1") + DdlSucursalVendedor.SelectedValueExist("-1") + + CargaProveedoresSucursales() + + RecargaGlobalDTVendedorSucursal() + End Sub + Protected Sub BtnAgregarVendedorSucursal_Click(sender As Object, e As EventArgs) + Dim CveVendedor As Integer = DdlVendedorSucursalAsignar.SelectedValue.ToEntero() + Dim CveSubProyecto As Integer = DdlSucursalVendedor.SelectedValue.ToEntero() + + Dim Guardar As Boolean = True + Using ObjVentas As New ClsVentas + + If ObjVentas.GetClientesVendedoresSubProyectos(Me.CveCliente, CveVendedor, CveSubProyecto, UsuarioActual.CveEmpresa) Then + If ObjVentas.DtResultados.Rows.Count > 0 Then + Guardar = False + Alert("El vendedor ya existe en esta sucursal", TipoMensaje.MsgAdvertencia) + End If + End If + + If Guardar AndAlso ObjVentas.AddClientesVendedoresSubProyectos(Me.CveCliente, CveVendedor, CveSubProyecto, UsuarioActual.CveEmpresa) Then + Alert("Se agregó el vendedor a la sucursal") + End If + + End Using + + DdlVendedorSucursalAsignar.SelectedValueExist("-1") + DdlSucursalVendedor.SelectedValueExist("-1") + + CargaProveedoresSucursales() + + RecargaGlobalDTVendedorSucursal() + End Sub + + Private Sub RecargaGlobalDTVendedorSucursal() + GlobalDTClientesVendedoresSubProyectos(UsuarioActual.CveEmpresa) = Nothing + End Sub End Class diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index 9bc1a43b5..89424f820 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -6111,6 +6111,10 @@ Partial Class Ventas End If BloqueaCondiconesPago() DeshabilitarAplicarNotaDeCredito(LblRFC.Text) + + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + CargaVendedoresSubProyectos() + End If End Sub Private Sub CargaRelacionadasPendientes() @@ -16572,6 +16576,10 @@ Partial Class Ventas End If ObjSubProyectos.Dispose() + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + CargaVendedoresSubProyectos() + End If + UpDetalle.Update() End Sub Private Sub CambiaSucursal(Optional RecargarPartidas As Boolean = True) @@ -16766,6 +16774,10 @@ Partial Class Ventas DdlVendedor.SelectedValue = "0" DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0")) + If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then + CargaVendedoresSubProyectos() + End If + DdlVendedorSucursal.DataSource = DdlVendedor.DataSource DdlVendedor.DataBind() @@ -32592,6 +32604,24 @@ Partial Class Ventas UpModalSolicitud.Update() End Sub + Private Sub CargaVendedoresSubProyectos() + + Dim DtVendedoresSucursales = GlobalDTClientesVendedoresSubProyectos(UsuarioActual.CveEmpresa, CveCliente:=Me.CveCliente, CveSubProyecto:=DdlSubProyectoDatos.SelectedValue.ToEntero()) + + If DtVendedoresSucursales IsNot Nothing AndAlso DtVendedoresSucursales.Rows.Count > 0 Then + DdlVendedor.Items.Clear() + DdlVendedor.SelectedValue = Nothing + + DdlVendedor.DataSource = DtVendedoresSucursales + DdlVendedor.DataBind() + DdlVendedor.Items.Insert(0, New ListItem("Sin Asignar", "0")) + + DtVendedoresSucursales.Dispose() + End If + + UpParametros.Update() + End Sub + Public Class MAnticipoRelacionado Public Property CveVenta As Integer Public Property FolioFiscal As String