diff --git a/App_Code/ClsVentas.vb b/App_Code/ClsVentas.vb index 454d6d5c8..c64f9bbda 100644 --- a/App_Code/ClsVentas.vb +++ b/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 diff --git a/Ventas/Clientes.aspx b/Ventas/Clientes.aspx index 26a2963a6..6cc3bcfc3 100644 --- a/Ventas/Clientes.aspx +++ b/Ventas/Clientes.aspx @@ -4535,7 +4535,35 @@ - + + +
+
+
+ + +
+
+
+ +
+ +
+ +
+ + + + + +
+
+
+
+
+
+
diff --git a/Ventas/Clientes.aspx.vb b/Ventas/Clientes.aspx.vb index f3820c77b..82de53a46 100644 --- a/Ventas/Clientes.aspx.vb +++ b/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)