E119 Filtros Lineas Adicionales

-Por Comercializador
-Por Estatus

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

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)