E140. Catalogo de vendedores de sucursal en clientes.aspx, seleccionar desde ventas.aspx

2021-12-02 19:56:36 -07:00
parent 3b1eb72b1f
commit 05730afaa8
4 changed files with 186 additions and 16 deletions
--- 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)
--- a/Ventas/Clientes.aspx
+++ b/Ventas/Clientes.aspx
@@ -617,9 +617,11 @@
                                        </div>

                                        <div class="form-group form-md-line-input input-iconright" id="Div1" runat="server">
+                                            
                                            <asp:DropDownList ID="DdlVendedor" runat="server" CssClass="form-control  select2me" Width="200px" DataTextField="Vendedor" DataValueField="CveVendedor"></asp:DropDownList>
-
+                                            <asp:LinkButton ID="LnkAgregarVendedorSucursal" Visible="false" runat="server" data-toggle="tooltip" data-placement="right" title="Agregar vendedor por sucursal." CssClass="btn btn-circle btn-default" Text="<i class='fa fa-plus'></i> Agregar por Sucursal"></asp:LinkButton>
                                            <label for="<%= DdlVendedor.ClientID.ToString()%>">Vendedor:</label>
+
                                        </div>

                                        <div class="form-group form-md-line-input input-iconright" id="Div2" runat="server">
@@ -6448,6 +6450,60 @@
        </div>
    </div>
    <%--FIN MODAL CLIENTE PERSONAL ENTREGA--%>
+
+        <div id="DivVendedoresSucursales" class="modal ADS fade" role="dialog">
+        <asp:UpdatePanel class="modal-dialog" runat="server" ID="UpVendedoresSucursales" UpdateMode="Conditional">
+            <ContentTemplate>
+                <div class="modal-content">
+                    <div class="modal-header ">
+                        <button type="button" class="close" data-dismiss="modal">&times;</button>
+                        <h4 class="modal-title">Vendedores por Sucursal</h4>
+                    </div>
+                    <div class="modal-body" style="width: 900px;">
+                        <div class="row">
+                            <div class="col-md-2">
+                                <label>Vendedor:</label>
+                            </div>
+                            <div class="col-md-3">
+                                <asp:DropDownList ID="DdlVendedorSucursalAsignar" CssClass=" form-control input-sm select2me" runat="server" Width="100%" DataTextField="Vendedor" DataValueField="CveVendedor">
+                                </asp:DropDownList>
+                            </div>
+                            <div class="col-md-2">
+                                <label>Sucursal:</label>
+                            </div>
+                            <div class="col-md-3">
+                                <asp:DropDownList ID="DdlSucursalVendedor" CssClass=" form-control input-sm select2me" runat="server" Width="100%" DataTextField="SubProyecto" DataValueField="CveSubProyecto">
+                                </asp:DropDownList>
+                            </div>
+                            <div class="col-md-2">
+                                <asp:Button ID="BtnAgregarVendedorSucursal" runat="server" CssClass="btn btn-primary" Text="Agregar" OnClick="BtnAgregarVendedorSucursal_Click" />
+                            </div>
+                        </div>
+                        <br />
+                        <div class="row">
+                            <div class="col-md-12">
+                                <asp:GridView ID="GvVendedoresSucursales" runat="server" DataKeyNames="CveVendedor,CveSubProyecto" GridLines="none" CssClass="tabla_correcto grides Widthall mysmallbtn" AutoGenerateColumns="False" ShowHeaderWhenEmpty="False" EmptyDataText="Lista de vendedores por sucursal">
+                                    <Columns>
+                                        <asp:BoundField HeaderText="Vendedor" ReadOnly="true" DataField="Vendedor" ItemStyle-Width="20%" ItemStyle-HorizontalAlign="Center" />
+                                        <asp:BoundField HeaderText="Sucursal" ReadOnly="true" DataField="SubProyecto" ItemStyle-Width="70%" ItemStyle-HorizontalAlign="Center" />
+                                        <asp:TemplateField ItemStyle-HorizontalAlign="Center" ItemStyle-Width="10%">
+                                            <ItemTemplate>
+                                                <asp:LinkButton ID="LnkEliminarVendedorSucursal" runat="server" AlternateText="Eliminar" OnClick="LnkEliminarVendedorSucursal_Click" CssClass="btn btn-circle btn-sm red" Text="<i class='icon-trash'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Seguro que desea eliminar el vendedor?" data-btn-ok-label="si" />
+                                            </ItemTemplate>
+                                        </asp:TemplateField>
+                                    </Columns>
+                                </asp:GridView>
+                            </div>
+                        </div>
+                    </div>
+                    <div class="modal-footer">
+                        
+                        <button type="button" class="btn btn-danger" data-dismiss="modal">Cerrar</button>
+                    </div>
+                </div>
+            </ContentTemplate>
+        </asp:UpdatePanel>
+    </div>
 </asp:Content>

 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="Server">
--- 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

--- 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