E119 Filtros Lineas Adicionales

-Por Comercializador
-Por Estatus

CAMBIOS BD:
-PA_Vta_LineasAdicionalesGet en SIG_Resp_MLR y Ventas
 + @CveProveedor = -1

App_Code/ClsVentas.vb

@@ -5528,12 +5528,13 @@ Public Class ClsVentas
     End Function
 
 
-    Public Function GetLineasAdicionales(CveCliente As Integer, TipoLinea As Integer, CveMoneda As Integer, CveLineaAdicionalEstatus As Integer, CveEmpresa As Integer) As Boolean
+    Public Function GetLineasAdicionales(CveCliente As Integer, CveProveedor As Integer, TipoLinea As Integer, CveMoneda As Integer, CveLineaAdicionalEstatus As Integer, CveEmpresa As Integer) As Boolean
 
         Dim Retorno As Boolean = False
         DataAdapter("PA_Vta_LineasAdicionalesGet")
         With SqlAdapter.SelectCommand.Parameters
             .Add("@CveCliente", SqlDbType.Int).Value = CveCliente
+            .Add("@CveProveedor", SqlDbType.Int).Value = CveProveedor
             .Add("@TipoLinea", SqlDbType.Int).Value = TipoLinea
             .Add("@CveMoneda", SqlDbType.Int).Value = CveMoneda
             .Add("@CveLineaAdicionalEstatus", SqlDbType.Int).Value = CveLineaAdicionalEstatus

Ventas/Clientes.aspx

@@ -4535,7 +4535,35 @@
 
                 <ajax:TabPanel ID="TabLineasAdicionales" runat="server" HeaderText="Lineas Adicionales" Visible="false">
                     <ContentTemplate>
-                         
+                        <asp:UpdatePanel ID="UpFiltrosLA" runat="server" UpdateMode="Conditional">
+                            <ContentTemplate>
+                                <div class="portlet solid  grey-cascade portlet-filter" id="idnecesaria3">
+                                    <div class="portlet-title portlet-filterT smalltitle">
+                                        <div class="tools">
+                                            <asp:Button ID="BtnConsultarLineas" OnClick="BtnConsultarLineas_Click" ValidationGroup="Valida" runat="server" Text="Consultar" class="btn btn-primary" />
+                                            <a href="javascript:;" class="expand"></a>
+                                        </div>
+                                        <div class="titlefiltros  caption">
+                                            <div class="row">
+                                                <label class="col-md-1 " style="width: 120px; text-align: right">Comercializador:</label>
+                                                <div class="col-md-2" style="width: 250px">
+                                                <ADS:Dropdownlost ID="DdlProveedorLineaAdicional" SelectedText="-" IncluyeTodos="true" runat="server" CssClassDdl="select2me" Width="100%" CssStyle="width: 100%;"
+                                                    DataTextField="RazonSocial" DataValueField="CveProveedor"></ADS:Dropdownlost>
+                                                </div>
+                                                <label class="col-md-1 truncate" style="width: 120px; text-align: right">Estatus:</label>
+                                                <div class="col-md-2" style="width: 120px">
+                                                    <asp:DropDownList ID="DdlEstatusLineaAdicional" runat="server" Cssclass="table-group-action-input form-control select2me">
+                                                        <asp:ListItem value="-1" Text="Todos"/>
+                                                        <asp:ListItem value="1" Text="Vinculado"/>
+                                                        <asp:ListItem Selected="True" value="0" Text="Sin Registrar"/>
+                                                    </asp:DropDownList>
+                                                </div>
+                                            </div>
+                                        </div>
+                                    </div>
+                                </div>
+                            </ContentTemplate>
+                        </asp:UpdatePanel>
                         <div class="row ">
                             <div class="col-md-12">
 

Ventas/Clientes.aspx.vb

@@ -452,7 +452,16 @@ Partial Class Clientes
         Set(value As DataTable)
             ViewState("DtAnticipoHistorial") = value
         End Set
+    End Property
+    Private Property DtLineaAdicional As DataTable
+        Get
+            Return CType(ViewState("DtLineaAdicional"), DataTable)
+        End Get
+        Set(value As DataTable)
+            ViewState("DtLineaAdicional") = value
+        End Set
     End Property
+
     'Private Property EstatusAnteriorCliente As Boolean
     '    Get
     '        If ViewState("EstatusAnteriorCliente") Is Nothing Then
@@ -10318,6 +10327,11 @@ Partial Class Clientes
 
     Private Sub CargaCombosLineasAdicionales()
 
+        DdlProveedorLineaAdicional.setEsWebService(True)
+        DdlProveedorLineaAdicional.Attributes.Add("data-metodo", "getproveedores")
+        DdlProveedorLineaAdicional.SelectedText = "-"
+        DdlProveedorLineaAdicional.SelectedValue = "-1"
+
         DdlProveedorLineaAdicionalModal.setEsWebService(True)
         DdlProveedorLineaAdicionalModal.Attributes.Add("data-metodo", "getproveedores")
         DdlProveedorLineaAdicionalModal.SelectedText = "-"
@@ -10326,22 +10340,42 @@ Partial Class Clientes
         DdlCategoriaLineaAdicionalModal.DataSource = GlobalDTGralCategorias(UsuarioActual.CveEmpresa)
         DdlCategoriaLineaAdicionalModal.DataBind()
         DdlCategoriaLineaAdicionalModal.Items.Insert(0, New ListItem("-", "-1"))
-
+
     End Sub
 
+    Protected Sub BtnConsultarLineas_Click(sender As Object, e As EventArgs)
+        FiltrarLineasAdicionales()
+    End Sub
+
+    Protected Sub FiltrarLineasAdicionales()
+        Dim ObjVentas As New ClsVentas
+        If ObjVentas.GetLineasAdicionales(CveCliente, DdlProveedorLineaAdicional.SelectedValue.ToEntero, -1, -1, DdlEstatusLineaAdicional.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            GvLineasAdicionales.DataSource = ObjVentas.DtResultados
+        End If
+        ObjVentas.Dispose()
+        GvLineasAdicionales.DataBind()
+        UpLineasAdicionales.Update()
+    End Sub
+    'Protected Sub DdlProveedorLineaAdicional_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlProveedorLineaAdicional.selectedindexchange
+    '    FiltrarLineasAdicionales()
+    'End Sub
+
+    'Protected Sub DdlEstatusLineasAdicionales_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlEstatusLineaAdicional.SelectedIndexChanged
+    '    FiltrarLineasAdicionales()
+    'End Sub
+
     Private Sub GetLineasAdicionales()
 
         Dim ObjVentas As New ClsVentas
 
-        If ObjVentas.GetLineasAdicionales(CveCliente, -1, -1, -1, UsuarioActual.CveEmpresa) Then
+        If ObjVentas.GetLineasAdicionales(CveCliente, DdlProveedorLineaAdicional.SelectedValue.ToEntero, -1, -1, -1, UsuarioActual.CveEmpresa) Then
             GvLineasAdicionales.DataSource = ObjVentas.DtResultados
         End If
-
         ObjVentas.Dispose()
+
         GvLineasAdicionales.DataBind()
+        FiltrarLineasAdicionales()
         UpLineasAdicionales.Update()
-
-
     End Sub
 
     Protected Sub LnkAgregarLineaAdicional_Click(sender As Object, e As EventArgs)