se agrego un multiselect en los filtros reemplazando el ddl de marcas
This commit is contained in:
@@ -130,7 +130,7 @@ Partial Class Ventas_ActualizarPrecios
|
||||
If UsuarioActual.Empresa.Funcionalidad(130) = "1" Then
|
||||
Dim ObjMarcas As New ClsProductosServicios
|
||||
If ObjMarcas.GetMarcas(UsuarioActual.CveEmpresa) Then
|
||||
DdlMarca.DataSource = ObjMarcas.DtResultados
|
||||
DdlMarca.DataSource = ObjMarcas.DtResultados.Copy
|
||||
End If
|
||||
ObjMarcas.Dispose()
|
||||
DdlMarca.DataBind()
|
||||
@@ -145,6 +145,7 @@ Partial Class Ventas_ActualizarPrecios
|
||||
Dim objPS As New ClsProductosServicios
|
||||
Dim CveProveedor As Integer = -1
|
||||
Dim CvePS As Integer = -1
|
||||
Dim Marcas As String = If(DdlMarca.GetSelectedValuesM = "", "-1", DdlMarca.GetSelectedValuesM)
|
||||
|
||||
If DDlPs.SelectedValue.ToEntero > 0 Then
|
||||
CvePS = DDlPs.SelectedValue.ToEntero
|
||||
@@ -155,7 +156,7 @@ Partial Class Ventas_ActualizarPrecios
|
||||
End If
|
||||
|
||||
If objPS.GetPSPreciosLista(UsuarioActual.CveEmpresa, DdlPrecioLista.SelectedValue.ToEntero, DDlClasificacion.SelectedValue.ToEntero, CvePS,
|
||||
CveProveedor:=CveProveedor, Estado:=DdlEstado.SelectedValue.ToEntero, CveMarca:=DdlMarca.SelectedValue.ToEntero()) Then
|
||||
CveProveedor:=CveProveedor, Estado:=DdlEstado.SelectedValue.ToEntero, Marcas:=Marcas) Then
|
||||
GVPrecios.DataSource = objPS.DtResultados
|
||||
End If
|
||||
objPS.Dispose()
|
||||
|
||||
Reference in New Issue
Block a user